layer1 -

layer1 <- layer_new("tank",grey)

tank1 -

tank1 <- Tank(tank_origin,tank_dim,tank_thick)

cylinder5 -

cylinder5 <- cylinderA(sedtankpipe14_origin,outerradius(2*manifold_inr),-tank_thick)

rotate2 -

rotate2 <- rotate_3d(p1,sedtankpipe14_origin,"y",90)

p1 =

• x: sedtankpipe14_origin0 + manifold_inr)
• y:sedtankpipe14_origin1
• z:sedtankpipe14_origin2

subtract2 -

subtract2 <- subtractD(tank_origin,p1)

p1 =

• x: sedtankpipe14_origin0
• y: sedtankpipe14_origin1 + manifold_inr)
• z: sedtankpipe1_origin2

holes1 -

holes1 <- concat(cylinder5,rotate2)

layerset -

layerset <- layer_set("0")

layerfreeze1 -

layerfreeze1 <- layer_freeze("tank")

layerslopes -

layerslopes <- layer_new("slopes",ltgrey)

slopes -

slopes <- sedslope(tank_origin,tank_dim,ϕ)