h1. Inlet Pipe Drawing Script - layout 1

*viewtops* \-

viewtops <\- viewtop1

*layerthawc* \-

layerthawc <\- layer{~}thaw~("channel")

*layersetc* \-

layersetc <\- layer{~}set~("channel")
{float:left|border=2px solid black}
[!cylinder1.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder1* \-

cylinder1 <\- cylinderA(sedtankpipe1{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
\\
\\
{float:left|border=2px solid black}
[!cylinder2.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder2* \-

cylinder2 <\- cylinderA(sedtankpipe2{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
\\
\\
{float:left|border=2px solid black}
[!cylinder3.bmp|width=500px!|AutoCAD Channel Program]
Northeast Isometric View
{float}
*cylinder3* \-

cylinder3 <\- cylinderC(sedtankpipe3{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)
\\
\\
*cylinder4* \-

cylinder4 <\- cylinderA(sedtankpipe4{~}origin~,outerradius(ND{~}SedPipeEntrance~),-T{~}ChannelWall~)

*subtract1* \-

subtract1 <\- subtractH(channel{~}origin~,p1,p2)

p1 =
* x: sedtankpipe1{~}origin0~ + outerradius(ND{~}SedPipeEntrance~)
* y: sedtankpipe1{~}origin1~ + outerradius(ND{~}SedPipeEntrance~)
* z: sedtankpipe1{~}origin2~

p2 =
* x: sedtankpipe4{~}origin0~ \- outerradius(ND{~}SedPipeEntrance~)
* y: sedtankpipe4{~}origin1~ \- outerradius(ND{~}SedPipeEntrance~)
* z: sedtankpipe4{~}origin2~

*holes2* \-

holes2 <\- concat(cylinder1,cylinder2,cylinder3)

*holes3* \-

holes3 <\- concat(cylinder4,subtract1)

*layerset* \-

layerset <\- layer{~}set~("0")

*layerfreeze* \-

layerfreeze <\- layer{~}freeze~("channel")

*layer3* \-

layer3 <\- layer{~}new~("pipe",blue)

*pipe1* \-

pipe1 <\- Pipe(sedtankpipe1{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)

*pipe2* \-

pipe2 <\- Pipe(sedtankpipe2{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)

*pipe3* \-

pipe3 <\- Pipe(sedtankpipe3{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)

*pipe4* \-

pipe4 <\- Pipe(sedtankpipe4{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe1{~}length~,EN{~}PipeSpec~)

*pipe5* \-

pipe5 <\- Pipe(sedtankpipe5{~}origin~,ND{~}SedPipeEntrance~,-sedtankpipe5{~}length~,EN{~}PipeSpec~)

*rotatepipe5* \-

rotatepipe5 <\- rotate{~}3d~(p1,sedtankpipe5{~}origin~,"y",90)

p1 =
* x: sedtankpipe5{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe5{~}origin1~
* z: sedtankpipe5{~}origin2~

*rotate2a* \- rotate{~}3d~(p1,sedtankpipe1{~}origin~,"z",sedtankpipe5{~}angle~)

p1 =
* x: sedtankpipe5{~}origin0~
* y: sedtankpipe5{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe5{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2

*pipe6* \-

pipe6 <\- Pipe(sedtankpipe6{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe6{~}length~,EN{~}PipeSpec~)

*rotate3* \-

rotate3 <\- rotate{~}3d~(p1,sedtankpipe6{~}origin~,"y",90)

p1 =
* x: sedtankpipe{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe5{~}origin1~
* z: sedtankpipe5{~}origin0~

*rotate3a* \-

rotate3a <\- rotate{~}3d~(p1,sedtankpipe2{~}origin~,"z",sedtankpipe6{~}angle~)

p1 =
* x: sedtankpipe6{~}origin0~
* y: sedtankpipe6{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe6{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2

*pipe7* \-

pipe7 <\- Pipe(sedtank7{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe7{~}length~,EN{~}PipeSpec~)

*rotate4* \-

rotate4 <\- rotate{~}3d~(p1,sedtankpipe7{~}origin~,"y",90)

p1 =
* x: sedtankpipe7{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe7{~}origin1~
* z: sedtankpipe7{~}origin2~

*rotate4a* \-

rotate4a <\- rotate{~}3d~(p1,sedtankpipe3{~}origin~,"z",sedtankpipe7{~}angle~)
* x: sedtankpipe7{~}origin0~
* y: sedtankpipe7{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe7{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2

*pipe8* \-

pipe8 <\- Pipe(sedtankpipe8{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe8{~}length~,EN{~}PipeSpec~)

*rotate5* \-

rotate5 <\- rotate{~}3d~(p1,sedtankpipe8{~}origin~,"y",90)

p1 =
* x: sedtankpipe8{~}origin0~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* y: sedtankpipe8{~}origin1~
* z: sedtankpipe8{~}origin2~

*rotate5a* \-

rotate5a <\- rotate{~}3d~(p1,sedtankpipe4{~}origin~,"z",sedtankpipe8{~}angle~)

p1 =
* x: sedtankpipe8{~}origin0~
* y: sedtankpipe8{~}origin1~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2
* z: sedtankpipe8{~}origin2~ + innerD(ND{~}SedPipeEntrance~,EN{~}PipeSpec~)/2

*pipe9* \-

pipe9 <\- Pipe(sedtankpipe9{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)

*pipe10* \-

pipe10 <\- Pipe(sedtankpipe10{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)

*pipe11* \-

pipe11 <\- Pipe(sedtankpipe11{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)

*pipe12* \-

pipe12 <\- Pipe(sedtankpipe12{~}origin~,ND{~}SedPipeEntrance~,sedtankpipe9{~}length~,EN{~}PipeSpec~)

*layerfreeze2* \-

layerfreeze2 <\- layer{~}freeze~("pipe")

*cylinder5* \-

cylinder5 <\- cylinderA(sedtankpipe14{~}origin~,outerradius(ND{~}SedLaunder~),-T{~}PlantWall~)

*rotate2* \-

rotate2 <\- rotae{~}3d~(p1,sedtankpipe14{~}origin~,"y",90)

p1 =
* x: sedtankpipe14{~}origin0~ + outerradius(ND{~}SedLaunder~)
* y: sedtankpipe14{~}origin1~
* z: sedtankpipe14{~}origin2~

*subtract2* \-

subtract2 <\- subtractD(Plant{~}Origin~,p1)

p1 =
* x: sedtankpipe14{~}origin0~
* y: sedtankpipe14{~}origin1~ + outerradius(ND{~}SedLaunder~)
* z: sedtankpipe14{~}origin2~

*holes1* \-

holes1 <\- concat(cylinder5,rotate2)

*layerthawp* \-

layerthawp <-layer{~}thaw~("pipe")

*layersetp* \-

layersetp <\- layer{~}set~("pipe")

*pipe13* \-

pipe13 <\- Pipe(sedtankpipe13{~}origin~,ND{~}SedLaunder~,sedtankpipe13{~}length~,EN{~}PipeSpec~)

*pipe14* \-

pipe14 <\- Pipe(sedtankpipe14{~}origin~,ND{~}SedLaunder~,sedtankpipe14{~}length~,EN{~}PipeSpec~)

*rotate6* \- rotate{~}3d~(p1,sedtankpipe14{~}origin~,"y",90)

p1 =
* x: sedtankpipe14{~}origin0~ + innerD(ND{~}SedLaunder~,EN{~}PipeSpec~)/2
* y: sedtankpipe14{~}origin1~
* z: sedtankpipe14{~}origin2~

*layerfreeze3* \-

layerfreeze3 <\- layer{~}freeze~("pipe")