Exit Channel Drawing Script

layer2 - Layer_new creates a new light grey layer, "echannel."

layer2 <- layer_new("echannel",ltgrey)

channel1 - Calls the Channel Program to draw to tank channel based on given inputs.

channel1 <- ChannelDrawing(echannel_origin,p1,T_ChannelWall)

Note: echannel_origin is calculated through a for loop.

echannel_origin =

• if layout1:
  • x: 0
  • y: 0
  • z: 0

• if layout2:
  • x: tank_origin0
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

p1 =

• x: W_Sed + 2T_PlantWall
• y: W_ExitChannel
• z: H_ExitChannel

T_ChannelWall = 0.15m

rotate1 - Rotate turns the object based on a given point and rotation angle.

rotate1 <- rotate(echannel_origin,90)

Note: echannel_origin is calculated through a for loop.

echannel_origin =

• if layout1:
  • x: 0
  • y: 0
  • z: 0

• if layout2:
  • x: tank_origin0
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

• if layout4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_EChannel

bigunion - Union_allA selects all the objects currently in the workspace and joins them into one single object.

bigunion <- union_allA

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze2 - Layer_freeze locks the layer "echannel" so that it cannot be edited.

layerfreeze2 <- layer_freeze("echannel")