Program Ex4_2  (input,output);

Const
   %include 'ilap:nmos.consts'
   mwid=3;       { metal line width}
   msep=3;       { metal line separation}

Type
   %include 'ilap:nmos.types'

Var
   a ,b : array [1..6] of port;
   i,sepn : integer;

%include 'ilap:nmos.specs'

Begin
   Initialise ('Rroute');

   for i :=1 to 6 do begin
      a[i].x := 7*i;
      a[i].w := 4;
      b[i].x := 15*(i-1);
      b[i].w := 4;
   end;
   sepn := route ('river route', a, b, 6, metal, mwid, msep, 0);

   symbol('river route demo');
      for i := 1 to 6 do pm (a[i].x+2, 1) ;
      draw ('river route', 0, 0);
      for i := 1 to 6 do dm (b[i].x+2, sepn-1);
   endsymbol;

   Finish;
End.