Elbow Drawing Script
layer4 -
layer4 <- layer{~}new("elbow",green)
elbow1 -
elbow1 <- elbow(sedtankelbow1origin,NDSedPipeEntrance,ENPipeSpec)
rotate6 -
rotate6 <- rotate3d(p1,p2,"x",-90)
p1 =
- x: sedtankelbow1origin0
- y: sedtankelbow1origin1 + ElbowRadius(NDSedPipeEntrance)
- z: sedtankelbow1origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
p2 =
- x: sedtankelbow1origin0
- y: sedtankelbow1origin1 + ElbowRadius(NDSedPipeEntrance)
- z: sedtankelboworigin2
"x" - specifies axis that object will be rotated about.
-90 - rotation angle
rotate7 -
rotate7 <- rotate3d(p1,p2,"y",90)
p1 =
- x: sedtankelbow1origin0
- y: sedtankelbow1origin1 + ElbowRadius(NDSedPipeEntrance)
- z: sedtankelbow1origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
p2 =
- x: sedtankelbow1origin0
- y: sedtankelbow1origin1 + ElbowRadius(NDSedPipeEntrance)
- z: sedtankelboworigin2
"y" - specifies axis that object will be rotated about.
90 - rotation angle
copy1 -
copy1 <- copyDa(p1,sedtankpipe5origin,sedtankpipe6origin,sedtankpipe7origin,sedtankpipe8origin)
p1 =
- x: sedtankpipe5origin0
- y: sedtankpipe5origin1
- z: sedtankpipe5origin2 - outerradius(NDSedPipeEntrance)
rotate8 -
rotate8 <- rotate3d(p1,sedtankpipe1origin,"z".sedtankpipe5angle)
p1 =
- x: sedtankpipe5origin0
- y: sedtankpipe5origin1
- z: sedtankpipe5origin2 - outerradius(NDSedPipeEntrance)
rotate9 -
rotate9 <- rotate3d(p1,sedtankpipe2origin,"z".sedtankpipe6angle)
p1 =
- x: sedtankpipe6origin0
- y: sedtankpipe6origin1
- z: sedtankpipe6origin2 - outerradius(NDSedPipeEntrance)
rotate10 -
rotate10 <- rotate3d(p1,sedtankpipe3origin,"z".sedtankpipe7angle)
p1 =
- x: sedtankpipe7origin0
- y: sedtankpipe7origin1
- z: sedtankpipe7origin2 - outerradius(NDSedPipeEntrance)
rotate11 -
rotate11 <- rotate3d(p1,sedtankpipe4origin,"z".sedtankpipe8angle)
p1 =
- x: sedtankpipe8origin0
- y: sedtankpipe8origin1
- z: sedtankpipe8origin2 - outerradius(NDSedPipeEntrance)
layerset -
layerset <- layerset("0")
layerfreeze4 -
layerfreeze4 <- layerfreeze("elbow")
layer5 -
layer5 <- layernew("elbowa",green)
elbow5 -
elbow5 <- elbow(sedtankelbow5origin,NDSedPipeEntrance,ENPipeSpec)
rotate14 -
rotate14 <- rotate3d(p1,p2,"x",90)
p1 =
- x: sedtankelbow5origin0
- y: sedtankelbow5origin1 + ElbowRadius(NDSedPipeEntrance)
- z: sedtankelbow5origin2 + (innerD(NDSedPipeEntrance,ENPipeSpec)/2)
p2 =
- x: sedtankelbow5origin0
- y: sedtankelbow5origin1 + ElbowRadius(NDSedPipeEntrance)
- z: sedtankelbow5origin2
copy2 -
copy2 <- copyDa(p1,sedtankelbow5origin,sedtankelbow6origin,sedtankelbow7origin,sedtankelbow8origin)
p1 =
- x: sedtankpipe9origin0 - ElbowRadius(NDSedPipeEntrance)
- y: sedtankpipe9origin1
- z: sedtankpipe9origin2
rotate15 -
rotate15 <- rotate3d(p1,sedtankpipe9origin,"z".sedtankpipe6angle)
p1 =
- x: sedtankpipe9origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe9origin2
- z: sedtankpipe10origin0
rotate16 -
rotate16 <- rotate3d(p1,sedtankpipe10origin,"z".sedtankpipe7angle)
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe10origin2
- z: sedtankpipe11origin0
rotate17 -
rotate17 <- rotate3d(p1,sedtankpipe11origin,"z".sedtankpipe5angle)
p1 =
- x: sedtankpipe10origin1 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe11origin2
- z: sedtankpipe12origin0
rotate18 -
rotate18 <- rotate3d(p1,sedtankpipe12origin,"z".sedtankpipe8angle)
p1 =
- x: sedtankpipe12origin0
- y: sedtankpipe12origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe12origin2
layerset -
layerset <- layerset("0")
layerfreeze5 -
layerfreeze5 <- layerfreeze("elbowa")
layer6 -
layer6 <- layernew("elbowb",green)
elbow9 -
elbow9 <- elbow(sedtankelbow9origin,NDSedLaunder,ENPipeSpec)
rotate19 -
rotate19 <- rotate3d(p1,p2,"z",90)
p1 =
- x: sedtankelbow9origin0
- y: sedtankelbow9origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow9origin2 + (innerD(NDSedLaunder,ENPipeSpec)/2)
p2 =
- x: sedtankelbow9origin0
- y: sedtankelbow9origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow9origin2
rotate20 -
rotate20 <- rotate3d(p1,p2,"x",90)
p1 =
- x: sedtankelbow9origin0
- y: sedtankelbow9origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow9origin2 + (innerD(NDSedLaunder,ENPipeSpec)/2)
p2 =
- x: sedtankelbow9origin0
- y: sedtankelbow9origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow9origin2
elbow10 -
elbow10 <- elbow(sedtankelbow10origin,NDSedLaunder,ENPipeSpec)
rotate21 -
rotate21 <- rotate3d(p1,p2,"x",-90)
p1 =
- x: sedtankelbow10origin0
- y: sedtankelbow10origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow10origin2 + (innerD(NDSedLaunder,ENPipeSpec)/2)
p2 =
- x: sedtankelbow10origin0
- y: sedtankelbow10origin1 + ElbowRadius(NDSedLaunder)
- z: sedtankelbow10origin2
layerset -
layerset <- layerset("0")
layerfreeze6 -
layerfreeze6 <- layerfreeze("elbowb")