На главную

Назад

Капля океана

for n:=1 to 100000 do
begin
Pixels[x0+round(0.001*n*sin(n/100))+round(0.0003*n*sin(n/50)),y0+round(100*cos(n/100))+round(30*cos(n/100))] := clBlue+round(n*cos(n/100));
end;