$
$*********************************************      basics
$
$
$*********************************************      read model
$
inmodel
&instate -con 10
&weight -compute 5 32 120 120
&pb_parm -hbre yes
medit
   ~wire b_cat 2 -dep 500  -len 4000 -b_tension 800
   connector a ~wire -goa 0 -50*12 20*12 *1 -anc 180+45 1500
   connector b ~wire -goa 0  50*12 20*12 *1 -anc 180-45 1500
   connector c ~wire -goa 0  50*12 20*12 *4 -anc    +45 1500
   connector d ~wire -goa 0 -50*12 20*12 *4 -anc    -45 1500
   &connector @ -a_horiz 100
   ~davit davit 3 -len 100
   ~rod rod 12 1.5   -len 700  -refine 20 -depanc 500 -botf 1
   ~rod rod 12 1.5   -len 800  -refine 8
   connector dav-1 ~davit *3
   connector dav-2 ~davit *2
   assembly pipe  ~rod dav-1 dav-2 -pipe_ten 100
end
&names rods
&status f_connector
&names rods
&status f_rod
&status dg_connector
&connector dav-2 -dav 97
&status f_connector
&instate -lines @
&equi
&status config
&status f_connector
&names rods
&status f_rod
&status dg_connector
&status s_rod
&status pipe
$
$*********************************************      all done
$
&fini
