$
$*********************************************      basics
$
&device -g_default device -oecho no
&title Test of #WEDGE
$
$*********************************************      read model
$
inmodel
hstat
   cform 0 0 -draft 8/12 31
      report
      end
end
&pict iso
&set n = 0
&loop d ( -0 5 10 15 20 24.99 30 )
   &set n = &number(integer 1+%n)
   &subtitle Draft = %d
   &instat -cond %d  -vel 0 0 -10
   &stat force -hard
   &event %n
&endloop
prcpost
  body -force slam
     vl
     plot 1 4 -n
     end
end
$
$*********************************************      all done
$
&fini
