Problem mit komplexer Baumstruktur (Ps-Tricks)

[Uranos]

Hallo,

ich bin ganz verzweifelt, da ich seit Tagen versuche, die nachfolgende Baumstruktur mit Latex ein wenig übersichtlicher zu gestalten. Leider sind recht viele Kinder "unterzubringen", das heißt, ich weiß nicht, wie ich die einzelnen Verbindungslinien besser aufteilen kann oder überhaupt suche ich nach einer Möglichkeit, den Stammbaum automatisch anpassen zu lassen.
Dabei muß ich allsogleich vorwegschicken, daß ich kein ausgemachter Latex-Profi bin. Ich habe mir zwar das Manual zu Ps-Tricks ausgedruckt, doch überfordern mich die vielen Befehle auf ca. 340 Seiten. :confused:

Über Eure Hilfe wäre ich sehr dankbar! :)

Gruß,

Uranos


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[a4paper,12pt]{scrartcl}
\usepackage{pst-tree}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage{german}
\usepackage{natbib}
\usepackage{graphicx}
\usepackage{geometry}
\usepackage{textcomp}
\usepackage{footmisc}
\usepackage{babelbib}
\usepackage[french, german]{babel}
\usepackage{url}
\usepackage{setspace}
\usepackage{hyperref}
\usepackage{makeidx}
\usepackage{lscape}
\usepackage{amsmath,amsfonts,amssymb}
\usepackage{anysize}
\usepackage{fancybox}

\newcommand{\nbr}[1]{\oldstylenums{#1}}
\newcommand{\fup}[1]{% Adapted from the `french' package
\leavevmode%
%\raise+0.55ex
\hbox{\tiny\lowercase{#1}}\kern+.17em}
% Defaut edge
\renewcommand{\psedge}{\ncangle[angleA=-90,angleB=90,armB=0.6\baselineskip]}

% Macro to define one person
\newcommand{\Person}[3][]{%
\TR[#1]{%
\setlength{\tabcolsep}{0mm}%
\begin{tabular}[t]{#2}#3\end{tabular}}}


\newcommand{\LouisJoseph}{%
\Person{c}{L\textsc{ouis}-J\textsc{oseph}\\
(\textasteriskcentered\ \nbr{1726} \textdagger\
…
}}

\begin{document}
\pagestyle{empty}
\begin{landscape}

\marginsize{1.5cm}{1.5cm}{3cm}{3cm}
\begin{center}
\large
\textbf{Les Pelets}\\
\textbf{Generationen IX bis X}\\[0.25cm]
\vfill
\scriptsize
\ovalbox{%
\pstree[levelsep=*1.5\baselineskip,treesep=0.5mm,linewidth =0.15mm]
{\LouisJoseph}
{\pstree{\Francois}
\Tn{\Anne}
\Tn{\Armand}
\Tn{\FrancoisZwei}
\Tn{\Marie}
\Tn{\Antoine}
\Tn{\AnneGenevieve}
\Tn{\AdelaideMarie}
}

\end{center}
\end{landscape}
\end{document}