Intersecting Pipes Command File
c
c Intersecting Pipes
c
c Create the two surfaces
sd 1 cy 0 0 0 0 0 1 2
sd 2 cy 0 0 -2 .5 0 .5 .5
c Create the part
block -1 -13 25;-1 -6 -12 -17;1 -11 -17 27;
-2 2 6 -2 -1 1 2 -3 -1 1 3
c Remove blocks that are not needed
dei 2 3; -1 0 -4;;
dei 1 2; -2 0 -3;;
dei 2 3; -2 0 -3; 1 2 0 3 4;
dei 1 2;; -2 0 -3;
dei 2 3; 1 2 0 3 4; -2 0 -3;
c Move a region near to the skewed pipe
tr 3 1 1 3 4 4 ry -45 mz -2;
c Force equal spacing along the edges
res 2 1 4 2 4 4 j 1
res 2 1 1 2 4 1 j 1
res 1 1 1 1 4 4 j 1
c Project faces to surfaces
sfi 2 3; -2 -3; -2 -3;sd 2
sfi -1 -2; -1 -4;;sd 1
endpart
