h3. General Program Information
{float:left|border=2px solid black}
[!Segment of floc tank.PNG|width=300px!|AutoCAD Channel Program]
Segment of Floc Tank
{float}\\
\\
h3. Technical Program Outline
*local* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new light purple layer, "baffle"
local <\- layer{~}new~("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
*baffle{*}{*}{~}origin i{~}* =
* x: Plant{~}Origin0~ \- L{~}Sed~ + X{~}FlocBaffles i,j~
* y: -L{~}slot~ \- Y{~}FlocBaffles 0,j~
* z: Plant{~}Origin2~ + Z{~}FlocBaffles i,j~
*baffle{*}{*}{~}length i{~}* = L{~}FlocBaffles 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(baffle{~}origin i~, Amp{~}FlocBaffle~, W{~}FlocChannel~ + 2*L{~}FlocBaffle~slot~, baffle{~}length i~, T{~}FlocBaffle~, Per{~}FlocBaffle~,AN{~}FlocBaffle~ \- 60deg, N{~}Baffle~, N{~}FlocBaffleCol~, X{~}FlocBaffle~, Y{~}FlocBaffle~)) if Baffle{~}complex~ *=* 1
local <\- stack(local(laminaplain1(baffle{~}origin i~, W{~}FlocBaffle~FlocChannel~ + 2*L{~}slot~, baffle{~}length i~, T{~}FlocBaffle~, AN{~}FlocBaffle~ \- 60deg, N{~}Baffle~, N{~}FlocBaffleCol~, X{~}FlocBaffle~)) if Baffle{~}complex~ *=* 1 otherwise | 