$
$*********************************************      set basics
$
&title test of lowering & deballasting
&dimen -dimen feet kips
&device    -oecho no -g_default device
$
$*********************************************      read model
$
inmodel
medit
    .ita_make one    *3  *1 -v_val 2 -f_val 2
    .ita_make two    *4  *6 -v_val 2 -f_val 2
    .ita_make thre   *7  *9 -v_val 2 -f_val 2
    .ita_make four  *12 *10 -v_val 2 -f_val 2
    ~sling sling 3 -len 100
    ~boom sling 3 -len 211
    &describe body ground
    *boom 93.54 0.00 325.00
    connector boom ~boom *boom
    connector sling1 ~sling *12
    connector sling2 ~sling *9
    connector sling3 ~sling *3
    connector sling4 ~sling *6
    assembly t-h boom sling1 sling2 sling3 sling4 -orie -hei
end
&summ
    point
    comp tubtank
end
&status s_compartment
&status V_HOLE
&status P_HOLE
&status tip
&status f_connector
&instate -guess *1 *2 *4
&pict top -type compart
&compartment -int_pres one@  .0001  1 \
                       two@  .0001  1 \
                       thre@ .01    1 \
                       four@ 0
static
   &dcptime time to begin
   begin
   rarm 0 -tran 2 10
      vlist
      report
      end
   rarm 0 -long 2 5
      vlist
      report
      end
   &status v_compartment
   &status pre_compartment
   lift 10 -she 20 -ste 1500
   lift -10 -she 00 -ste  100
   lift 10 -she 20 -ste 1500
   &select :ontw -s one@ two@
   flood :ontw 10 25   -chei
   &status compartment
   flood :ontw -10 0   -chei
   &status compartment
   review position
   review action
   review cbcg
   review action
   review height
   end
prcpost
   position
      report
   end
   stabilit
      report
   end
   tank_fld
      report
   end
   tank_bal
      report
   end
   tip
      report
   end
end
$
$*********************************************      all done
$
&fini
