GRAFIKA KOMPUTER

TUGAS PRATIKUM GRAFKOM
memuat gambar dengan scrib pada delphi 7 dengan perintah titik

berikut listings programnya

anda klik  dua kali pada form create

procedure TForm1.FormCreate(Sender: TObject);
var a,b,c,d,e,f,g,h : integer;

begin
b:=0;
d:=50;
f:=50;
h:=50;

  for a:=50 to 100 do
     begin
      Image1.Canvas.Pixels[a,b]:=clred;
      end;
  for c:=0 to 50 do
  begin
      Image1.Canvas.Pixels[c,d]:=clred;
      d:=d+1;
      end;
   for e:=0 to 100 do
   begin
      Image1.Canvas.Pixels[e,f]:=clred;
      f:=f-1;
    end;


    for a:=100 to 150 do
     begin
      Image1.Canvas.Pixels[a,b]:=clred;
      b:=b+1;
      end;
    for c:=50 to 100 do
    begin
      Image1.Canvas.Pixels[c,d]:=clred;
    end;
    for c:=100 to 150 do
    begin
      Image1.Canvas.Pixels[c,d]:=clred;
      d:=d-1;
    end;
end;

end.

dan hasil akhirnya jika di compile menjadi