Tank Slope Drawing Script

layerslopes - Layer_new creates a new light grey layer, "slopes."

layerslopes <- layer_new("slopes",ltgrey)

slopes - Calls the Sedimentation Tank Slopes Program to draw the tank slopes based on three inputs.

slopes <- sedslope(SedSlopes_Origin,p1,AN_SedBottom)

SedSlopes_Origin =

• x: Plant_Origin0
• y: Plant_Origin1
• z: Plant_Origin2

p1 =

• x: L_Sed
• y: W_Sed
• z: H_Sed

AN_SedBottom = 10 deg

tankthaw - Layer_thaw unlocks the "tank" layer so that edits can be made.

tankthaw <- layer_thaw("tank")

bigunion -

bigunion <- union_allA

box1 -

box1 <- box(sedtankbox1_origin, sedtankbox1_origin + sedtankbox1_dim)

tankthaw -

tankthaw <- layer_thaw("tank")

subtractbox -

subtractbox <- subtractJ(Plant_Origin,p1,p2,sedtankbox1_origin)

layerset -

layerset <- layer_set("0")

layerfreezeslope -

layerfreezeslope <- layer_freeze("slopes")