Inlet Channel Drawing Script

layer2 - Layer_new creates a new light grey layer, "channel."

layer2 <- layer_new("channel",ltgrey)

channel1 - Calls the Channel Program to draw a channel.

channel1 <- ChannelDrawing(channel_origin,p1,T_ChannelWall)

When sedlayout = 1, channel_origin is a 3*1 matrix with x,y,z points corresponding to where the channel will be drawn.

p1 =

• x: W_Sed - 2T_PlantWall
• y: W_InletChannel
• z: H_InletChannel

T_Channel specifies the thickness of the channel wall.

rotate1 - Rotate rotates the selected object by the designated degrees.

rotate1 <- rotate(channel_origin,90)

When sedlayout = 1, channel_origin is 3*1 matrix with x,y,z points corresponding to where the channel will be drawn. Channel_origin is called from the Channel Program.

90 = rotation angle

box1 - Creates a box based on two points.

box1 <- box(channelinletwall_origin,channelinletwall_origin + channelinletwall_dim)

channelinletwall_origin =

• x: Plant_Origin0 - L_Sed + W_ChannelInlet
• y: Plant_Origin1
• z: Plant_Origin2

channelinletwall_dim =

• x: T_ChannelWall
• y: W_Sed
• z: H_Sed

bigunion - Union_allA selects all the objects visible in the workspace and joins them all into a single object.

bigunion <- union_allA

box2 - Creates a box based on two points.

box2 <- box(channelinletbox1_origin,channelinletbox1_origin + channelinletbox1_dim)

channelinletbox1_origin =

• x: Plant_Origin0 - L_Sed - T_PlantWall
• y: Plant_Origin1 + (.5W_Sed) - (.5L_ChannelInlet)
• z: Plant_Origin2 + H_Sed - H_InletChannel

channelinletbox1_dim =

• x: T_PlantWall
• y: L_ChannelInlet
• z: H_InletChannel

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

subtract2 <- subtractD(Plant_Origin,channelinletbox1_origin)

Plant_Origin =

channelinletbox1_origin =

• x: Plant_Origin0 - L_Sed - T_PlantWall
• y: Plant_Origin1 + (.5W_Sed) - (.5L_ChannelInlet)
• z: Plant_Origin2 + H_Sed - H_InletChannel

box3 - Creates a box based on two points.

box3 <- box(channelinletbox2_origin,channelinletbox2_origin + channelinletbox2_dim)

channelinletbox2_origin =

• x: Plant_Origin0 - L_Sed
• y: Plant_Origin1
• z: Plant_Origin2

channelinletbox2_dim =

• x: W_ChannelInlet
• y: W_Sed
• z: H_Sed

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

subtract3 <- subtractD(Plant_Origin,channelinletbox2_origin)

Plant_Origin =

channelinletbox2_origin =

• x: Plant_Origin0 - L_Sed
• y: Plant_Origin1
• z: Plant_Origin2

layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

viewtops - Rotates the object so that it is viewed from the top.

viewtops <-viewtop1

layerfreeze2 - Layer_freeze locks the layer "channel" so that it cannot be edited.

layerfreeze2 <- layer_freeze("channel")