Source PostScript (node.pps)

 /treenodedict 70 dict def
 treenodedict begin

%% cree le dictionnaire et son nom pour le node en question
/node {
   /n@deencours true store
   dup /n@den@mesuffix exch def
   /node_name exch def
   /node_name node_name (node_dict) append store
   treenodedict node_name cvlit 10 dict put
   /n@dedict node_name cvx def
} def

%% cree le dictionnaire et son nom pour le node en question
/cnode {
   /cn@deencours true store
   dup /n@den@mesuffix exch def
   /node_name exch def
   /node_name node_name (node_dict) append store
   treenodedict node_name cvlit 10 dict put
   /n@dedict node_name cvx def
   circleit
} def

%% cree le dictionnaire et son nom pour le node en question
/Cnode {
   /Cn@deencours true store
   dup /n@den@mesuffix exch def
   /node_name exch def
   /node_name node_name (node_dict) append store
   Pictdic node_name cvlit 10 dict put
   treenodedict node_name cvlit 10 dict put
   /n@dedict node_name cvx def
   Circleit
} def

/bnode {
   boxit node 
} def

/Rnode {
   /Rn@deencours true def
   boxit node 
} def

%% cree le dictionnaire et son nom pour le node en question
/dianode {
   /dian@deencours true store
   dup /n@den@mesuffix exch def
   /node_name exch def
   /node_name node_name (node_dict) append store
   treenodedict node_name cvlit 10 dict put
   /n@dedict node_name cvx def
   diaboxit
} def

%% cree le dictionnaire et son nom pour le node en question
/ovalnode {
   /ovaln@deencours true store
   dup /n@den@mesuffix exch def
   /node_name exch def
   /node_name node_name (node_dict) append store
   treenodedict node_name cvlit 10 dict put
   /n@dedict node_name cvx def
   ovalit
} def

%% syntaxe : x y string enode
%% cree le dictionnaire et son nom pour un node vide de coordonnees (x,y)
/enode {
   /n@deencours true store
   dup /n@den@mesuffix exch def
   /node_name exch def
   /node_name node_name (node_dict) append store
   treenodedict node_name cvlit 10 dict put
   /n@dedict node_name cvx def
   () 3 1 roll cctext
} def