$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
   &macro go
   &status config
   &status force
   &status f_connector
   &equi
   &status force
   &endmac
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 50
medit
   ~wire h_cat    1.32 -len 4000
   ~pin1 spr x  1e10 y  1e10 z 1e10
   ~pin2 spr x 1e10  y  1e10 z 1e10  ry 100  rx  1e4 rz 100
   connector bs ~pin1  *bs
   connector ss ~pin2 *ss
   connector sp ~wire *sp -a_location  100 0 0
   connector bp ~wire *bp -a_location -100 0 0
   &connector @ -l_tension  254.25*&number(sqrt 5.)
end
&status cl_flex
&status connector
go
&event_store 1
&instate -loc 0 0 50 180
go
&event_store 2
&describe process two
&instate -loc 0 0 50 -90
&connector sp -inactive
&connector @ -l_tension  2000
&event_store 1
&status force
&status config
&status f_connector
struct
   lcase -process   two-1  1
   &describe process  default
   lcase -process one-1 1 one-2 2
   ssolve -nonlinear
end
strpost
   joint dis
   restraint load -detail
end
$
$*********************************************      all done
$
&fini
