...
- x : o0
- y : o1
- z : o2
R1 =
R3 =
subtract2 - removes the left half of the smaller torus
subtract2 <-- subtractA(p4,p5)
p4 =
- x : o0 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr)
- y : o1
- z : o2
p5 =
- x : o0 - ElbowRadius(2*pipeinr) - pipeinr)
- y : o1
- z : o2
box2- draws a box over the lower half of the remaining torus
box2 <-- box(p6,p7)
p6 =
- x : o0
- y : o1 - ElbowRadius(2*pipeinr) - outerraduis(2*pipeinr) - zc
- z : o2 - ConRadius(2*pipeinr)
p7 =
- x : o0 + ElbowRadius(2*pipeinr) + outerraduis(2*pipeinr) + zc
- y : o1
- z : o2 + ConRadius(2*pipeinr)
subtract3 - removes the box that was drawn in the previous step
subtract3 <-- subtractD(p9,p1)
p9 =
- x : o0
- y : o1 + ElbowRadius(2*pipeinr)
- z : o2
p1 =
- x : o0
- y : o1
- z : o2