Modifikasi Animasi Parametrik dengan Delphi

Berikut adalah contoh modifikasi animasi parametrik menggunakan Delphi:

Pertama buat design form yang terdiri dari sebuah button, dan timer. Deklarasikan variabel berikut di variabel global:

var
  Form1: TForm1;
  r,d,c,x,y,z,theta,thetf,arc:real;
  a,xc,yc,b,xp:integer;

Klik timer, ketikkan listing berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (thetf<(theta)) then
if(arc<=1)then
begin
r:=b+a*(sin(7*thetf));
x:=r*cos(thetf);
//y:=r*sin(4*thetf);
y:=r*sin(thetf);
canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clwhite;
thetf:=thetf+c;
end;
end; 

klik button yang tadi dibuat yang diberi nama curve:

 procedure TForm1.Button1Click(Sender: TObject);
begin
a:=100;xc:=250;yc:=200;b:=100;
thetf:=0;
d:=PI;
theta:=6*PI;
c:=1/a;
arc:=-1;
timer1.Enabled:=true;
end;
Jalankan maka akan tampak hasil seperti diatas