Manggambar Busur Dengan ARC

Delphi mempunyai fungsi untuk menggambar busur. Dengan demikian kita tidak perlu susah-susah menggambar dengan pixels. Fungsi yang dipakai adalah method dari Canvas yang terletak di unit Graphics.

Sintak:
Canvas.Arc(x1, y1, x2, y2, x3,y3,x4,y4);

Yang perlu diperhatikan adalah: "Anda harus membayangkan bahwa busur itu digambar di dalam kotak persegi". Kemudian bayangkan titik mulai penggambaran dan titik akhir penggambaran.

x1,y1 : koordinat kotak, diatas kiri.
x2,y2 : koordinat kotak, dibawah kanan.

x3,y3: koordinat awal penggambaran
x4,y4: koordinat akhir penggambaran.

Busur akan digambar berlawanan dengan jarum jam. Sehingga koordinat awal penggambaran terletak di sisi kanan dan akhir penggambaran di sisi kiri.

Contoh program dibawah ini akan menggambar 30 busur dari diameter paling besar ke diameter paling kecil. Setiap kali menggambar, warna garis akan diganti secara random dan diatur di:

R := 1+ Random(255);
G := 1+ Random(255);
B := 1+ Random(255);
Canvas.Pen.Color := TColor(RGB(R,G,B));

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    ClientWidth := 500;
    ClientHeight := 250;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
   i, GeserKanan, GeserBawah, MulaiX, MulaiY,
   AkhirX, AkhirY, R,G,B, AtasKiriKotakX, AtasKiriKotakY, BawahKananKotakX, BawahKananKotakY : integer;
begin
   Canvas.Pen.Width := 2;
   GeserKanan := 0;
   GeserBawah := 20;
   MulaiX := 300;
   MulaiY := 200;
   AkhirX := 100;
   AkhirY :=200;
   AtasKiriKotakX := 50;
   AtasKiriKotakY := 0;
   BawahKananKotakX := 400;
   BawahKananKotakY := 400;

for i := 1 to 30 do begin

//-- Random warna
       R := 1+ Random(255);
       G := 1+ Random(255);
       B := 1+ Random(255);

Canvas.Pen.Color := TColor(RGB(R,G,B));

Canvas.Arc(
     AtasKiriKotakX + i * GeserKanan,
     AtasKiriKotakY + GeserBawah,
     BawahKananKotakX + i * GeserKanan, BawahKananKotakY + GeserBawah,

MulaiX + i * GeserKanan, MulaiY + GeserBawah,
   AkhirX + i * GeserKanan, AkhirY + GeserBawah);

Inc(AtasKiriKotakX, 5);
   Inc(AtasKiriKotakY,5);

Dec(BawahKananKotakX,5);
   Dec(BawahKananKotakY,5);

end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar