кривые высшего порядка

[zhenek101]

ребят вобщем такая проблема, есть код:

procedure TForm1.Button8Click(Sender: TObject);
var
r,t,x,y:integer;
s:single;
begin
for t:=1 to 555 do
begin
s:=t*pi/180;                       //перевод в реадианы
r:=round(50*3*sin(2/1*s));        //нахождение радиуса
x:=round(r*cos(s));                // нахождение точек формул круга
y:=round(r*sin(s));
if t=1 then canvas.MoveTo(x+w2,y+h2)     // прорисовка
else canvas.LineTo(x+w2,y+h2);
end;
end;

но надо сделать так чтобы лепестки были немного уже и под градусом, т.е. как на рисунке
в чём ошибка подскажите!!!

[Ybn2]

Сообщение от zhenek101

ребят вобщем такая проблема, но надо сделать так чтобы лепестки были немного уже и под градусом

А сейчас у тебя широкие и трезвые? Поэкспериментируй с градусами и с коэффициентами сужения. Еще учти, что зависит от разрешения экрана, например, 800х600 -один вид, а 1280х1024 - другой.