Ini bisa jadi referensi yang ngambil mata kuliah Grafika Komputer dalam bahasa pascal ini salah satu contoh penggambaran segitiga pada canvas sampai layar nya penuh. Saya membuat satu procedure baru yang bernama segitiga :

Code :
procedure segitiga(xa,ya,s:integer);
var a,b,c,t1,t2,t3:integer;
segitiga1 : array[1..3] of TTitik;
begin
a:=s div 2;
b:=round(sqrt(s*s-a*a));
c:=s;
t1:=0;
t2:=0;
t3:=1;

while t2 kurangdari getmaxy do begin

 segitiga1[1].x := xa+t1; segitiga1[1].y := ya+t2;
 segitiga1[2].x := xa+c+t1; segitiga1[2].y := ya+t2;
 segitiga1[3].x := xa+a+t1; segitiga1[3].y := ya-b+t2;

 while t1 kurangdari getmaxx do begin
  polygon(segitiga1,white);
  boundaryFill(segitiga1[1].x+10,segitiga1[1].y-5,white,white);
  transPolygon(segitiga1,segitiga1,s,0);
  t1:=xa+s+t1;
 end;

 t1:=0;
 t2:=b+t2;
 inc(t3);
 if t3 mod 2 = 0 then t1:=s div 2+t1;
end;
end;


Download :
4Shared