На главную

Назад

Цветок - девять лепестков

for n:=1 to 10000 do
begin
Pixels[x0+round(100*sin(n/10))+round(10*sin(n)),y0+round(100*cos(n/10))+round(10*cos(n))] := clBlack;
end;