Sedimentation Tank Arraying Script

layerthaw1 -

layerthaw1 <- layer_thaw("slopes")

layerthaw2 -

layerthaw2 <- layer_thaw("channel")

layerthaw2e -

layerthaw2e <- layer_thaw("echannel")

layerthaw3 -

layerthaw3 <- layer_thaw("pipe")

layerthaw4 -

layerthaw4 <- layer_thaw("elbow")

layerthaw4a -

layerthaw4a <- layer_thaw("elbowa")

layerthaw4b -

layerthaw4b <- layer_thaw("elbowb")

layerthaw5 -

layerthaw5 <- layer_thaw("manifold")

layerthaw6 -

layerthaw6 <- layer_thaw("sludgepipe")

layerthaw7 -

layerthaw7 <- layer_thaw("lamina")

layerthaw8 -

layerthaw8 <- layer_thaw("inletpipes")

layerthaw8is -

layerthaw8is <- layer_thaw("inletslopes")

viewtop -

viewtop <- viewtop1

layerfreeze7 -

layerfreeze7 <- layer_freeze1("pipe")

layerfreeze8 -

layerfreeze8 <- layer_freeze("elbow")

layerfreeze8a -

layerfreeze8a <- layer_freeze("elbow1")

layerfreeze8b -

layerfreeze8b <- layer_freeze("elbowb")

layerfreeze9 -

layerfreeze9 <- layer_freeze("sludgepipe")

layerfreeze10 -

layerfreeze10 <- layer_freeze("manifold")

layerfreeze12 -

layerfreeze12 <- layer_freeze("lamina")

layerfreeze13 -

layerfreeze13 <- layer_freeze("inletpipes")

layerfreeze14 -

layerfreeze14 <- layer_freeze("channel")

layerfreeze15 -

layerfreeze15 <- layer_freeze("echannel")

layerfreeze15is -

layerfreeze15is <- layer_freeze("inletslopes")

bigunion -

bigunion <- union_allA

layerset -

layerset <- layer_set("0"0

layerfreeze16 -

layerfreeze16 <- layer_freeze("slopes")