На главную
Назад
Свет на вершине
for n:=1 to 100000 do
begin
pixels[x0+round(n/100*cos(n/60)),y0+round(n/100*sin(n/15*round(n/100*cos(n/30))))+round(n/100*cos(n/30))] := clWhite;
end;