&describe body gail
&default -nuse @
*bo -100   00 0
*s1 -100  100 0
*s2   00  100 0
*s3  100  100 0
*st  100   00 0
*p1 -100 -100 0
*p2   00 -100 0
*p3  100 -100 0
~tube tube 20*12 2
beam ~tube *bo *s1 *s2 *s3 *st *p3 *p2 *p1 *bo
pgen -loca 0 100 -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane -100 0 100 -rect 0 20 25
end
pgen -loca 0 -100 -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane -100 0 100 -rect 0 20 25
end
pgen -loca 100 0 0 0  0 -90 -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane -100 0 100 -rect 0 20 25
end
pgen -loca -100 0 0 0  0 -90 -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane -100 0 100 -rect 0 20 25
end
&describe load corn *p3 *s3 *p1 *s1
#weight 10000  32 32 32 -cen 0 0 0
&describe load mid *bo *st *p2 *s2
#weight 2000  32 32 32 -cen 0 0 0