Inlet Pipe Drawing Script - layout 1

viewtops - Adjust workspace so that the object is being viewed from the top.

viewtops <- viewtop1

layerthawc - Layer_thaw unlocks the layer "channel" so that it can be edited.

layerthawc <- layer_thaw("channel")

layersetc - Layer_set selects the layer "channel".

layersetc <- layer_set("channel")

cylinder1 - CylinderA creates a cylinder based on three dimensions.

cylinder1 <- cylinderA(sedtankpipe1_origin,outerradius(ND_{SedPipeEntrance}),-T_ChannelWall)

sedtankpipe1_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel
  
  
  Unknown macro: {float}

  
  Northeast Isometric View

  cylinder2 - CylinderA creates a cylinder based on three dimensions.

cylinder2 <- cylinderA(sedtankpipe2_origin,outerradius(ND_{SedPipeEntrance}),-T_ChannelWall)

sedtankpipe2_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel
  
  
  Unknown macro: {float}

  
  Northeast Isometric View

  cylinder3 - CylinderC creates a cylinder based on three dimensions.

cylinder3 <- cylinderC(sedtankpipe3_origin,outerradius(ND_{SedPipeEntrance}),-T_ChannelWall)

sedtankpipe3_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel
  
  
  Unknown macro: {float}

  
  Northeast Isometric View

  cylinder4 - CylinderA creates a cylinder based on three dimensions.

cylinder4 <- cylinderA(sedtankpipe4_origin,outerradius(ND_{SedPipeEntrance}),-T_ChannelWall)

sedtankpipe4_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel
  
  subtract1 - SubtractH subtracts a selected object based on three specified points.

subtract1 <- subtractH(channel_origin,p1,p2)

channel_origin =

• if layout 1-3:
  • x: tank_origin0 - L_Sed + W_Channel
  • y: tank_origin1 - T_PlantWall
  • z: tank_origin2 + H_Sed - H_Channel

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

p1 =

• x: sedtankpipe1_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankpipe1_origin1 + outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe1_origin2

p2 =

• x: sedtankpipe4_origin0 - outerradius(ND_{SedPipeEntrance})
• y: sedtankpipe4_origin1 - outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe4_origin2

holes2 -

holes2 <- concat(cylinder1,cylinder2,cylinder3)

holes3 -

holes3 <- concat(cylinder4,subtract1)

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze - Layer_freeze locks the layer "channel" so that it cannot be edited.

layerfreeze <- layer_freeze("channel")

layer3 - Layer_new creates a new blue layer "pipe".

layer3 <- layer_new("pipe",blue)

pipe1 - Calls the Pipe Program to create a pipe.

pipe1 <- Pipe(sedtankpipe1_origin,ND_{SedPipeEntrance},-sedtankpipe1_length,EN_PipeSpec)

sedtankpipe1_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.

sedtankpipe1_length = H_Sed - H_InletChannel - (W_Sed/2 * tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance}))-ElbowRadius(ND_{SedPipeEntrance})

EN_PipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.

pipe2 - Calls the Pipe Program to create a pipe.

pipe2 <- Pipe(sedtankpipe2_origin,ND_{SedPipeEntrance},-sedtankpipe1_length,EN_PipeSpec)

sedtankpipe2_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

ND_{SedPipeEntrance} = Nominal diameter of entrance pipe from the inlet channel to the sedimentation tank.

sedtankpipe1_length = H_Sed - H_InletChannel - (W_Sed/2 * tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance}))-ElbowRadius(ND_{SedPipeEntrance})

EN_PipeSpec = enumerated pipe schedule type. Each schedule of pipe is represented by a specific number within our code.

pipe3 - Calls the Pipe Program to create a pipe.

pipe3 <- Pipe(sedtankpipe3_origin,ND_{SedPipeEntrance},-sedtankpipe1_length,EN_PipeSpec)

sedtankpipe3_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

pipe4 - Calls the Pipe Program to create a pipe.

pipe4 <- Pipe(sedtankpipe4_origin,ND_{SedPipeEntrance},-sedtankpipe1_length,EN_PipeSpec)

sedtankpipe4_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

pipe5 - Calls the Pipe Program to create a pipe.

pipe5 <- Pipe(sedtankpipe5_origin,ND_{SedPipeEntrance},-sedtankpipe5_length,EN_PipeSpec)

sedtankpipe5_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

rotatepipe5 - Rotate_3d turns the object based on a given axis and degree angle.

rotatepipe5 <- rotate_3d(p1,sedtankpipe5_origin,"y",90)

p1 =

• x: sedtankpipe5_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe5_origin1
• z: sedtankpipe5_origin2

"y" - specifies axis that object will be rotated about.

rotate2a - Rotate_3d turns the object based on a given axis and degree angle.

rotate2a - rotate_3d(p1,sedtankpipe1_origin,"z",sedtankpipe5_angle)

sedtankpipe1_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

p1 =

• x: sedtankpipe5_origin0
• y: sedtankpipe5_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe5_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

"z" - specifies axis that object will be rotated about.

pipe6 - Calls the Pipe Program to create a pipe.

pipe6 <- Pipe(sedtankpipe6_origin,ND_{SedPipeEntrance},sedtankpipe6_length,EN_PipeSpec)

sedtankpipe6_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

rotate3 - Rotate_3d turns the object based on a given axis and degree angle.

rotate3 <- rotate_3d(p1,sedtankpipe6_origin,"y",90)

p1 =

• x: sedtankpipe_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe5_origin1
• z: sedtankpipe5_origin0

sedtankpipe6_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

"y" - specifies axis that object will be rotated about.

rotate3a - Rotate_3d turns the object based on a given axis and degree angle.

rotate3a <- rotate_3d(p1,sedtankpipe2_origin,"z",sedtankpipe6_angle)

p1 =

• x: sedtankpipe6_origin0
• y: sedtankpipe6_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe6_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

sedtankpipe2_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

"y" - specifies axis that object will be rotated about.

pipe7 - Calls the Pipe Program to create a pipe.

pipe7 <- Pipe(sedtank7_origin,ND_{SedPipeEntrance},sedtankpipe7_length,EN_PipeSpec)

sedtankpipe7_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

rotate4 - Rotate_3d turns the object based on a given axis and degree angle.

rotate4 <- rotate_3d(p1,sedtankpipe7_origin,"y",90)

p1 =

• x: sedtankpipe7_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe7_origin1
• z: sedtankpipe7_origin2

sedtankpipe7_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

"y" - specifies axis that object will be rotated about.

rotate4a - Rotate_3d turns the object based on a given axis and degree angle.

rotate4a <- rotate_3d(p1,sedtankpipe3_origin,"z",sedtankpipe7_angle)

p1 =

• x: sedtankpipe7_origin0
• y: sedtankpipe7_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe7_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

sedtankpipe3_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 1*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

"z" - specifies axis that object will be rotated about.

pipe8 - Calls the Pipe Program to create a pipe.

pipe8 <- Pipe(sedtankpipe8_origin,ND_{SedPipeEntrance},sedtankpipe8_length,EN_PipeSpec)

sedtankpipe8_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

rotate5 - Rotate_3d turns the object based on a given axis and degree angle.

rotate5 <- rotate_3d(p1,sedtankpipe8_origin,"y",90)

p1 =

• x: sedtankpipe8_origin0 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• y: sedtankpipe8_origin1
• z: sedtankpipe8_origin2

sedtankpipe8_origin =

• x: tank_origin0 - L_Sed + W_Channel/2 + ElbowRadius(ND_{SedPipeEntrance})
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + W_Sed/2*tan(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

"y" - specifies axis that object will be rotated about.

rotate5a - Rotate_3d turns the object based on a given axis and degree angle.

rotate5a <- rotate_3d(p1,sedtankpipe4_origin,"z",sedtankpipe8_angle)

p1 =

• x: sedtankpipe8_origin0
• y: sedtankpipe8_origin1 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2
• z: sedtankpipe8_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

sedtankpipe4_origin =

• x: tank_origin0 - L_Sed + W_Channel/2
• y: tank_origin1 + W_Sed/2 - outerradius(ND_SedLaunder) - 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4
• z: tank_origin2 + H_Sed - H_Channel

"z" - specifies axis that object will be rotated about.

pipe9 - Calls the Pipe Program to create a pipe.

pipe9 <- Pipe(sedtankpipe9_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe9_origin =

• x: tank_origin0 - (7*L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

pipe10 - Calls the Pipe Program to create a pipe.

pipe10 <- Pipe(sedtankpipe10_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe10_origin =

• x: tank_origin0 - (5*L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

pipe11 - Calls the Pipe Program to create a pipe.

pipe11 <- Pipe(sedtankpipe11_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe11_origin =

• x: tank_origin0 - (3*L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

pipe12 - Calls the Pipe Program to create a pipe.

pipe12 <- Pipe(sedtankpipe12_origin,ND_{SedPipeEntrance},sedtankpipe9_length,EN_PipeSpec)

sedtankpipe12_origin =

• x: tank_origin0 - (L_Sed)/8
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + S_SedInlet

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

layerfreeze2 <- layer_freeze("pipe")

cylinder5 - CylinderA creates a cylinder based on three dimensions.

cylinder5 <- cylinderA(sedtankpipe14_origin,outerradius(ND_SedLaunder),-T_PlantWall)

sedtankpipe14_origin =

• x: tank_origin0 - L_Sed
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp

rotate2 - Rotate_3d turns the object based on a given axis and degree angle.

rotate2 <- rotae_3d(p1,sedtankpipe14_origin,"y",90)

p1 =

• x: sedtankpipe14_origin0 + outerradius(ND_SedLaunder)
• y: sedtankpipe14_origin1
• z: sedtankpipe14_origin2

sedtankpipe14_origin =

• x: tank_origin0 - L_Sed
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp

"y" - specifies axis that object will be rotated about.

subtract2 - SubtractD subtracts a selected object based on two specified points.

subtract2 <- subtractD(Plant_Origin,p1)

p1 =

• x: sedtankpipe14_origin0
• y: sedtankpipe14_origin1 + outerradius(ND_SedLaunder)
• z: sedtankpipe14_origin2

holes1 -

holes1 <- concat(cylinder5,rotate2)

layerthawp - Layer_thaw unlocks the layer "pipe" so that it can be edited.

layerthawp <-layer_thaw("pipe")

layersetp - Layer_set selects the layer "pipe".

layersetp <- layer_set("pipe")

pipe13 - Calls the Pipe Program to create a pipe.

pipe13 <- Pipe(sedtankpipe13_origin,ND_SedLaunder,sedtankpipe13_length,EN_PipeSpec)

sedtankpipe13_origin =

• x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + ElbowRadius(ND_SedLaunder)
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp + ElbowRadius(ND_SedLaunder)

pipe14 - Calls the Pipe Program to create a pipe.

pipe14 <- Pipe(sedtankpipe14_origin,ND_SedLaunder,sedtankpipe14_length,EN_PipeSpec)

sedtankpipe14_origin =

• x: tank_origin0 - L_Sed
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp

rotate6 - Rotate_3d turns the object based on a given axis and degree angle.

rotate6 <- rotate_3d(p1,sedtankpipe14_origin,"y",90)

p1 =

• x: sedtankpipe14_origin0 + innerD(ND_SedLaunder,EN_PipeSpec)/2
• y: sedtankpipe14_origin1
• z: sedtankpipe14_origin2

sedtankpipe14_origin =

• x: tank_origin0 - L_Sed
• y: tank_origin1 + W_Sed/2
• z: tank_origin2 + H_Sed - H_Channel - T_Mp

"y" - specifies axis that object will be rotated about.

layerfreeze3 - Layer_freeze locks the layer "channel" so that it cannot be edited.

layerfreeze3 <- layer_freeze("pipe")