Kui soovid punkte ekraanil ühendada, on hea neid ühendada joonega. Selleks on siin programmis protseduur joon, mis tõmbab joone eelmise joone lõpust uute antud punktideni ning jätab siis nad joone lõpuna meelde.


program pidevjoon;
uses graph;
var ex, ey, vanaex, vanaey: integer;
{$I graafika.pas}

procedure joon;
begin
 line(vanaex, vanaey, ex, ey);
 vanaex:=ex;
 vanaey:=ey;
end;

begin
 KaivitaGraafika;
 ex:=50; vanaex:=50;
 ey:=100; vanaey:=100;
 ex:=80; ey:=120;
 joon;
 ex:=170; ey:=60;
 joon;
 ex:=220; ey:=90;
 joon;
 readln;
 CloseGraph;
end.