$*********************************************      set basics
$
$
&device -g_default device
&device   -oecho no
&dimen -DIMEN METERS
&default -depth 31
$
$*********************************************      GEN. DATABASE
$
INMODEL
$
$*********************************************      SET INIT. CONDITIONS
$
&INSTATE -LOC   0 0 -3 0 0 0
&weight -compute 1 10 10 10
$
$*********************************************      DEFINE LINES
$
MEDIT
    ~CHAIN b_cat 50 -tab_lim 300  -len 200 -clum 20
    ~CHAIN b_cat 50 -tab_lim 300  -len 156 -dep 31
    CONNECTOR  angl ~CHAIN  *avant   -ANC 45  350
    CONNECTOR  head ~CHAIN  *avant   -ANC 180 350
END
conn
   &loop line (angl head )
      geom %line
        report
        plot 2 4 -rax 1 -no
        plot 5 4 -no
        end
   &endloop
end
&fini