General Program Information
Technical Program Outline
if statement - if Lslot = 0, the script will not be executed
local - Layernew creates a new dark grey layer, "flocchannelslot"
local <- layernew("flocchannelslot", dkgrey)
layerthaw4 - layerthaw thaws floctankwall for editing
for loop - this loop counts the number of baffles per channel
x(j) - returns the number of channels in column j
for loop - this loop assigns the appropriate origin and dimension to each slot. Each slot is then drawn and subtracted from the floctankwall
slotorigin i =
- x: PlantOrigin0 - LSed + XFlocBaffles i,j
- y: -Lslot + YFlocBaffles 0,j
- z: PlantOrigin2 + ZFlocBaffles i,j
slotdim i =
- x: TFlocBaffle
- y: WFlocChannel + 2*Lslot
- z: HFloc - ZFlocBaffles i,j
boxslots - makes the boxes to be subtracted from the floctankwall
boxslots <- box(slotorigin i,slotorigin i + slotdim i)
subtract4 - subtracts each drawn slot from the floctankwall
subtract4 <- subtractD(flocorigin,slotorigin i)
local <- stack(local,layerthaw4,boxslots,subtract4)
layerfreeze5 - layerfreeze freezes flocktankwall for editing
layerfreeze5 <- layerfreeze("floctankwall")
local <- stack(local,layerfreeze5)
return local