...
*torusbig* - Draws the larger torus, a 3 dimensional ring that creates the outer surface of the elbow
torusbig <-- torus(p1,R1,R2)
p1 =
- x : o0
- y : o1
- z : o2
...
box1 - draws a box slightly larger than the torus, in all dimensions
box1 <-- box(p2,p3)
p2 =
- x : o0 - ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr)
- y : o1 - ElbowRadius(2*pipeinr) + ConRaduis(2*pipeinr)
- z : o2 - outerradius(2*pipeinr) + SocketDepth(2*pipe~inr~)
...
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 : o0 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr)
- y : o1
- z : o2
p1 =
- x : o0
- y : o1
- z : o2
*torussmall* - draws a smaller torus
torussmall <-- torus(p1,R1,R3)
p1 =
- x : o0
- y : o1
- z : o2
R1 =
R3 =