На главную
Назад
Новая звезда
for n:=1 to 100000 do
begin
Pixels[x0+round((n/100*sin(n))*sin(n/200)),y0+round((n*sin(n)/100*sin(n))*cos(n/200))+round((n/100*sin(n))*cos(n/200))] := clWhite;
end;