Manifold Drawing Script

layer5 - Layer_new creates a new blue layer "manifold."

layer5 <- layer_new("manifold',blue2)

manifold1 - Calls the Manifold Program to create a manifold.

manifold1 <-Manifold(manifold_origin,ND_SedLaunder,D_{SedLaunderOrifice}/2,manifold_length,B_{SedLaunderOrifices},EN_PipeSpec)
manifold_origin =

• if layout 1:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + 2*ElbowRadius(ND_SedLaunder)
  • y: tank_origin1 + W_Sed/2
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 2:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

ND_SedLaunder - Nominal diameter of launder.

D_{SedLaunderOrifice} - Diameter of launder orifices.

manifold_length - Specifies manifold length.

B_{SedLaunderOrifices} - Spacing between orifices throughout the launder.

EN_PipeSpec - Enumerated type.

rotate18 - Rotate_3d turns the object based on a given axis and degree angle.

rotate18 <- rotate_3d(p1,manifold_origin,"y",90)

p1 =

• x: manifold_origin0 + innerD(ND_sedLaunder,EN_PipeSpec)/2
• y: manifold_origin1
• z: manifold_origin2
  manifold_origin =
• if layout 1:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + 2*ElbowRadius(ND_SedLaunder)
  • y: tank_origin1 + W_Sed/2
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 2:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

"y" - specifies axis that object will be rotated about.

90 - rotation angle

rotate19 - Rotate_3d turns the object based on a given axis and degree angle.

rotate19 <- rotate_3d(p1,manifold_origin,"x",-60)

p1 =

• x: manifold_origin0
• y: manifold_origin1 + innerD(ND_sedLaunder,EN_PipeSpec)/2
• z: manifold_origin2

manifold_origin =

• if layout 1:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + 2*ElbowRadius(ND_SedLaunder)
  • y: tank_origin1 + W_Sed/2
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 2:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

"x" - specifies axis that object will be rotated about.

-60 - rotation angle

copym - CopyB duplicates the selected object.

copym <- copyB(manifold_origin,manifold_origin,manifold2_origin)

manifold_origin =

• if layout 1:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + 2*ElbowRadius(ND_SedLaunder)
  • y: tank_origin1 + W_Sed/2
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 2:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 + W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

manifold2_origin =

• if layout 1:
  • x: 0
  • y: 0
  • z: 0

• if layout 2:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall
  • y: tank_origin1 + 2*W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 3:
  • x: tank_origin0 - L_Sed + W_Channel + T_ChannelWall + W_EChannel
  • y: tank_origin1 + 2*W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2

• if layout 4:
  • x: tank_origin0 - L_Sed + W_ChannelInlet + T_ChannelWall + W_EChannel
  • y: tank_origin1 + 2*W_Sed/3
  • z: tank_origin2 + HW_Sed - H_SedAbove/2
    
    layerset - Layer_set selects the layer "0".

layerset <- layer_set("0")

layerfreeze5 - Layer_freeze locks the layer "manifold" so that it cannot be edited.

layerfreeze5 <- layer_freeze("manifold")