autocrop
%quadrillage
%marks
-10 10 setxrange
-10 10 setyrange
setTimes
20 setxunit

%% la droite pour les legendes "manch no .."
/D {6 horizontale} def

/treenodesep 15 def  %% espace en picas entre 2 feuilles terminales
/levelsep 3.5 def    %% espace en unites jps entre 2 etages
-8 0 () TRc rootnode
[right
   (P) TR
   [
      (P) TR
      [
   	 (P) TR [(PPP) TR non_relie]
   	 (G) TR [(PPG) TR non_relie]
      ]
      (G) TR
      [
   	 (P) TR [(PGP) TR non_relie]
   	 (G) TR [(PGG) TR non_relie]
      ]
   ]
   (G) TR
   [
      (P) TR
      [
   	 (P) TR [(GPP) TR non_relie]
   	 (G) TR [(GPG) TR non_relie]
      ]
      (G) TR
      [
   	 (P) TR [(GGP) TR non_relie]
   	 (G) TR [(GGG) TR non_relie]
      ]
   ]
] tree*

(Manche no 1) (A0) nodepoint D orthoproj cctext
(Manche no 2) (A00) nodepoint D orthoproj cctext
(Manche no 3) (A000) nodepoint D orthoproj cctext
(Résultats) (A0000) nodepoint D orthoproj cctext