16.06.2007, 04:15 
Рег-ция: 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;
 |   |
