&describe body dog
~tube box 100*12 40*12 1 2
*mpool 190 0 10
*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
pgen -cs_curr 1 1 1 -cs_wind 1 1 1
   plane 0 100 200 300 320 340 360 380 -rect 0 20 100
end