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

*if statement* \- if L{~}slot~ = 0, the script will not be executed

*local* \- [Layer{~}new~|AutoCAD Basics Layer] creates a new dark grey layer, "flocchannelslot"

local <\- layer{~}new~("flocchannelslot", dkgrey)

*layerthaw4* \- layer{~}thaw~ 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

*slot{*}{*}{~}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~

*slot{*}{*}{~}dim i{~}* =
* x: T{~}FlocBaffle~
* y: W{~}FlocChannel~ + 2*L{~}slot~
* z: H{~}Floc~ \- Z{~}FlocBaffles i,j~

*boxslots* \- makes the boxes to be subtracted from the floctankwall

boxslots <\- box(slot{~}origin i~,slot{~}origin i~ + slot{~}dim i~)

*subtract4* \- subtracts each drawn slot from the floctankwall

subtract4 <\- subtractD(floc{~}origin~,slot{~}origin i~)

*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{~}FlocBaffle~, baffle{~}length i~, T{~}FlocBaffle~, Per{~}FlocBaffle~,AN{~}FlocBaffle~, N{~}Baffle~, N{~}FlocBaffleCol~, X{~}FlocBaffle~, Y{~}FlocBaffle~)) if Baffle{~}complex~ *=* 1

local <\- stack(local(laminaplain1(baffle{~}origin i~, W{~}FlocBaffle~, baffle{~}length i~, T{~}FlocBaffle~, AN{~}FlocBaffle~, N{~}Baffle~, N{~}FlocBaffleCol~, X{~}FlocBaffle~)) if Baffle{~}complex~ *=* 1 otherwise