Inlet Pipe Drawing Script - layout 1
viewtops -
viewtops <- viewtop1
layerthawc -
layerthawc <- layerthaw("channel")
layersetc -
layersetc <- layerset("channel")
cylinder1 -
cylinder1 <- cylinderA(sedtankpipe1origin,outerradius(NDSedPipeEntrance),-TChannelWall)
cylinder2 -
cylinder2 <- cylinderA(sedtankpipe2origin,outerradius(NDSedPipeEntrance),-TChannelWall)
cylinder3 -
cylinder3 <- cylinderC(sedtankpipe3origin,outerradius(NDSedPipeEntrance),-TChannelWall)
cylinder4 -
cylinder4 <- cylinderA(sedtankpipe4origin,outerradius(NDSedPipeEntrance),-TChannelWall)
subtract1 -
subtract1 <- subtractH(channelorigin,p1,p2)
p1 =
- x: sedtankpipe1origin0 + outerradius(NDSedPipeEntrance)
- y: sedtankpipe1origin1 + outerradius(NDSedPipeEntrance)
- z: sedtankpipe1origin2
p2 =
- x: sedtankpipe4origin0 - outerradius(NDSedPipeEntrance)
- y: sedtankpipe4origin1 - outerradius(NDSedPipeEntrance)
- z: sedtankpipe4origin2
holes2 -
holes2 <- concat(cylinder1,cylinder2,cylinder3)
holes3 -
holes3 <- concat(cylinder4,subtract1)
layerset -
layerset <- layerset("0")
layerfreeze -
layerfreeze <- layerfreeze("channel")
layer3 -
layer3 <- layernew("pipe",blue)
pipe1 -
pipe1 <- Pipe(sedtankpipe1origin,NDSedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
pipe2 -
pipe2 <- Pipe(sedtankpipe2origin,NDSedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
pipe3 -
pipe3 <- Pipe(sedtankpipe3origin,NDSedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
pipe4 -
pipe4 <- Pipe(sedtankpipe4origin,NDSedPipeEntrance,-sedtankpipe1length,ENPipeSpec)
pipe5 -
pipe5 <- Pipe(sedtankpipe5origin,NDSedPipeEntrance,-sedtankpipe5length,ENPipeSpec)
rotatepipe5 -
rotatepipe5 <- rotate3d(p1,sedtankpipe5origin,"y",90)
p1 =
- x: sedtankpipe5origin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe5origin1
- z: sedtankpipe5origin2
rotate2a - rotate3d(p1,sedtankpipe1origin,"z",sedtankpipe5angle)
p1 =
- x: sedtankpipe5origin0
- y: sedtankpipe5origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe5origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
pipe6 -
pipe6 <- Pipe(sedtankpipe6origin,NDSedPipeEntrance,sedtankpipe6length,ENPipeSpec)
rotate3 -
rotate3 <- rotate3d(p1,sedtankpipe6origin,"y",90)
p1 =
- x: sedtankpipeorigin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe5origin1
- z: sedtankpipe5origin0
rotate3a -
rotate3a <- rotate3d(p1,sedtankpipe2origin,"z",sedtankpipe6angle)
p1 =
- x: sedtankpipe6origin0
- y: sedtankpipe6origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe6origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
pipe7 -
pipe7 <- Pipe(sedtank7origin,NDSedPipeEntrance,sedtankpipe7length,ENPipeSpec)
rotate4 -
rotate4 <- rotate3d(p1,sedtankpipe7origin,"y",90)
p1 =
- x: sedtankpipe7origin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe7origin1
- z: sedtankpipe7origin2
rotate4a -
rotate4a <- rotate3d(p1,sedtankpipe3origin,"z",sedtankpipe7angle)
- x: sedtankpipe7origin0
- y: sedtankpipe7origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe7origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
pipe8 -
pipe8 <- Pipe(sedtankpipe8origin,NDSedPipeEntrance,sedtankpipe8length,ENPipeSpec)
rotate5 -
rotate5 <- rotate3d(p1,sedtankpipe8origin,"y",90)
p1 =
- x: sedtankpipe8origin0 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- y: sedtankpipe8origin1
- z: sedtankpipe8origin2
rotate5a -
rotate5a <- rotate3d(p1,sedtankpipe4origin,"z",sedtankpipe8angle)
p1 =
- x: sedtankpipe8origin0
- y: sedtankpipe8origin1 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
- z: sedtankpipe8origin2 + innerD(NDSedPipeEntrance,ENPipeSpec)/2
pipe9 -
pipe9 <- Pipe(sedtankpipe9origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
pipe10 -
pipe10 <- Pipe(sedtankpipe10origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
pipe11 -
pipe11 <- Pipe(sedtankpipe11origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
pipe12 -
pipe12 <- Pipe(sedtankpipe12origin,NDSedPipeEntrance,sedtankpipe9length,ENPipeSpec)
layerfreeze2 -
layerfreeze2 <- layerfreeze("pipe")
cylinder5 -
cylinder5 <- cylinderA(sedtankpipe14origin,outerradius(NDSedLaunder),-TPlantWall)
rotate2 -
rotate2 <- rotae3d(p1,sedtankpipe14origin,"y",90)
p1 =
- x: sedtankpipe14origin0 + outerradius(NDSedLaunder)
- y: sedtankpipe14origin1
- z: sedtankpipe14origin2
subtract2 -
subtract2 <- subtractD(PlantOrigin,p1)
p1 =
- x: sedtankpipe14origin0
- y: sedtankpipe14origin1 + outerradius(NDSedLaunder)
- z: sedtankpipe14origin2
holes1 -
holes1 <- concat(cylinder5,rotate2)
layerthawp -
layerthawp <-layerthaw("pipe")
layersetp -
layersetp <- layerset("pipe")
pipe13 -
pipe13 <- Pipe(sedtankpipe13origin,NDSedLaunder,sedtankpipe13length,ENPipeSpec)
pipe14 -
pipe14 <- Pipe(sedtankpipe14origin,NDSedLaunder,sedtankpipe14length,ENPipeSpec)
rotate6 - rotate3d(p1,sedtankpipe14origin,"y",90)
p1 =
- x: sedtankpipe14origin0 + innerD(NDSedLaunder,ENPipeSpec)/2
- y: sedtankpipe14origin1
- z: sedtankpipe14origin2
layerfreeze3 -
layerfreeze3 <- layerfreeze("pipe")