%% 0 setlinejoin
%% 0 setlinecap
%% 0.0 setgray
%% [] 0 setdash 
%% 
%% %% SCALE 
%% 1 1 scale
%% 
%% newpath
%%    border dup moveto
%%    width 0 rlineto
%%    0 height rlineto
%%    width neg 0 rlineto
%% closepath
%% clip
%% 
%% %%%%%%%%%%% parametres de base %%%%%%%%%%%%%%
%% /verythin .25 def
%% /thin .75 def
%% /medium 1.75 def 
%% /thick 4 def
%% 
%% /curvelinewidth thin def
%% /borderline true def
%% 
%% verythin setlinewidth
%% 
%% /fontsize 12.5  def     %% taille des fontes
%% /ch 15 string def
%% 
%% %% les parametres pour le dessin des points
%% /dotstyle {point} def
%% /dotscale {1 1} def
%% /dotangle 0 def
%% /dotsize 4 def
%% 
%% %% les parametres pour le remplissage des domaines
%% /fillstyle {} def
%% /startest {false} def
%% 
%% %% la procedure pour les objets "star"
%% %% si c'est "star" on fait le fillstyle, sinon non
%% /starfill {
%%    startest 
%%       {
%%       gsave
%%          clip
%%          fillstyle
%%       grestore
%%       }
%%    if
%% } def
%% 
%% /autocrop {} def
%% 
%% 
%%