Inlet Pipe Drawing Script

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

layerthaw <-layer_thaw("channel")

viewtop - Rotates the object so that it is being viewed from the top.

viewtop <-viewtop1

cylinder1 - CylinderC is used to create a cylinder based on a point, radius and length.

cylinder1 <- cylinderC(sedtankinletpipe1_origin,outerradius(ND_{SedPipeEntrance}),-sedtankinletpipe_length)

sedtankinletpipe1_origin =

• x: Plant_Origin0 - L_Sed + (.5W_InletChannel)
• y: Plant_Origin1 + (W_Sed/4)
• z: Plant_Origin2 + H_Sed - H_InletChannel

outerradius(ND_{SedPipeEntrance}) = specifies the radius of the cylinder.

sedtankinletpipe_length = specifies the length of the cylinder.

cylinder2 - CylinderC is used to create a cylinder based on a point, radius and length.

cylinder2 <- cylinderC(sedtankinletpipe2_origin,outerradius(ND_{SedPipeEntrance}),-sedtankinletpipe_length)

sedtankinletpipe2_origin =

• x: Plant_Origin0 - L_Sed + (.5W_InletChannel)
• y: Plant_Origin1 + (3W_Sed/4)
• z: Plant_Origin2 + H_Sed - H_InletChannel

outerradius(ND_{SedPipeEntrance}) = specifies the radius of the cylinder.

sedtankinletpipe_length = specifies the length of the cylinder.

subtractc - SubtractC subtracts one object from the other based on three points.

subtractc <- subtractH(channel_origin,p1,p2)

When sedlayout = 1, channelorigin is 3*1 matrix with x,y,z points corresponding to where the channel will be drawn. Channelorigin is called from the Channel Program.

p1 =

• x: sedtankinletpipe2_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankinletpipe2_origin1 + outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe1_origin2

p2 =

• x: sedtankinletpipe1_origin0 - outerradius(ND_{SedPipeEntrance})
• y: sedtankinlepipe1_origin1 - outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe4_origin2)

layerset -

layerset <- layer_set("0")

layerfreezec -

layerfreezec <- layer_freeze("channel")

layerthawis -

layerthawis <- layer_thaw("inletslopes")

subtractis -

subtractis <-subtractH(Plant_Origin,p1,p2)

Plant_Origin =

p1 =

• x: sedtankinletpipe2_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankinletpipe2_origin1 + outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe1_origin2

p2 =

• x: sedtankinletpipe1_origin0 - outerradius(ND_{SedPipeEntrance})
• y:sedtankinletpipe1_origin1 - outerradius(ND_{SedPipeEntrance})
• z: sedtankpipe4_origin2

layerfreezeis -

layerfreezeis <- layer_freeze("channel~)

layernewip -

layernewip <- layer_thaw("inletslopes")

slopesip -

slopesip <- sedslope(Plant_Origin,p1,AN{~}SedTopInlet)

p1 =

• x: L_Sed
• y: W_Sed
• z: H_Sed

moveip -

moveip <-moveall(Plant_Origin,p1)

p1 =

• x: Plant_Origin0
• y: Plant_Origin1
• z: Plant_Origin2 + outerdiameter(ND_SedSludge)

pipe1 -

pipe1 <- Pipe(sedtankinletpipe1_origin,ND_{SedPipeEntrance},-sedtankinletpipe_length,EN_PipeSpec)

pipe2 -

pipe2 <- Pipe(sedtankinlepipe2_origin,ND_{SedPipeEntrance,-sedtankinletpipe}length~,EN_PipeSpec)

subtractip -

subtractip <- subtractK(p1,p2,Plant_Origin)

p1 =

• x: sedtankinletpipe1_origin0 + outerradius(ND{~}SedPipeEntrance)
• y: sedtankinletpipe1_origin1
• z: sedtankinletpipe1_origin2

p2 =

• x: sedtankinletpipe2_origin0 + outerradius(ND_{SedPipeEntrance})
• y: sedtankinletpipe2_origin1
• z: sedtankinletpipe2_origin2

layerfreezeip -

layerfreezeip <- layer_freeze("inletpipes")