Lamina Drawing Script

layer7 - Layer_new creates a new purple layer "lamina."

layer7 <- layer_new("lamina",purple)

lamina1 - Calls the Lamina Program to create lamella.

lamina1 <-lamina(lamina_origin,Amp_SedPlate,W_Sed,L_SedPlate,T_SedPlate,Per_SedPlate,AN_SedPlate,N_SedPlates,N_SedPlateCol,-B_{SedPlateHorizontal},Y_SedPlate)

lamina_origin =

• if layout1:
  • x: tank_origin0
  • y: tank_origin1
  • z: tank_origin2 + H_SedBelow

• if layout2:
  • x: tank_origin0 - W_EChannel
  • y: tank_origin1
  • z: tank_origin2 + H_SedBelow

• if layout3:
  • x: tank_origin0
  • y: tank_origin1
  • z: tank_origin2 + H_SedBelow

• if layout4:
  • x: tank_origin0
  • y: tank_origin1
  • z: tank_origin2 + H_SedBelow

Amp_SedPlate - Degree lamella is installed relative to the horizontal (so flocs slide down lamella.)

W_Sed - Width of sedimentation tank.

L_SedPlate - Length of plate settlers in the sedimentation tank.

T_SedPlate - Thickness of plate settlers.

Per_SedPlate - Period of the curves for the plate settlers.

AN_SedPlate - Degree lamella is installed relative to the horizontal (so flocs slide down lamella.)

N_SedPlates - Number of plate settlers in sed tank.

N_SedPlateCol - Number of columns of sedimentation tank lamina when arrayed (always set to 1 since lamina are drawn one tank at a time.)

B_{SedPlateHorizontal} - Horizontal spacing between sedimentation plates.

Y_SedPlate - Vertical height of the sedimentation plates.

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze - Layer_freeze locks the layer "lamina" so that it cannot be edited.

layerfreeze <- layer_freeze("lamina")