&title  sample upending
&insert &info(pgmpat)/hdesk/tools/install/macros/ita.mac
&default -depth 350
&describe body jacket jacket
&default -use @
~hor tube 42.37  .555
~ver tube 144.   3.
beam ~hor *1 *4
beam ~hor *2 *5
beam ~hor *3 *6
beam ~hor *7 *10
beam ~hor *8 *11
beam ~hor *9 *12
beam ~hor *1 *7
beam ~hor *2 *8
beam ~hor *3 *9
beam ~hor *4 *10
beam ~hor *5 *11
beam ~hor *6 *12
beam ~ver *1 *2
beam ~ver *2 *3
beam ~ver *4 *5
beam ~ver *5 *6
beam ~ver *7 *8
beam ~ver *8 *9
beam ~ver *10 *11
beam ~ver *11 *12
*1  0. 0. 0.
*2 200. 0. 0.
*3  400. 0. 0.
*4  0. 50. 0.
*5 200. 50. 0.
*6  400. 50. 0.
*7  0. 0. 50.
*8 200. 0. 50.
*9  400. 0. 50.
*10  0. 50. 50.
*11 200. 50. 50.
*12  400. 50. 50.
&describe interest -associate *12 *10 *7 *9 *6 *4 *1 *3
&describe body jacket jacket -dmark top39 *3 *9 \
                             -dmark base1012 *10 *12