Source PostScript (isreal.pps)

Retour Texte non formaté 

%% syntaxe : any isreal --> booleen
/isreal {
   type (realtype) cvn eq
} def