Старый 16.06.2007, 04:15   #869
Suny
 
Аватар для Suny
 
Рег-ция: 04.04.2007
Сообщения: 1,004
Записей в дневнике: 158
Благодарности: 3
Поблагодарили 137 раз(а) в 95 сообщениях
По умолчанию Ответ: Личное творчество


"Свет на вершине"

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;
Suny вне форума  
Показать ответы на данное сообщение Ответить с цитированием Вверх