&describe body rect jacket
&title rectangle moored body
*1  -100  000 0
*2   100 0000 0
&default -use  @ -nuse #dead
~tube tube 120 1
beam ~tube *1  *2
~supo gspr     x 1e13  y 1e13  z 1e13 rx 1e14 ry 1e14 rz 1e14
rest ~supo *1