اشكال رائعة

جميل جدا

على اي لغة هذذ البرنامج؟

ممكن نعرف الدوال المستخدمة؟

شكراً

الكود بالدلفي

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i,r,a,b,c,d:real;
begin
image1.Picture:=image2.Picture;
a:=strtoint(edit1.text);b:=strtoint(edit2.text);
c:=strtoint(edit3.text);d:=strtoint(edit4.text);
i:=0;
r:=100+100*power(sin(a*i),b)*power(cos(c*i),d);
image1.Canvas.moveto(300+round(r*cos(i)),300-round(r*sin(i)));
repeat
r:=100+100*power(sin(a*i),b)*power(cos(c*i),d);
image1.Canvas.lineto(300+round(r*cos(i+pi/360)),300-round(r*sin(i+pi/360)));
i:=i+pi/360;
until i>2*pi;
image1.Picture.SaveToFile('a.bmp');
end;