equal
deleted
inserted
replaced
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 { |
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; |
|
500 } |
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) |