Sedichanneltankscript

viewtopi - Rotates workspace so that object is being viewed from the top.

viewtop <- viewtop1

layernewict - Layer_new creates a new light grey layer, "ichanneltank."

layernewict <- layer_new("ichanneltank",ltgrey)

tankict - Calls the Tank Program to draw a tank.

tankict <- Tank(ichanneltank_origin,ichanneltank_dim,T_PlantWall)

boxictb - Creates a box based on two points.

boxictb <- box(channelbox_origin,channelbox_origin + channelbox_dim)

channelbox_origin =

channelbox_dim =

subtractict - SubtractD subtracts one object from the other based on two points.

subtractict <- subtractD(ichanneltank_origin,channelbox_origin)

channelbox_origin =

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreezeict - Layer_freeze locks the layer "ichanneltank" so that it cannot be edited."

layerfreezeict <- layer_freeze("ichanneltank")

layernewiwe - Layer_new creates a new green layer, "inletweirelbow."

layernewiwe <- layer_new("inletweirelbow",green)

elbowiwe - Calls the Elbow Program to draw an elbow.

elbowiwe <- elbow(sedtankinletweirelbow_origin,ND_PltWeir,EN_Spec)

rotateiwe1 -

rotateiwe1 <- rotate_3d(p1,sedtankinletweirelbow_origin,"y",90)

p1 =

rotateiwe2 - Rotate_3d rotates the selected object by the designated degrees.

rotateiwe2 <- (p1,sedtankinletweirelbow_origin,"z",90)

p1 =

x: sedtankinletweirelbow_origin0
y: sedtankinletweirelbow_origin1 + ElbowRadius(NE_PltWeir) - outerradius(ND_PltWeir)
z: sedtankinletweirelbow_origin2

layerfreezeiwe - Layer_freeze locks the layer "inletweirelbow" so that it cannot be edited.

layerfreezeiwe <- layer_freeze("inletweirelbow")

layernewiwp - Layer_new creates a new blue layer, "inletweir."

layernewiwp <- layer_new("inletweir",blue)

pipeiwp - Calls the Pipe Program to draw a pipe in the program.

pipeiwp <- Pipe(inletweirpipe_origin,ND_PltWeir,inletweirpipe_length,EN_PipeSpec)

layerfreezeiwp - Layer_freeze locks the layer "inletweir" so that it cannot be edited.

layerfreezeiwp <-layer_freeze("inletweir")