Program Ex4_4  (input,output);

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

Type
   %include 'ilap:nmos.types'

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

%include 'ilap:nmos.specs'

Begin
   Initialise ('croute');

   ya := 0;
   xb := 100;
   for i := 1 to 6 do begin
     a[i].x := xb - 15*i;
     a[i].w := 4;
     b[i].x := ya + 12*i;
     b[i].w := 4;
   end;

   croute('corner route', a, b, 6, ya, xb, metal, mwid, msep);

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

   Finish;
End.