...
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
innercylinder - draws a smaller cylinder within the larger cylinder, forming the inner surface of a socket
innercylinder <-- cylinderB(p9,R2,p10)
p9 =
- x : o0
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
R2 =
p10 =
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
subtract4 - removes the smaller cylinder, creating a hollow socket at the end of the elbow
subtract4 <-- subtractH(p11,p12,p13)
p11 =
- x : o0
- y : o1 + ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr)
- z : o2
p12 =
- x : o0 - SocketDepth(2*pipe~inr~) - zc
- y : o1 + ElbowRadius(2*pipeinr) - outerraduis(2*pipeinr)
- z : o2
p13 =
- x : o0 + zc
- y : o1 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr)
- z : o2
mirror - replicates the socket drawn onto the opposite end of the elbow
mirror <-- mirrorA(p14,p15,p16)
p14 =
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr) - ConRaduis(2*pipeinr)
- z : o2
p15 =
- x : o0
- y : o1
p16 =
- x : o0 + zc
- y : o1 + zc
bigunion -
bigunion <-- bigunion()elbow(p1,p17,p18,R1,R2)
p1 =
- x : o0
- y : o1
- z : o2
p17 =
- x : o0 + ElbowRadius(2*pipeinr)
- y : o1 - SocketDepth(2*pipe~inr~)
- z : o2
p18 =
- x : o0 - SocketDepth(2*pipe~inr~)
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
R1 =
R2 =