Двоичное дерево, нарисовать дерево в графе Опции

[setare]

Здравствуйте! У меня большая проблема. Не могли бы вы подсказать как можно нарисовать дерево в модуле граф. Нужно его нарисовать так, чтобы вершина этого дерева перемещалась в зависимости от того, сколько там веток. Если одна левая ветвь, то в правый угол и наоборот. Нужно, чтобы все ветви дерева были на одом уровне. К сожалению не знаю за что взяться.
Заранее благодарю!

[volvo]

setare,
:no: Я пошел другим путем:
допустим, что дерево задано так:

PTNode = ^TNode;
TNode = Record;
  Data: Char;
  right, left: PTNode;
End;

Тогда для того, чтобы его распечатать (я пока про текстовый режим, про графический скажу потом, если такой алгоритм подойдет ) делаем так (обычный нисходящий проход - корень, правое поддерево, левое поддерево):

procedure print_tree(root: PTNode);
  const
    start_x = 40;
    start_y = 1;

    delx = 4;
    dely = 2;

  procedure print_node(T: PTNode; level: integer; x_pos: integer);
  var pos_x, pos_y: integer;
  begin
    pos_x := x_pos;
    pos_y := start_y + pred(level) * dely;

    gotoxy(pos_x, pos_y);
    writeln(T^.data);

    if T^.right <> nil then begin
      gotoxy(pos_x + (delx div 2), pos_y + 1); writeln('\');
      print_node(T^.right, level + 1, x_pos + delx);
    end;
    if T^.left <> nil then begin
      gotoxy(pos_x - (delx div 2), pos_y + 1); writeln('/');
      print_node(T^.left, level + 1, x_pos - delx);
    end;
  end;

begin
  print_node(root, 1, start_x)
end;

Результат работы этой процедуры для содержимого "g l f k e h v r s a m t" имеет вид:

А вот для графики - можно попробовать определить

start_x := getmaxx div 2;
start_y := 10; { это значение уже надо подбирать }
delx := ... { эти тоже подбираются }
dely := ...  

и заменить WriteLn на OutTextXY и Circle, главное что известны координаты и смещения узлов одно относительно другого.

Но я говорил, что будут проблемы - они есть. Масштабирование. Если будет достаточно разветвленное дерево, оно просто не поместится на экран, а при уменьшении радиуса окружности (представляющей узел) в нее просто не поместится значение узла. Так что не все так просто... Но для не очень разветвленных деревьев должно получиться неплохо... Попробуйте, если что не получится - я помогу... :yes: