Elbow Drawing Script

layer4 - Layer_new creates a new green layer "elbow."

layer4 <- layer_new("elbow",green)

elbow1 - Calls the Elbow Program to create an elbow.

elbow1 <- elbow(sedtankelbow1_origin,ND_{SedPipeEntrance},EN_PipeSpec)

sedtankelbow1_origin =

x: Plant_Origin0 - L_Sed + W_InletChannel/2
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3*(W_Sed/2 - outerradius(ND_SedLaunder))/4 - ElbowRadius(ND_{SedPipeEntrance})
z: Plant_Origin2 + sedtankpipe9_length + S_SedInlet + 2ElbowRadius(ND_{SedPipeEntrance})

ND_{SedPipeEntrance} = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow

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

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

rotate6 <- rotate_3d(p1,p2,"x",-90)

Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below.

p1 =

x: sedtankelbow1_origin0
y: sedtankelbow1_origin1 + ElbowRadius(ND_{SedPipeEntrance})
z: sedtankelbow1_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

p2 =

x: sedtankelbow1_origin0
y: sedtankelbow1_origin1 + ElbowRadius(ND_{SedPipeEntrance})
z: sedtankelbow_origin2

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

-90 - rotation angle

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

rotate7 <- rotate_3d(p1,p2,"y",90)

Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below.

p1 =

x: sedtankelbow1_origin0
y: sedtankelbow1_origin1 + ElbowRadius(ND_{SedPipeEntrance})
z: sedtankelbow1_origin2 + innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2

p2 =

x: sedtankelbow1_origin0
y: sedtankelbow1_origin1 + ElbowRadius(ND_{SedPipeEntrance})
z: sedtankelbow_origin2

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

90 - rotation angle.

copy1 - CopyDa duplicates the selected object.

copy1 <- copyDa(p1,sedtankpipe5_origin,sedtankpipe6_origin,sedtankpipe7_origin,sedtankpipe8_origin)

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

p1 =

x: sedtankpipe5_origin0
y: sedtankpipe5_origin1
z: sedtankpipe5_origin2 - outerradius(ND_{SedPipeEntrance})

sedtankpipe5_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

sedtankpipe6_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

sedtankpipe7_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

sedtankpipe8_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

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

rotate8 <- rotate_3d(p1,sedtankpipe1_origin,"z",sedtankpipe5_angle)

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

p1 =

x: sedtankpipe5_origin0
y: sedtankpipe5_origin1
z: sedtankpipe5_origin2 - outerradius(ND_{SedPipeEntrance})

sedtankpipe1_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 3(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

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

sedtank5_angle - specifies rotation angle.

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

rotate9 <- rotate_3d(p1,sedtankpipe2_origin,"z".sedtankpipe6_angle)

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

p1 =

x: sedtankpipe6_origin0
y: sedtankpipe6_origin1
z: sedtankpipe6_origin2 - outerradius(ND_{SedPipeEntrance})

sedtankpipe2_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

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

sedtank6_angle - specifies rotation angle.

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

rotate10 <- rotate_3d(p1,sedtankpipe3_origin,"z".sedtankpipe7_angle)

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

p1 =

x: sedtankpipe7_origin0
y: sedtankpipe7_origin1
z: sedtankpipe7_origin2 - outerradius(ND_{SedPipeEntrance})

sedtankpipe3_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

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

sedtank7_angle - specifies rotation angle.

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

rotate11 <- rotate_3d(p1,sedtankpipe4_origin,"z".sedtankpipe8_angle)

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

p1 =

x: sedtankpipe8_origin0
y: sedtankpipe8_origin1
z: sedtankpipe8_origin2 - outerradius(ND_{SedPipeEntrance})

sedtankpipe4_origin =

x: Plant_Origin0 - L_Sed + ElbowRadius(ND_{SedPipeEntrance})
y: Plant_Origin1 + W_Sed/2 + outerradius(ND_SedLaunder) + 1(W_Sed/2 - outerradius(ND{~}SedLaunder))/4
z: Plant_Origin2 + (W_Sed/2)*tank(AN_SedBottom) + ElbowRadius(ND_{SedPipeEntrance})

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

sedtank8_angle - specifies rotation angle.

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze4 - Layer_freeze locks the layer "elbow" so that it cannot be edited.

layerfreeze4 <- layer_freeze("elbow")

layer5 - Layer_new creates a new green layer "elbowa."

layer5 <- layer_new("elbowa",green)

elbow5 - Calls the Elbow Program to create an elbow.

elbow5 <- elbow(sedtankelbow5_origin,ND_{SedPipeEntrance},EN_PipeSpec)

sedtankelbow5_origin =

x: tank_origin0 - (7*L_Sed)/8 - ElbowRadius(ND_{SedPipeEntrance})
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_{SedPipeEntrance})
z: tank_origin2 + S_SedInlet + sedtankpipe9_length + ElbowRadius(ND_{SedPipeEntrance})

ND_{SedPipeEntrance} = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow

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

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

rotate14 <- rotate_3d(p1,p2,"x",90)

Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below.

p1 =

x: sedtankelbow5_origin0
y: sedtankelbow5_origin1 + ElbowRadius(ND_{SedPipeEntrance})
z: sedtankelbow5_origin2 + (innerD(ND_{SedPipeEntrance},EN_PipeSpec)/2)

p2 =

x: sedtankelbow5_origin0
y: sedtankelbow5_origin1 + ElbowRadius(ND_{SedPipeEntrance})
z: sedtankelbow5_origin2

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

90 - specifies rotation angle.

copy2 - CopyDa duplicates the selected objuect.

copy2 <- copyDa(p1,sedtankelbow5_origin,sedtankelbow6_origin,sedtankelbow7_origin,sedtankelbow8_origin)

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

p1 =

x: sedtankpipe9_origin0 - ElbowRadius(ND_{SedPipeEntrance})
y: sedtankpipe9_origin1
z: sedtankpipe9_origin2

sedtankelbow5_origin =

x: tank_origin0 - (7*L_Sed)/8 - ElbowRadius(ND_{SedPipeEntrance})
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_{SedPipeEntrance})
z: tank_origin2 + S_SedInlet + sedtankpipe9_length + ElbowRadius(ND_{SedPipeEntrance})

sedtankelbow6_origin =

x: tank_origin0 - (5*L_Sed)/8 - ElbowRadius(ND_{SedPipeEntrance})
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_{SedPipeEntrance})
z: tank_origin2 + S_SedInlet + sedtankpipe9_length + ElbowRadius(ND_{SedPipeEntrance})

sedtankelbow7_origin =

x: tank_origin0 - (3*L_Sed)/8 - ElbowRadius(ND_{SedPipeEntrance})
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_{SedPipeEntrance})
z: tank_origin2 + S_SedInlet + sedtankpipe9_length + ElbowRadius(ND_{SedPipeEntrance})

sedtankelbow8_origin =

x: tank_origin0 - (1*L_Sed)/8 - ElbowRadius(ND_{SedPipeEntrance})
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_{SedPipeEntrance})
z: tank_origin2 + S_SedInlet + sedtankpipe9_length + ElbowRadius(ND_{SedPipeEntrance}

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

rotate15 <- rotate_3d(p1,sedtankpipe9_origin,"z".sedtankpipe6_angle)

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

p1 =

x: sedtankpipe9_origin1 - outerradius(ND_{SedPipeEntrance})
y: sedtankpipe9_origin2
z: sedtankpipe10_origin0

sedtankelbow9_origin =

x: tank_origin0 - L_Sed + W_Channel + T_{ChannelWall + ElbowRadius(ND}SedLaunder~)
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_SedLaunder)
z: tank_origin2 + HW_Sed - H_SedAbove/2 - ElbowRadius(ND_SedLaunder)

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

sedtankpipe6{~}angle - specifies rotation angle.

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

rotate16 <- rotate_3d(p1,sedtankpipe10_origin,"z".sedtankpipe7_angle)

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

p1 =

x: sedtankpipe10_origin1 - outerradius(ND_{SedPipeEntrance})
y: sedtankpipe10_origin2
z: sedtankpipe11_origin0

sedtankelbow10_origin =

x: tank_origin0 - L_Sed + W_Channel + T{~}ChannelWall
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_SedLaunder)
z: tank_origin2 + H_Sed - H_Channel - T_Mp

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

sedtankpipe6{~}angle - specifies rotation angle.

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

rotate17 <- rotate_3d(p1,sedtankpipe11_origin,"z".sedtankpipe5_angle)

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

p1 =

x: sedtankpipe10_origin1 - outerradius(ND_{SedPipeEntrance})
y: sedtankpipe11_origin2
z: sedtankpipe12_origin0

sedtankpipe11_origin =

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

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

sedtankpipe5{~}angle - specifies rotation angle.

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

rotate18 <- rotate_3d(p1,sedtankpipe12_origin,"z".sedtankpipe8_angle)

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

p1 =

x: sedtankpipe12_origin0
y: sedtankpipe12_origin1 - outerradius(ND_{SedPipeEntrance})
z: sedtankpipe12_origin2

sedtankpipe12_origin =

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

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

sedtankpipe8{~}angle - specifies rotation angle.

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze5 - Layer_freeze locks the layer "elbowa" so that it cannot be edited.

layerfreeze5 <- layer_freeze("elbowa")

layer6 - Layer_freeze locks the layer "elbowb" so that it cannot be edited.

layer6 <- layer_new("elbowb",green)

elbow9 - Calls the Elbow Program to create an elbow.

elbow9 <- elbow(sedtankelbow9_origin,ND_SedLaunder,EN_PipeSpec)

sedtankelbow9_origin =

x: tank_origin0 - L_Sed + W_Channel + T_{ChannelWall + ElbowRadius(ND}SedLaunder~)
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_SedLaunder)
z: tank_origin2 + HW_Sed - H_SedAbove/2 - ElbowRadius(ND_SedLaunder)

ND_{SedPipeEntrance} = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow

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

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

rotate19 <- rotate_3d(p1,p2,"z",90)

Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below.

p1 =

x: sedtankelbow9_origin0
y: sedtankelbow9_origin1 + ElbowRadius(ND_SedLaunder)
z: sedtankelbow9_origin2 + (innerD(ND_SedLaunder,EN_PipeSpec)/2)

p2 =

x: sedtankelbow9_origin0
y: sedtankelbow9_origin1 + ElbowRadius(ND_SedLaunder)
z: sedtankelbow9_origin2

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

90 - specifies rotation angle.

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

rotate20 <- rotate_3d(p1,p2,"x",90)

Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below.

p1 =

x: sedtankelbow9_origin0
y: sedtankelbow9_origin1 + ElbowRadius(ND_SedLaunder)
z: sedtankelbow9_origin2 + (innerD(ND_SedLaunder,EN_PipeSpec)/2)

p2 =

x: sedtankelbow9_origin0
y: sedtankelbow9_origin1 + ElbowRadius(ND_SedLaunder)
z: sedtankelbow9_origin2

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

90 - specifies rotation angle.

elbow10 - Calls the Elbow Program to create an elbow.

elbow10 <- elbow(sedtankelbow10_origin,ND_SedLaunder,EN_PipeSpec)

sedtankelbow10_origin =

x: tank_origin0 - L_Sed + W_Channel + T{~}ChannelWall
y: tank_origin1 + W_Sed/2 - ElbowRadius(ND_SedLaunder)
z: tank_origin2 + H_Sed - H_Channel - T_Mp

ND_{SedPipeEntrance} = The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow

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

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

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

Note: p1 and p2 are dummy variables used only in the program help section to designate the matrix below.

p1 =

x: sedtankelbow10_origin0
y: sedtankelbow10_origin1 + ElbowRadius(ND_SedLaunder)
z: sedtankelbow10_origin2 + (innerD(ND_SedLaunder,EN_PipeSpec)/2)

p2 =

x: sedtankelbow10_origin0
y: sedtankelbow10_origin1 + ElbowRadius(ND_SedLaunder)
z: sedtankelbow10_origin2

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

-90 - specifies rotation angle.

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

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

layerfreeze6 <- layer_freeze("elbowb")