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 =

• x: tank_origin0 - L_Sed
• y: tank_origin1
• z: tank_origin2 + H_Sed - H_Channel

channelbox_dim =

• x: W_Channel
• y: N_SedTanks(WSed~ + T_PlantWall)
• z: H_Channel
  
  
  Unknown macro: {float}

  
  Top View

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

subtractict <- subtractD(ichanneltank_origin,channelbox_origin)

channelbox_origin =

• x: tank_origin0 - L_Sed
• y: tank_origin1
• z: tank_origin2 + H_Sed - H_Channel
  
  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 - Rotate_3d rotates the selected object by the designated degrees.

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

p1 =

• x: sedtankinletweirelbow_origin0 + ElbowRadius(ND_PltWeir)
• y: sedtankinletweirelbow_origin1
• z: sedtankinletweirelbow_origin2 - outerradius(ND_PltWeir)
  
  
  Unknown macro: {float}

  
  Top View

  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")