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

[art88]

Задача
Изобразить линию сечения правильной шестигранной пирамиды плоскостью, заданной коэффициентами своего уравнения(Основание пирамиды лежит в плоскости XOY, высота совпадает с осью Z)
----------------------------------------------------------
Проблема
Подскажите, как лучше потроить усечённую пирамиду, если я знаю взаимное расположение плоскости и каждой грани(точку пересечения или то, что они параллельны или, что грань лежит в плоскости).
----------------------------------------------------------
Программа
Рисует пирамиду(DrawPyr), оси координат(DrawAxes), может находить взаимное расположение граней и плоскости(Interception).
(См. Pyramid.pas).

[volvo]

art88, кажется я понял, в чем ошибка... Я бы на твоем месте попробовал сделать вот так (читай комментарии):

var
  j: integer; 
  curr_intr: integer; { здесь будет храниться количество точек пересечения секущей с гранями }
  arrIntr: array[1 .. 20] of tPoint; { здесь - соответственно - сами эти точки ... }

begin
  Gd:= Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then Halt;

  DrawAxes(green);
  DrawPyr(rPyr, hPyr, white);

  plane.A:= A; plane.B:= B; plane.C:= C; plane.D:= D;
  { До этого места - никаких изменений }
  curr_intr := 0; 

  { А теперь - the main stuff }

  for j := 2 to i do begin { сначала работаем с ОСНОВАНИЕМ пирамиды }

    lin.bol := pyr[pred(j)]; { Начало отрезка }
    if j <> i then lin.eol := pyr[j]
    else lin.eol := pyr[1]; { Конец отрезка }

    Interception(lin, plane); { находим точку пересечения секущей с этим ребром}
    { здесь надо бы еще проверять, принадлежит ли эта точка ребру... }
    if not paral then begin
      inc(curr_intr); arrIntr[curr_intr] := pInt; { добавляем точку пересечения в список }
    end;
  end;

  { теперь переходим к боковым граням пирамиды, производим с ними ту же операцию }
  lin.bol.x := 0;
  lin.bol.y := 0;
  lin.bol.z := hPyr;
  for j := 1 to pred(i) do begin

    lin.eol := pyr[j];

    Interception(lin, plane);
    if not paral then begin
      inc(curr_intr); arrIntr[curr_intr] := pInt;
    end;
  end;

  { Вот теперь - самое интересное !!! }
  ...
  ReadLn;
  CloseGraph;
end.

А самое интересное - это то, что у тебя есть после всех этих операций список точек пересечения секущей плоскости с пирамидой... НО этого недостаточно. Чтобы правильно отрисовать нужную тебе кривую, ты должен построить из этих точек выпуклый полигон, то есть определить порядок соединения точек... И когда ты найдешь этот порядок, просто в соединяй точки... Все.

Алгоритмы построения полигона были где-то, по-моему, даже на форуме... Попробуй это реализовать.