General Program Information
Technical Program Outline
local - Layernew creates a new light purple layer, "baffle"
local <- layernew("baffle", ltpurple)
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 determines the origin point of each baffle in column j and the length of each baffle
baffleorigin i =
- x: PlantOrigin0 - LSed + XFlocBaffles i,j
- y: -Lslot - YFlocBaffles 0,j
- z: PlantOrigin2 + ZFlocBaffles i,j
bafflelength i = LFlocBaffles i,j (Defined in Flocculator 3)
if/otherwise statement - this statement determines the type of lamina that will be used to draw the baffles
local <- stack(local(lamina(baffleorigin i, AmpFlocBaffle, WFlocChannel + 2*Lslot, bafflelength i, TFlocBaffle, PerFlocBaffle,ANFlocBaffle - 60deg, NBaffle, NFlocBaffleCol, XFlocBaffle, YFlocBaffle)) if Bafflecomplex = 1
local <- stack(local(laminaplain1(baffleorigin i, WFlocChannel + 2*Lslot, bafflelength i, TFlocBaffle, ANFlocBaffle - 60deg, NBaffle, NFlocBaffleCol, XFlocBaffle)) if Bafflecomplex = 1 otherwise