$
$*********************************************      set basics
$
&set demo = .false.
&if %demo &then
   &device -g_default screen
&else
   &device -g_default device
&endif
&device   -oecho no
&dimen -DIMEN METERS
&default -depth 31
&macro move del
  &instate -move %del
  &picture
&endmacr
$
$*********************************************      GEN. DATABASE
$
inmodel
$
$*********************************************      SET INIT. CONDITIONS
$
&INSTATE -LOC   0 0 -3 0 0 0
&weight -compute 1 10 10 10
$
$*********************************************      DEFINE LINES
$
MEDIT
    ~norma b_cat 50 -tab_lim 300  -len 800 -dep 31 -botfri 5
    ~CHAIN b_cat 50 -tab_lim 300  -len 200 -clum 20
    ~CHAIN b_cat 50 -tab_lim 300  -len 156 -dep 31
    ~spr   b_cat 50 -tab_lim 300  -len 200 -clum -20
    ~spr   b_cat 50 -tab_lim 300  -len 156 -dep 31
    ~cck   b_cat 50 -tab_lim 300  -len 200
    ~cck   b_cat 50 -tab_lim 300  -len .25 -wtplen 4*20
    ~cck   b_cat 50 -tab_lim 300 -dep 31 -len 156-.25
    ~spr2  b_cat 50 -tab_lim 300  -len 100
    ~spr2  b_cat 50 -tab_lim 300  -len 100 -clum -20
    ~spr2  b_cat 50 -tab_lim 300  -len 156 -dep 31
    ~spr3  b_cat 50 -tab_lim 300  -len 100 -clump -20
    ~spr3  b_cat 50 -tab_lim 300  -len 100 -clum -20
    ~spr3  b_cat 50 -tab_lim 300  -len 156 -dep 31
    CONNECTOR  nor  ~norma  *avant   -ANC 180 350
    CONNECTOR  clu  ~CHAIN  *avant   -ANC 180 350
    CONNECTOR  con  ~cck    *avant   -ANC   0 350
    CONNECTOR  spr  ~spr    *avant   -ANC 180 350
    CONNECTOR  spr2 ~spr2   *avant   -ANC   0 350
    CONNECTOR  spr3 ~spr3   *avant   -ANC 180 350
END
&summ
   class
end
conn
   &loop line (nor clu con spr spr2 spr3)
      table %line
        report
        end
   &endloop
end
&loop line (clu con nor spr spr2 spr3)
   &status dg_connector %line -hard
&endloop
move
$
$*********************************************      all done
$
&fini
