&describe body rod
~tube box 100*12 40*12 1 2
*b1   0 0 00
*b2 100 0 00
*b3 200 0 00
*s1 300 0 00
*s2 320 0 00
*s3 340 0 00
*s4 360 0 00
*s5 380 0 00
&default -nuse @
beam ~tube *b1 *b2 *b3 *s1 *s2 *s3 *s4 *s5
pgen -cs_cur 1 1 1 -cs_wind 1 1 1  -tanaka 0
   plane 0 100 200 300 320 340 360 380 -rect 0 20 100
end