$
$*********************************************      set basics
$
&device  -oecho no  -g_default device
&dimen meters k-nts
$
$*********************************************      read model
$
inmodel
&instate -con 32.5
medit
   ~cl5 h_cat 120 exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl6 h_cat 120 exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl7 h_cat 120 exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~ray h_cat 120 exact -len 430 -dep -2  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~rah h_cat 120 exact -len 430 -wtpl .001
   ~rat h_cat 120       -len 430 -wtpl .001
   connec line5 ~cl5 -anch -000 430*.9 *fairl8
   connec line6 ~cl6 -anch -000 430*.9 *fairl8
   connec line7 ~cl7 -anch -000 430*.9 *fairl8
   connec ray1  ~ray  *fairl8 *g1
   connec ray2  ~rah  *g2 *fairl8
   connec rat2  ~rat  *g2 *ground
end
conn
   table ray2
   vl
   report
   end
end
&status cl_flex
&loop ten ( 900 800 770 750 )
   &cutype Tension = %ten
   &connec line5 -l_hor %ten
   &connec line6 -l_ten %ten
   &connec line7 -a_ten %ten
   &status f_connector
   &loop c ( &names(connec) )
      &status dg_connector %c -hard
   &endloop
   con
      table line5
          report
          end
   end
   &picture
&endloop
&conne line@ ray1 -inact
&set z = 000 100 200 300 400 400.1 400.2 400.3 400.4 400.5 400.6 \
         400.7 400.8 400.9
&loop c ( %z )
&type Z = %c Distance = &point(d_no *g2 *fairl8)
   &instate -loc fr 0 0 %c 0 0 0 \
           -loc fl 0 0  0 0 0 0
   &status f_connector
&endloop
$
$*********************************************      all done
$
&fini
