autocrop
%quadrillage
%marks
-15 15 setxrange
-20 20 setyrange
setTimes
20 setxunit
20 setfontsize

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

/treenodesep 6 def  %% espace en picas entre 2 feuilles terminales
/levelsep 5 def    %% espace en unites jps entre 2 etages
-8 0 () Tr rootnode
[right
   (A) TR
   [
      (B) TR
      [
   	 (C) TR
         [
            (D) TR ]
   	 (D) TR
         [
            (C) TR ]
      ]
      (C) TR
      [
   	 (B) TR
         [
            (D) TR ]
   	 (D) TR
         [
            (B) TR ]
      ]
      (D) TR
      [
   	 (B) TR
         [
            (C) TR [() TR non_relie]]
   	 (C) TR
         [
            (B) TR [() TR non_relie]]
      ]
   ]
   (B) TR
   [
      (A) TR
      [
   	 (C) TR
         [
            (D) TR [() TR non_relie]]
   	 (D) TR
         [
            (C) TR [() TR non_relie]]
      ]
      (C) TR
      [
   	 (A) TR
         [
            (D) TR [() TR non_relie]]
   	 (D) TR
         [
            (A) TR [() TR non_relie]]
      ]
      (D) TR
      [
   	 (A) TR
         [
            (C) TR [() TR non_relie]]
   	 (C) TR
         [
            (A) TR [() TR non_relie]]
      ]
   ]
   (C) TR
   [
      (A) TR
      [
   	 (B) TR
         [
            (D) TR [() TR non_relie]]
   	 (D) TR
         [
            (B) TR [() TR non_relie]]
      ]
      (B) TR
      [
   	 (A) TR
         [
            (D) TR [() TR non_relie]]
   	 (D) TR
         [
            (A) TR [() TR non_relie]]
      ]
      (D) TR
      [
   	 (A) TR
         [
            (B) TR [() TR non_relie]]
   	 (B) TR
         [
            (A) TR [() TR non_relie]]
      ]
   ]
   (D) TR
   [
      (A) TR
      [
   	 (B) TR
         [
            (C) TR [() TR non_relie]]
   	 (C) TR
         [
            (B) TR [() TR non_relie]]
      ]
      (B) TR
      [
   	 (A) TR
         [
            (C) TR [() TR non_relie]]
   	 (C) TR
         [
            (A) TR [() TR non_relie]]
      ]
      (C) TR
      [
   	 (A) TR
         [
            (B) TR [() TR non_relie]]
   	 (B) TR
         [
            (A) TR [() TR non_relie]]
      ]
   ]
] tree*

(1er lot) (A0) nodepoint D orthoproj cctext
(2ème lot) (A00) nodepoint D orthoproj cctext
(3ème lot) (A000) nodepoint D orthoproj cctext
(4ème lot) (A0000) nodepoint D orthoproj cctext