Présentation de t11.jps

%% utilisation des noms des noeuds

-20 10 setyrange
20 setxunit
autocrop
3 setdboxit     %% espace entre le contenu d'un noeud et son
                %% encadrement ou encerclement

/levelsep 3 def

#tex# A$_0$         %% label 0
#tex# A$_1$         %% label 1
#tex# A$_{20}$      %% label 2
#tex# A$_{21}$      %% label 3
#tex# A$_{22}$      %% label 4
#tex# A$_3$         %% label 5
#tex# A$_2$         %% label 6
#tex# A$_{200}$     %% label 7
#tex# A$_{201}$     %% label 8
#tex# A$_{202}$     %% label 9
#tex# A$_{220}$     %% label 10
#tex# A$_{2200}$    %% label 11
#tex# A$_{2201}$    %% label 12

setPalatino
0 5 (A) Tc rootnode 
[
   /label0 Tr
   /label1 Tr
   /label6 Tr
   [
      /label2 Tr 
      [
         /label7 Tr 
         /label8 Tr
         /label9 Tr
      ]
      /label3 Tr
      /label4 Tr
      [
         /label10 Tr
         [{/treesep 1.5 def} 
            /label11 Tr
            /label12 Tr
         ]
      ]
   ]
   /label5 Tr
] 
tree

bleu
(A3) (A220) (->) ncbar
/angleA 180 store
(A0) (A2200) (->) ncbar
(A0) (A20) (->) ncarc
pointilles
(A20) (A0) (->) ncarc