Sedechanneltankscript

viewtope -

viewtope <- viewtop1

layernewect -

layernewext <-layer_new("echanneltank",ltgrey)

tankect -

tankect <-Tank(echanneltank_origin,echanneltank_dim,T_PlantWall)

boxect -

boxect <-box(echanneltank_origin,echanneltank_origin + echannelbox_dim)

bigunion -

bigunion <-union_allA

boxect -

boxect <- box(echannelbox_origin,echannelbox_origin + echannelbox_dim)

subtractect -

subtractect <- subtractD(echanneltank_origin,echannelbox_origin)

layerset -

layerset <-layer_set("0")

layerfreezeect -

layerfreezeect <-layer_freeze("echanneltank")

layernewewe -

layernewewe <- layer_new("exitweirelbow",green)

elbowewe -

elbowewe <-elbow(sedtankexitweirelbow_origin,ND_PltWeir,EN_PipeSpec)

rotateewe1 -

rotateewe1 <- rotate_3d(p1,sedtankexitweirelbow_origin,"y",90)

p1 =

rotateewe2 -

rotateewe2 <- rotate_3d(p1,sedtankexitweirelbow_origin,"z",90)

p1 =

x: sedtankexitweirelbow_origin0
y: sedtankexitweirelbow_origin1 + ElbowRadius(ND_PltWeir) - outerradius(ND_PltWeir)
z: sedtankexitweirelbow_origin2

copyewe -

copyewe <- copyB(exitweirpipecopy1_point,exitweirpipecopy1_point,exitweirpipecopy2_point)

layerfreezeewp -

layerfreezeewp <- layer_freeze("exitweir")