Tank Slope Drawing Script
layerslopes - Layernew creates a new light grey layer, "slopes."
layerslopes <- layernew("slopes",ltgrey)
slopes - Calls the Sedimentation Tank Slopes Program to draw the tank slopes based on three inputs.
slopes <- sedslope(SedSlopesOrigin,p1,ANSedBottom)
SedSlopesOrigin =
- x: PlantOrigin0
- y: PlantOrigin1
- z: PlantOrigin2
p1 =
- x: LSed
- y: WSed
- z: HSed
ANSedBottom = 10 deg
tankthaw - Layerthaw unlocks the "tank" layer so that edits can be made.
tankthaw <- layerthaw("tank")
bigunion -
bigunion <- unionallA
box1 -
box1 <- box(sedtankbox1origin, sedtankbox1origin + sedtankbox1dim)
tankthaw -
tankthaw <- layerthaw("tank")
subtractbox -
subtractbox <- subtractJ(PlantOrigin,p1,p2,sedtankbox1origin)
layerset -
layerset <- layerset("0")
layerfreezeslope -
layerfreezeslope <- layerfreeze("slopes")