dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| а с моим Truncated Icosahedron нет? |
А потому что ты в одном месте забыл поменять Line3D() на Clipping():
Код:
for i := 0 to c-1 do begin
for j := 1 to lines[i,0]-1 do Line3D(m,p[lines[i,j]],p[lines[i,j+1]]);
Clipping(p[lines[i,lines[i,0]]],p[lines[i,1]]);
end;
|
а должно быть
Код:
for i := 0 to c-1 do begin
for j := 1 to lines[i,0]-1 do Clipping(p[lines[i,j]],p[lines[i,j+1]]);
Clipping(p[lines[i,lines[i,0]]],p[lines[i,1]]);
end;
|
(это в конце последнего цикла repeat)
PS
И верни на место
{$N+}
{$R+}
от греха подальше...
Добавлено:
Цитата:| Можно его как-то оптимизировать? |
Работает - не трогай!
(тем более оптимизировать там особо и нечего...) |
Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 22:39 11-02-2012 | Исправлено: dimitriy7, 22:59 11-02-2012 |
|
нет? 
