# connect_3 # written by John Dannenhoffer # red tube SKBEG 0 -1 -1 LINSEG 0 -1 1 LINSEG 0 1 1 LINSEG 0 1 -1 LINSEG 0 -1 -1 SKEND 1 EXTRUDE 2 0 0 SELECT FACE ATTRIBUTE _color $red ATTRIBUTE _bcolor $red # make list of edges to connect DIMENSION redEdges 2 1 SELECT EDGE 2 0 -1 SET redEdges[1] @sellist[1] SELECT EDGE 2 0 +1 SET redEdges[2] @sellist[1] # blue tube SKBEG 4 -1 -1 LINSEG 4 -1 1 LINSEG 4 1 1 LINSEG 4 1 -1 LINSEG 4 -1 -1 SKEND 1 EXTRUDE 2 0 0 SELECT FACE ATTRIBUTE _color $blue ATTRIBUTE _bcolor $blue # make list of edges to connect DIMENSION blueEdges 2 1 SELECT EDGE 4 0 -1 SET blueEdges[1] @sellist[1] SELECT EDGE 4 0 +1 SET blueEdges[2] @sellist[1] # make the connection CONNECT 0 0 redEdges blueEdges END