Source PostScript (soliddebugfaces.pps)

%% syntaxe : solid soliddebugfaces --> tous les indices sur la pile
/soliddebugfaces {
3 dict begin
   /solid exch def
   /n solid solidnombrefaces def
   (faces) 
   0 1 n 1 sub {
      /i exch def
      ()
      solid i solidgetface 
      aload pop
   } for
end
} def

%% syntaxe : solid soliddebugfaces --> tous les indices sur la pile
/soliddebugsommets {
3 dict begin
   /solid exch def
   /n solid solidnombresommets def
   (sommets) 
   0 1 n 1 sub {
      /i exch def
      solid i solidgetsommet
   } for
   (fin sommets)
end
} def