Arsip: Menggambar Kurva (Bezier)


by agusmade in Articles more 17 years ago 7363
Dalam pembuatan aplikasi pengolah gambar atau CAD (Computer Aided Design), software kita harus bisa menggambar kurva. GDI Windows hanya mendukung pembuatan kurva jenis 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--------------------------//

Coinfest

Pascal Indonesia is Coinfest Asia 2024's official community partner! 🀝
β˜€οΈ Take part in Asia’s immersive Web3 festival, where innovation meets adoption.
🎟 Get your tickets at www.coinfest.asia and use our special promo code : CA24PASCALINDO to get 10% off!

Why Coinfest Asia?
● Unconventionally Engaging
Our immersive setting and programming leave you with more memory markers than any other event
● Dive into Emerging Markets
Get connected in Southeast Asia; the fastest-growing Web3 region in the world
● Jump straight into Adoption
Foster collaborations directly in Indonesia where there are 437k new crypto users each month

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com