Трёхмерная графика, Пирамида Опции

[volvo]

art88,
В процедуре PlaneTri:

Line(Round(aInt[1].x), Round(aInt[1].y), Round(aInt[2].x), Round(aInt[2].y));

У меня отработало нормально, сечение чертится...

[art88]

Volvo, прошу прощения за столь тупую ошибкку.
Но у меня всё равно линия сечения не правильная(не замыкается, т.е. приходит не в ту точку).
А если поменять плоскость, то вообще какая-то ерунда получается!

Сообщение отредактировано: art88 - 12.03.2006 19:05

[volvo]

Да, совсем забыл ... Я еще кое-что поменял:

procedure GenTri(var t: tTriangle);
var
  i: integer;
begin
  for i:= 1 to n - 1 do begin

    if i = n - 1 then t.c:= pyr[1] { <--- Здесь у тебя было pyr[ 2 ]...  Почему? }
    else t.c:= pyr[i + 1];

    t.b:= pyr[i];
    PlaneTri(plane, t);

  end;
end;

Вот результат работы программы:

[art88]

Спасибо, Volvo!
Просто раньше у меня вершина хранилась в превой ячейке массива.
У меня ещё пара вопросов:
при пересечении с плоскостью 1,1,1,0 не строится линия, лежащая в основании.
сечение плоскостью 1,0,0,0 вообще не строится.

[art88]

Перебрал много плоскотей и пришёл к выводу:
если D<>0 всё нормально строится, кроме плоскостей параллельных(1,0,1,0).
Почему?

[art88]

Вобщем теперь я тупо прибавляю eps(некоторая маленькая контсанта) к D и всё нормально.
Всё равно не понимаю, в чём осбенность ситуации, когда D=0(плоскоть проходит через центр основания).
Volvo, ты ещё предлагал какие-то улучшения, уменьшающие объём программы, выложи пожалуйста.

[volvo]

Не особенно-то программа сократилась
Ну, ладно, посмотри, может чего и пригодится... Не здесь, так в других проектах

[art88]

Volvo, спасибо большое за помощь!
Кстати о других проектах, мне ведь ещё надо было шарик нарисовать...

Сообщение отредактировано: art88 - 12.03.2006 22:07