General Program Information

Input Definitions

Inputs Needed to Call the Elbow Function

o -The origin, the point corresponding to where the elbow will be drawn. o is also the center of the radius of curvature of the elbow.
ND - The nominal diameter of the pipe. This value along with the pipe schedule is used to determine other actual dimensions of the elbow
EN - The enumerated pipe schedule type. Each schedule of pipe has a specific number that represents it within our code.

Inputs Defined within the Elbow Function

p1 =

• x : o₀
• y : o₁
• z : o₂

p2 =

• x : o₀ - ElbowRadius(ND) + ConRaduis(ND)
• y : o₁ - ElbowRadius(ND) + ConRaduis(ND)
• z : o₂ - outerradius(ND) + SocketDepth(ND)

p3 =

• x : o₀
• y : o₁ + ElbowRadius(ND) + ConRaduis(ND)
• z : o₂ + outerradius(ND) + SocketDepth(ND)

p4 =

• x : o₀ + ElbowRadius(ND) + outerraduis(ND)
• y : o₁
• z : o₂

p5 =

• x : o₀ - ElbowRadius(ND) - innerD(ND,EN)/2
• y : o₁
• z : o₂

p6 =

• x : o₀
• y : o₁ - ElbowRadius(ND) - outerraduis(ND) - zc
• z : o₂ - ConRadius(ND)

p7 =

• x : o₀ + ElbowRadius(ND) + outerraduis(ND) + zc
• y : o₁
• z : o₂ + ConRadius(ND)

p9 =

• x : o₀
• y : o₁ + ElbowRadius(ND)
• z : o₂

p10 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND)
• z : o₂

p11 =

• x : o₀
• y : o₁ + ElbowRadius(ND) - ConRaduis(ND)
• z : o₂

p12 =

• x : o₀ - SocketDepth(ND) - zc
• y : o₁ + ElbowRadius(ND) - outerraduis(ND)
• z : o₂

p13 =

• x : o₀ + zc
• y : o₁ + ElbowRadius(ND) + outerraduis(ND)
• z : o₂

p14 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND) - ConRaduis(ND)
• z : o₂

p15 =

• x : o₀
• y : o₁

p16 =

• x : o₀ + zc
• y : o₁ + zc

p17 =

• x : o₀ + ElbowRadius(ND)
• y : o₁ - SocketDepth(ND)
• z : o₂

p18 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND)
• z : o₂

R1 = ElbowRadius(ND)

R2 = outerraduis(ND)

R3 = innerD(ND,EN)/2

R4 = ConRaduis(ND)

win1 =

• x : o₀ - ElbowRadius(ND) - ConRaduis(ND) + zc
• y : o₁ - ElbowRadius(ND) - ConRaduis(ND) + zc
• z : o₂

win2 =

• x : o₀ + ElbowRadius(ND) + ConRaduis(ND) + zc
• y : o₁ + ElbowRadius(ND) + ConRaduis(ND) + zc
• z : o₂

Note: zc corresponds to the zoom constant used within AutoCAD, defined by the basics file.

Technical Program Outline

Note: All coordinates are referenced in top view in the program unless otherwise specified

zoom_win- zooms on a window space directly around where the elbow is to be drawn

zoom_win <-- zoom_wina(win1,win2)

win1 =

• x : o₀ - ElbowRadius(ND) - ConRaduis(ND) + zc
• y : o₁ - ElbowRadius(ND) - ConRaduis(ND) + zc
• z : o₂

win2 =

• x : o₀ + ElbowRadius(ND) + ConRaduis(ND) + zc
• y : o₁ + ElbowRadius(ND) + ConRaduis(ND) + zc
• z : o₂
  
  

torus_big - Draws the larger torus, a 3 dimensional ring that creates the outer surface of the elbow

torus_big <-- torus(p1,R1,R2)

p1 =

• x : o₀
• y : o₁
• z : o₂

R1 = ElbowRadius(ND)

R2 = outerraduis(ND)

box1 - draws a box slightly larger than the torus, in all dimensions

box1 <-- box(p2,p3)

p2 =

• x : o₀ - ElbowRadius(ND) + ConRaduis(ND)
• y : o₁ - ElbowRadius(ND) + ConRaduis(ND)
• z : o₂ - outerradius(ND) + SocketDepth(ND)

p3 =

• x : o₀
• y : o₁ + ElbowRadius(ND) + ConRaduis(ND)
• z : o₂ + outerradius(ND) + SocketDepth(ND)
  
  

subtract1 - removes the box that was drawn over half of the torus in order to make it a half torus
subtract1<-- subtractD(p4,p1)

p4 =

• x : o₀ + ElbowRadius(ND) + outerraduis(ND)
• y : o₁
• z : o₂

p1 =

• x : o₀
• y : o₁
• z : o₂
  
  

*torus*_small\ - draws a smaller torus

torus_small <-- torus(p1,R1,R3)

p1 =

• x : o₀
• y : o₁
• z : o₂

R1 = ElbowRadius(ND)

R3 = innerD(ND,EN)/2

subtract2 - removes the smaller torus, making the large torus hollow

subtract2 <-- subtractA(p4,p5)

p4 =

• x : o₀ + ElbowRadius(ND) + outerraduis(ND)
• y : o₁
• z : o₂

p5 =

• x : o₀ - ElbowRadius(ND) - innerD(ND,EN)/2
• y : o₁
• z : o₂

box2- draws a box over the lower half of the remaining torus

box2 <-- box(p6,p7)

p6 =

• x : o₀
• y : o₁ - ElbowRadius(ND) - outerraduis(ND) - zc
• z : o₂ - ConRadius(ND)

p7 =

• x : o₀ + ElbowRadius(ND) + outerraduis(ND) + zc
• y : o₁
• z : o₂ + ConRadius(ND)

subtract3 - removes the box that was drawn in the previous step

subtract3 <-- subtractD(p9,p1)

p9 =

• x : o₀
• y : o₁ + ElbowRadius(ND)
• z : o₂

p1 =

• x : o₀
• y : o₁
• z : o₂

outercylinder - draws a cylinder at the end of the elbow to form the outer surface of a socket

outercylinder <-- cylinderB(p9,R4,P10)

p9 =

• x : o₀
• y : o₁ + ElbowRadius(ND)
• z : o₂

R4 = ConRaduis(ND)

p10 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND)
• z : o₂

innercylinder - draws a smaller cylinder within the larger cylinder, forming the inner surface of a socket

innercylinder <-- cylinderB(p9,R2,p10)

p9 =

• x : o₀
• y : o₁ + ElbowRadius(ND)
• z : o₂

R2 = outerraduis(ND)

p10 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND)
• z : o₂

subtract4 - removes the smaller cylinder, creating a hollow socket at the end of the elbow

subtract4 <-- subtractH(p11,p12,p13)

p11 =

• x : o₀
• y : o₁ + ElbowRadius(ND) - ConRaduis(ND)
• z : o₂

p12 =

• x : o₀ - SocketDepth(ND) - zc
• y : o₁ + ElbowRadius(ND) - outerraduis(ND)
• z : o₂

p13 =

• x : o₀ + zc
• y : o₁ + ElbowRadius(ND) + outerraduis(ND)
• z : o₂
  
  

mirror - replicates the socket drawn onto the opposite end of the elbow

mirror <-- mirrorA(p14,p15,p16)

p14 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND) - ConRaduis(ND)
• z : o₂

p15 =

• x : o₀
• y : o₁

p16 =

• x : o₀ + zc
• y : o₁ + zc

bigunion - unites all the pieces drawn so the elbow will act as one unit, instead of three separate units.

bigunion <-- bigunion_elbow(p1,p17,p18,R1,R2)

p1 =

• x : o₀
• y : o₁
• z : o₂

p17 =

• x : o₀ + ElbowRadius(ND)
• y : o₁ - SocketDepth( ND)
• z : o₂

p18 =

• x : o₀ - SocketDepth(ND)
• y : o₁ + ElbowRadius(ND)
• z : o₂

R1 = ElbowRadius(ND)

R2 = outerraduis(ND)