Présentation de t06.jps

%% noms des noeuds

autocrop
3 setdboxit     %% espace entre le contenu d'un noeud et son
                %% encadrement ou encerclement

/Circleradius .3 def

#tex# A$_0$
#tex# A$_1$
#tex# A$_{20}$
#tex# A$_{21}$
#tex# A$_{22}$
#tex# A$_3$
#tex# A$_2$
#tex# A$_{200}$
#tex# A$_{201}$
#tex# A$_{202}$
#tex# A$_{220}$
#tex# A$_{2200}$
#tex# A$_{2201}$

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