Membuat Lingkaran 4 warna pada koordinat AB

•   Buatlah desain form seperti di bawah ini.

 

•  Klik dua kali pada form, dan ketikkan koding di bawah ini pada Var umumnya:

             x0,y0,a,b,r:integer;

 x,y:real;

• Untuk kelengkapan program buatlah prosedur pendukung yaitu prosedur

          FormCreate / klik dua kali Form yang kosong, ketikkan kode di antara Begin dan End

//x0,y0 adalah lebar dan tinggi maksimum

x0:=ClientWidth div 2;

y0:=ClientHeight div 2;

•   Buatlah system  koordinat otomatis dengan Klik Form, Pilih Events  klik dua kali Pada OnPaint, dan ketikkan perintah di antara Begine dan End sepertii berikut:

procedure TForm3.FormPaint(Sender: TObject);

var

x,y:integer;

begin

for x:=0 to ClientWidth do

canvas.Pixels[x,ClientHeight div 2]:=clBlue;

for y:=0 to ClientHeight do

canvas.Pixels[ClientWidth div 2,y]:=clBlue;

end;

•   Perintah di atas akan menampilkan sumbu koordinat X berwarna Biru, dan sumbu koordinat Y berwarna biru, yang akan muncul secara otomatis.

• Kemudian buatlah prosedur tak standar untuk lingkaran trigonometri pusat AB

          dengan menuliskan perintah di bawah ini:

procedure TForm3.Button1Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

r:=StrToInt(Edit3.Text);

x:=0;

repeat

  y := k*sqrt(1 - sqr(x/h));

  Canvas.Pixels[trunc(x0+(x+h)),trunc(y0+(y+k))]:= clRed;

  Canvas.Pixels[trunc(x0+(x+h)),trunc(y0+(-y+k))]:= clBlue;

  Canvas.Pixels[trunc(x0+(-x+h)),trunc(y0+(y+k))]:= clyellow;

  Canvas.Pixels[trunc(x0+(-x+h)),trunc(y0+(-y+k))]:= clNavy;

  x := x + 0.005;

until x >= a;

end;

•  Perintah di atas akan menampilkan sebuah lingkaran dengan 4 warna berbeda yang

berada di titik simestris (x+a,y+b), (x+a,-y+b), (-x+a,y+b), (-x+a,-y+b).

•   Kemudian jalankan dengan meng-klik F9,Maka Hasilnya akan seperti dibawah ini:

• Ini adalah jawaban soal no 3 pada UTS Komputer Grafik 5-Mei-2011,.
• Selamat Mencoba....