Sludge Pipe Drawing Script

layer6 - Layer_new creates a new blue3 layer "sludgepipe."

layer <- layer_new("sludgepipe",blue3)

sludgepipe1 - Calls the Sludge Pipe Program to create a sludge pipe.

sludgepipe1 <- Sludgepipe(waste_origin,ND_SedSludge,L_Sed,D_{SedSludgeOrifice}/2,B_{SedSludgeOrifices},EN_PipeSpec)

waste_origin =

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

ND_SedSludge - Sludge pipe diameter in sed tank.

L_Sed - Length of sed tank.

D_{SedSludgeOrifice} - Diameter of orifices in sludge pipe.

B_{SedSludgeOrifices} - Orifice spacing in sedimentation tank draining pipe.

EN_PipeSpec - Enumerated type.

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

rotate20 <- rotate_3d(p1,waste_origin,"y",90)

Note: p1 is a dummy variable used only in the program help section to designate the matrix below.

p1 =

• x: waste_origin0 + innerD(ND_SedSludge,EN_PipeSpec)/2
• y: waste_origin1
• z: waste_origin2

waste_origin =

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

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

90 - rotation angle

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

rotate21 <- rotate_3d(p1,waste_origin,"x",90)

Note: p1 is a dummy variable used only in the program help section to designate the matrix below.

p1 =

• x: waste_origin0
• y: waste_origin1 + innerD(ND_SedSludge,EN_PipeSpec)/2
• z: waste_origin2

waste_origin =

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

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

90 - rotation angle

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze6 - Layer_freeze locks the layer "sludgepipe" so that it cannot be edited.

layerfreeze6 <- layer_freeze("sludgepipe")