 |
 |
Kelompok 1
Label:
Transformasi 2D
nama kelompok :
lidya wati
wulan hernawati
sri kurniasih
raghyl sasmitha
suharjono
gigih prananto
tri murwono
arifai
GAMBAR TRANFORMASI 2D
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
therect:TRect;
begin
for a:=1 to 100 do
begin
Canvas.Pixels[300+a,300]:=clBlack;
Canvas.Pixels[300-a,300]:=clblack;
Canvas.Pixels[400+a,300]:=clBlack;
Canvas.Pixels[200-a,300-a]:=clBlack;
Canvas.Pixels[500+a,300-+a]:=clBlack;
Canvas.Pixels[200+a,200]:=clBlack;
Canvas.Pixels[200-a,200]:=clBlack;
Canvas.Pixels[500+a,200]:=clBlack;
Canvas.Pixels[300+a,200]:=clblack;
Canvas.Pixels[400+a,200]:=clblack;
Canvas.Pixels[350,100+a]:=clblack;
Canvas.Pixels[450-a,200-a]:=clBlack;
Canvas.Pixels[250+a,200-a]:=clBlack;
Canvas.Pixels[340+a,270]:=clBlack;
Canvas.Pixels[340-a,270]:=clBlack;
Canvas.Pixels[428+a,270]:=clBlack;
Canvas.Pixels[170+a,270]:=clBlack;
///Canvas.Pixels[100+a,100]:=clBlack;
end;
end;
end.
Langganan:
Posting Komentar (Atom)
y0ut13t
Posting Komentar