На главную

Назад

Роза

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