Menggambar Tembereng dengan Chord

Dalam matematika, Tembereng adalah daerah yang dibatas oleh busur dan tali busurnya. Jadi jika Anda membaca artikel saya tentang menggambar busur, maka Anda akan lebih mudah memahami program di artikel ini. Perbedaan, di busur, kita cuma menggambar garis talinya saja, sedangkan tembereng, kita juga menggambar daerah yang dibatasinya. So...kesimpulannya, lebih menarik.

Method-method yang dipakai disini ada di Unit Graphics, sehingga harus disertakan di bagian uses.

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

Nah, secara sintak, hampir sama dengan sintak Arch (menggambar busur), perbedaannya cuma mengganti kata Arc dengan Chord.

Dua parameter pertama digunakan untuk menentukan bidang berbentuk kotak (x1, y1, x2, y2). Korrdinat x1,y1 menyatakan koordinat atas gambar, sedangkan dua parameter selanjutnya adalah koordinat kanan bawah.

Sedangkan dua parameter selanjutnya adalah koordinat permulaan (x3, y3) dan akhir (x4, y4) dari busur.

Program dibawah ini akan menggambar dua tembereng dengan warna yang berbeda.

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);
    procedure FormShow(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;

FormPaint(Sender);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    i, GeserKanan, GeserBawah, MulaiX, MulaiY,
    AkhirX, AkhirY, AtasKiriKotakX, AtasKiriKotakY,
    BawahKananKotakX, BawahKananKotakY : integer;
begin
    //-- Tembereng Atas
    Canvas.Pen.Width := 2;
    Canvas.Pen.Color := clRed;
    Canvas.Brush.Style := bsSolid;
    Canvas.Brush.Color := clRed;
    GeserKanan := 0;
    GeserBawah := -20;
    MulaiX := 200;
    MulaiY := 200;
    AkhirX := 100;
    AkhirY :=  200;
    AtasKiriKotakX := 25;
    AtasKiriKotakY := 50;
    BawahKananKotakX := 200;
    BawahKananKotakY := 350;

Canvas.Chord(
      AtasKiriKotakX + i * GeserKanan,
      AtasKiriKotakY + GeserBawah,
      BawahKananKotakX + i * GeserKanan, BawahKananKotakY + GeserBawah,
      MulaiX + i * GeserKanan,
      MulaiY + GeserBawah,
      AkhirX + i * GeserKanan,
      AkhirY + GeserBawah);

//-- Tembereng Bawah
     Canvas.Pen.Width := 5;
     Canvas.Pen.Color := clWhite;
     Canvas.Brush.Style := bsSolid;
     Canvas.Brush.Color := clWhite;

MulaiX := 100;
     MulaiY := 200;
     AkhirX := 300;
     AkhirY :=200;
     GeserBawah := -10;

Canvas.Chord(
       AtasKiriKotakX + i * GeserKanan,
       AtasKiriKotakY + GeserBawah,
       BawahKananKotakX + i * GeserKanan, BawahKananKotakY + GeserBawah,
       MulaiX + i * GeserKanan, MulaiY + GeserBawah,
       AkhirX + i * GeserKanan, AkhirY + GeserBawah);
end;

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

procedure TForm1.FormShow(Sender: TObject);
begin
    Invalidate;
end;

end.

Menggambar Tembereng dengan Chord

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar