$
$*********************************************      set basics
$
&dimen -DIMEN FEET KIPS
&DEVICE   -oecho no -g_default devi 
&TITLE Test of #PROP
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      define prop
$
medit
  ~prop prop prop 300  1 10 10 -r_ang_limits -60 60 
  connector screw ~prop *b_b 
  &set r_angle = 10
  &connector screw -set_prop 1 0 %r_angle
end
$
$*********************************************      get info
$
&stat curve prop -plot
   plot 1 2 -n
   view 1 2 -hard
   end
$
$*********************************************      Set Initial Condition
$
&INSTATE -loc 0 0 -5
&weight -compute 5 32 129 129
$
$*********************************************      set envs 
$
&loop dir ( 180 090 000)
    &ENV e%dir -TIME 50 .5 -ramp -1  -current 3 %dir \
               -wind 100 %dir $-sea regul %dir 10  10 
&endloop
$
$*********************************************      environment
$
&loop fraction (0  .5 1 )
   &loop env ( enone e180 e090 e000 )
      &loop r_angle ( 60 10 0 -10 -60 )
         &set tit = Fraction = %fraction - Environment = %env - Rudder Angle = %r_angle
         &type %tit 
         &subtitle = %tit
         &env %env
         &connector screw -set_prop %fraction  0 %r_angle
         &status Force
      &endloop
   &endloop
&endloop
$
$*********************************************     All Done
$
&fini