Source PostScript (treelabel.pps)

%% syntaxe : tnode string addliaison
/addliaison {
4 dict begin
   /label exch def
   /tnode exch def
   /table tnode get_liaison_array def
   /i 0 def
   tnode [
   table length {
      table i get
      /i i 1 add store
   } repeat
   label
   ] put_liaison_array
end
} def

%% syntaxe : tnode string addaffliaison
/addaffliaison {
4 dict begin
   /afflabel exch def
   /tnode exch def
   /table tnode get_affliaison_array def
   /i 0 def
   tnode [
   table length {
      table i get
      /i i 1 add store
   } repeat
   afflabel
   ] put_affliaison_array
end
} def

%%%%%%%%

%% syntaxe : tnode string/lit clput
/dlput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( dltext) append} {option ( dltexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit blput
/blput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( bltext) append} {option ( bltexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit clput
/clput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( cltext) append} {option ( cltexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ulput
/ulput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( ultext) append} {option ( ultexlabel) append} ifelse
   p@tliaison
end
} def

%%%%%%%%

%% syntaxe : tnode string/lit cbput
/dbput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( dbtext) append} {option ( dbtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit bbput
/bbput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( bbtext) append} {option ( bbtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit cbput
/cbput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( cbtext) append} {option ( cbtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ubput
/ubput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( ubtext) append} {option ( ubtexlabel) append} ifelse
   p@tliaison
end
} def

%%%%%%%%

%% syntaxe : tnode string/lit dcput
/dcput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( dctext) append} {option ( dctexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit bcput
/bcput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( bctext) append} {option ( bctexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ccput
/ccput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( cctext) append} {option ( cctexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ucput
/ucput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( uctext) append} {option ( uctexlabel) append} ifelse
   p@tliaison
end
} def

%%%%%%%%

%% syntaxe : tnode string/lit drput
/drput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( drtext) append} {option ( drtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit brput
/brput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( brtext) append} {option ( brtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit crput
/crput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( crtext) append} {option ( crtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit urput
/urput {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {option ( urtext) append} {option ( urtexlabel) append} ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit dcput*
/dcput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} dctext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} dctexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit bcput*
/bcput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} bctext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} bctexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ccput*
/ccput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} cctext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} cctexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ucput*
/ucput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} uctext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} uctexlabel) append
   } ifelse
   p@tliaison
end
} def

%%% 

%% syntaxe : tnode string/lit dlput*
/dlput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} dltext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} dltexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit blput*
/blput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} bltext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} bltexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit clput*
/clput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} cltext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} cltexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ulput*
/ulput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} ultext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} ultexlabel) append
   } ifelse
   p@tliaison
end
} def

%%% 

%% syntaxe : tnode string/lit dbput*
/dbput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} dbtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} dbtexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit bbput*
/bbput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} bbtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} bbtexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit cbput*
/cbput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} cbtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} cbtexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit ubput*
/ubput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} ubtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} ubtexlabel) append
   } ifelse
   p@tliaison
end
} def

%%% 

%% syntaxe : tnode string/lit drput*
/drput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} drtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} drtexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit brput*
/brput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} brtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} brtexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit crput*
/crput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} crtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} crtexlabel) append
   } ifelse
   p@tliaison
end
} def

%% syntaxe : tnode string/lit urput*
/urput* {
1 dict begin
   /option () def
   dup xcheck {
      exec /option exch def
   } if
   dup isstring {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} urtext) append
   } {
      option ( {noeud_pere get_coordonnees_noeud 
                noeud_fils get_coordonnees_noeud angle tronqueangle} urtexlabel) append
   } ifelse
   p@tliaison
end
} def

/p@tliaison {
3 dict begin
   /aff exch def
   /lab exch def
   dup /tnode exch def
   tnode lab addliaison
   tnode aff addaffliaison
end
} def