&device -g_default file
&dimen -dimen meters m-tons
&device  -oecho n
inmodel
&insta -loc 0 0  5
medit
    &data curves ct_length hook 0 1    -l_bound 30
    &describe part ground
    *mainhk   0     0.   70.
    ~main sling 100      -emodulus  100000  -length  60
    ~A2  sling 100       -emodulus  100000  -length  15
    connector  mainln   ~main  *mainhk
    connector  sling1  ~A2  *n1
    connector  sling2  ~A2  *n2
    assembly t-h_definition  assembly  mainln  sling1 sling2
    assembly winch winch  mainln  -vel hook -.5
end_medit
&insta -sl_set
&equi
&status tip
&stat curve hook -plot
     view @ -hard
     plot 1 2 -n
     end
&conn winch -l_dynam -.5 30
&env still -time 20 0.15 0
tdom
 prcpost
    tip-hook
    view 1 3
    plot 1 3 -n
    end
 c_length mainln
    report
    plot 1 2 -rax 3 -n
    end
&fini