h1. General Program Information

{float:left|border=2px solid black}
[!1.bmp|width=580px!|AutoCAD Pipe Program]    [!2.bmp|width=400px!|AutoCAD Elbow Program]
Southwest Isometric View
{float}
\\
\\

h3. Input Definitions


h5. 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.
Pipe{~}inr~ \- the inner radius of the elbow

h5. Inputs Defined within the Elbow Function

p1 =
* x : o{~}0~
* y : o{~}1~
* z : o{~}2~

p2 =
* x : o{~}0~ \- ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~)
* y : o{~}1~ \- ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~)
* z : o{~}2~ \- outerradius(2*pipe{~}inr~) + SocketDepth(2*pipe{~}inr~)

p3 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~)
* z : o{~}2~ + outerradius(2*pipe{~}inr~) + SocketDepth(2*pipe{~}inr~)

p4 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~)
* y : o{~}1~
* z : o{~}2~

p5 =
* x : o{~}0~ \- ElbowRadius(2*pipe{~}inr~) - pipe{~}inr~
* y : o{~}1~
* z : o{~}2~

p6 =
* x : o{~}0~
* y : o{~}1~ \- ElbowRadius(2*pipe{~}inr~) - outerraduis(2*pipe{~}inr~) - zc
* z : o{~}2~ \- ConRadius(2*pipe{~}inr~)

p7 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~) + zc
* y : o{~}1~
* z : o{~}2~ + ConRadius(2*pipe{~}inr~)

p9 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

p10 =
* x : o{~}0~ \- SocketDepth(2*pipe{~}inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

p11 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~)
* z : o{~}2~

p12 =
* x : o{~}0~ \- SocketDepth(2*pipe{~}inr~) - zc
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) - outerraduis(2*pipe{~}inr~)
* z : o{~}2~

p13 =
* x : o{~}0~ + zc
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~)
* z : o{~}2~

p14 =
* x : o{~}0~ \- SocketDepth(2*pipe{~}inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~)
* z : o{~}2~

p15 =
* x : o{~}0~
* y : o{~}1~

p16 =
* x : o{~}0~ + zc
* y : o{~}1~ + zc

p17 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~)
* y : o{~}1~ \- SocketDepth(2*pipe{~}inr~)
* z : o{~}2~

p18 =
* x : o{~}0~ \- SocketDepth(2*pipe{~}inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

R1 = ElbowRadius(2*pipe{~}inr~)

R2 = outerraduis(2*pipe{~}inr~)

R3 = pipe{~}inr~

R4 = ConRaduis(2*pipe{~}inr~)

win1 =
* x : o{~}0~ \- ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~) + zc
* y : o{~}1~ \- ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~) + zc
* z : o{~}2~

win2 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~) + zc
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~) + zc
* z : o{~}2~

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

h1. Technical Program Outline

*Note:* All coordinates are referenced in top view in the program unless otherwise specified
{float:left|border=2px solid black}
[!3.bmp|width=580px!|AutoCAD Elbow Program]
{float}
*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{~}0~ \- ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~) + zc
* y : o{~}1~ \- ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~) + zc
* z : o{~}2~

win2 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~) + zc
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~) + zc
* z : o{~}2~
\\
\\

{float:left|border=2px solid black}
[!4b.bmp|width=600px!|AutoCAD Elbow Program]
Top View
[!5.bmp|width=600px!|AutoCAD Elbow Program]
Southwest Isometric  View
{float}
*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{~}0~
* y : o{~}1~
* z : o{~}2~

R1 = ElbowRadius(2*pipe{~}inr~)

R2 = outerraduis(2*pipe{~}inr~)


\\
\\
{float:left|border=2px solid black}
[!6.bmp|width=640px!|AutoCAD Elbow Program]
{float}
*box1* \- draws a box slightly larger than the torus, in all dimensions

box1 <-\- box(p2,p3)

p2 =
* x : o{~}0~ \- ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~)
* y : o{~}1~ \- ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~)
* z : o{~}2~ \- outerradius(2*pipe{~}inr~) + SocketDepth(2*pipe~inr~)

p3 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) + ConRaduis(2*pipe{~}inr~)
* z : o{~}2~ + outerradius(2*pipe{~}inr~) + SocketDepth(2*pipe{~}inr~)
\\
\\

{float:left|border=2px solid black}
[!7c.bmp|width=640px!|AutoCAD Elbow Program]
*Before Subtract*
[!7a.bmp|width=480px!|AutoCAD Elbow Program]
*After Subtract*
{float}
*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{~}0~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~)
* y : o{~}1~
* z : o{~}2~

p1 =
* x : o{~}0~
* y : o{~}1~
* z : o{~}2~
\\
\\

{float:left|border=2px solid black}
[!8.bmp|width=680px!|AutoCAD Elbow Program]
{float}
\*torus\*~small~\ - draws a smaller torus

torus{~}small~ <-\- torus(p1,R1,R3)

p1 =
* x : o{~}0~
* y : o{~}1~
* z : o{~}2~

R1 = ElbowRadius(2*pipe{~}inr~)

R3 = pipe{~}inr~

\\
\\
{float:left|border=2px solid black}
[!8b.bmp|width=680px!|AutoCAD Elbow Program]
*Before Subtract*
[!9.bmp|width=500px!|AutoCAD Elbow Program]
*After Subtract*
{float}
*subtract2* \- removes the left half of the smaller torus

subtract2 <-\- subtractA(p4,p5)

p4 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~)
* y : o{~}1~
* z : o{~}2~

p5 =
* x : o{~}0~ \- ElbowRadius(2*pipe{~}inr~) - pipe{~}inr~)
* y : o{~}1~
* z : o{~}2~

\\
\\
{float:left|border=2px solid black}
[!10.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*box2*\- draws a box over the lower half of the remaining torus

box2 <-\- box(p6,p7)

p6 =
* x : o{~}0~
* y : o{~}1~ \- ElbowRadius(2*pipe{~}inr~) - outerraduis(2*pipe{~}inr~) - zc
* z : o{~}2~ \- ConRadius(2*pipe{~}inr~)

p7 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~) + zc
* y : o{~}1~
* z : o{~}2~ + ConRadius(2*pipe{~}inr~)

\\
\\
{float:left|border=2px solid black}
[!11.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*subtract3* \- removes the box that was drawn in the previous step

subtract3 <-\- subtractD(p9,p1)

p9 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

p1 =
* x : o{~}0~
* y : o{~}1~
* z : o{~}2~

\\
\\
{float:left|border=2px solid black}
[!12.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*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{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

R4 = ConRaduis(2*pipe{~}inr~)

p10 =
* x : o{~}0~ \- SocketDepth(2*pipe~inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

\\
\\
{float:left|border=2px solid black}
[!13.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*innercylinder* \- draws a smaller cylinder within the larger cylinder, forming the inner surface of a socket

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

p9 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~


R2 = outerraduis(2*pipe{~}inr~)

p10 =
* x : o{~}0~ \- SocketDepth(2*pipe~inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

\\
\\
{float:left|border=2px solid black}
[!14.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*subtract4* \- removes the smaller cylinder, creating a hollow socket at the end of the elbow

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

p11 =
* x : o{~}0~
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~)
* z : o{~}2~

p12 =
* x : o{~}0~ \- SocketDepth(2*pipe~inr~) - zc
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) - outerraduis(2*pipe{~}inr~)
* z : o{~}2~

p13 =
* x : o{~}0~ + zc
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) + outerraduis(2*pipe{~}inr~)
* z : o{~}2~
\\
\\

{float:left|border=2px solid black}
[!15a.bmp|width=480px!|AutoCAD Elbow Program]
[!15b.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*mirror* \- replicates the socket drawn onto the opposite end of the elbow

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

p14 =
* x : o{~}0~ \- SocketDepth(2*pipe~inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~) - ConRaduis(2*pipe{~}inr~)
* z : o{~}2~

p15 =
* x : o{~}0~
* y : o{~}1~

p16 =
* x : o{~}0~ + zc
* y : o{~}1~ + zc

\\
\\
{float:left|border=2px solid black}
[!16a.bmp|width=480px!|AutoCAD Elbow Program]
[!16b.bmp|width=480px!|AutoCAD Elbow Program]
{float}
*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{~}0~
* y : o{~}1~
* z : o{~}2~

p17 =
* x : o{~}0~ + ElbowRadius(2*pipe{~}inr~)
* y : o{~}1~ \- SocketDepth(2*pipe~inr~)
* z : o{~}2~

p18 =
* x : o{~}0~ \- SocketDepth(2*pipe~inr~)
* y : o{~}1~ + ElbowRadius(2*pipe{~}inr~)
* z : o{~}2~

R1 = ElbowRadius(2*pipe{~}inr~)

R2 = outerraduis(2*pipe{~}inr~)
\\
\\