490 

   490 

   491 // fill point

   491 // fill point

   492 pa.ar[pa.Count].x:= 1;

   492 pa.ar[pa.Count].x:= 1;

   493 pa.ar[pa.Count].y:= 1 + off_y;

   493 pa.ar[pa.Count].y:= 1 + off_y;

   494 

   494 

   495 for i:= 0 to pa.Count - 1 do

   496 for i:= 0 to pa.Count - 1 do

   496     begin

   497     begin

   497         system.writeln(pa.ar[i].x, ', ', pa.ar[i].y);

   498         system.writeln(pa.ar[i].x, ', ', pa.ar[i].y);

   498     end;

   499     end;

   499 

   501 

   500 // divide while it divides

   502 // divide while it divides

   501 repeat

   503 repeat

   502     i:= pa.Count;

   504     i:= pa.Count;

   503     DivideEdges(1, pa)

   505     DivideEdges(1, pa)