Elbow Drawing Script

layer4 -

layer4 <- layer{~}new("elbow",green)

elbow1 -

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

rotate6 -

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

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 -

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

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 -

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

p1 =

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

rotate8 -

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

p1 =

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

rotate9 -

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

p1 =

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

rotate10 -

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

p1 =

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

rotate11 -

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

p1 =

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

layerset -

layerset <- layer_set("0")

layerfreeze4 -

layerfreeze4 <- layer_freeze("elbow")

layer5 -

layer5 <- layer_new("elbowa",green)

elbow5 -

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

rotate14 -

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

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

copy2 -

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

p1 =

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

rotate15 -

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

p1 =

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

rotate16 -

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

p1 =

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

rotate17 -

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

p1 =

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

rotate18 -

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

p1 =

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

layerset -

layerset <- layer_set("0")

layerfreeze5 -

layerfreeze5 <- layer_freeze("elbowa")

layer6 -

layer6 <- layer_new("elbowb",green)

elbow9 -

elbow9 <- elbow(sedtankelbow9_origin,ND_SedLaunder,EN_PipeSpec)

rotate19 -

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

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

rotate20 -

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

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

elbow10 -

elbow10 <- elbow(sedtankelbow10_origin,ND_SedLaunder,EN_PipeSpec)

rotate21 -

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

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

layerset -

layerset <- layer_set("0")

layerfreeze6 -

layerfreeze6 <- layer_freeze("elbowb")