$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate rect1 -loc 0 100 50 \
         rect2 -loc 0 -100 50
medit
   ~wire sl_eleme 1.32 tension  -len 4000
   ~spr gspr x 1e10 y 1e10 z 1e10
   ~pin fix x y z
   connector bpin ~pin  *bod1_bp *bod2_bs
   connector spin ~pin  *bod1_sp *bod2_ss
   connector b1strn ~wire *bod1_ss -a_loca  100 200
   connector b1bow  ~wire *bod1_bs -a_loca -100 200
   connector b2strn ~wire *bod2_sp -a_loca  100 -200
   connector b2bow  ~wire *bod2_bp -a_loca -100 -200
   connector cestrn ~wire *bod1_sp -a_loca  100
   connector cebow  ~wire *bod1_bp -a_loca -100
   &connector b1strn -l_tension 1017./4
   &connector b1bow  -l_tension 1017./4
   &connector b2strn -l_tension 1017./4
   &connector b2bow  -l_tension 1017./4
   &connector cestrn -l_tension 1017./2
   &connector cebow  -l_tension 1017./2
end
&status config
&status f_connector
&status g_connector
&status force
&event_store 1
struct
   lcase -process   two-1  1
   bodsolve
end
strpost
   joint d
   restraint
end
$
$*********************************************      all done
$
&fini
