На главную

Назад

Три листа

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