На главную

Назад

Две луны

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