Arsip: Menggambar Kurva (Bezier)

Kurva bezier adalah kurva yang digambar melalui minimal 3 titik. dengan 2 buah titik sebagai unjung dan sisanya adalah titik control. untuk lebih jelas soal kurva bezier silahkan kunjungi wikipedia soal bezier (http://en.wikipedia.org/wiki/B%C3%A9zier_curve)

Berikut adalah contoh program untuk menggambar kurva bezier secara random.

procedure TForm1.Button1Click(Sender: TObject);
var pusat:array of tpoint;
i:integer;
begin
setlength(pusat,4);
for i:=low(pusat) to high(pusat) do
begin
pusat[i].x:=random(width);
pusat[i].y:=random(height);
end;
canvas.PolyBezier(pusat);
end;
//----------------------------agusmade--------------------------//