0 setlinejoin
0 setlinecap
0.0 setgray
[] 0 setdash 
1 1 scale
.75 setlinewidth

/borderline true def
/fontsize 10  def     %% taille des fontes
/chaine 15 string def
%%% les bornes pour courbes parametrees
/tmin -3.1416 def
/tmax 3.1416 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

%%%%%%%%%%%%%%%% calcul de la translation %%%%%%%%%%%%%%%%%%%

%% on repartit les unites sur les width x height pts de definition
%% unite sur x = width / (xmin - xmax)
/xunit 
   width 
   xmax xmin sub 
   div 
def   
%% attention, angle_repere doit etre initialise
%% unite sur y = height / sin (angle_repere) / (ymin - ymax)
/yunit 
   height 
   angle_repere sin div
   ymax ymin sub 
   div 
def   
%% = border - width.xmin / (xmin - xmax)
/xtranslate             
   border width xmin mul xmax xmin sub div sub 
def
%% = border - height.ymin / (ymin - ymax)
/ytranslate             
   border height ymin mul ymax ymin sub div sub 
def

xtranslate ytranslate translate

%%%%%%%% police par defaut
 /Times-Roman findfont 
dup length dict begin
   {
   1 index /FID ne 
      {def}
      {pop pop} 
   ifelse
   } forall
   /Encoding ISOLatin1Encoding def
   currentdict
end

 /Times-Roman-ISOLatin1 exch definefont pop

/setTimesRoman {
   /Times-Roman-ISOLatin1 findfont 
   fontsize scalefont 
   setfont
} def

/setTimes {
   setTimesRoman
} def

setTimes
/autocrop {} def

%% obsolete
%%% les bornes du dessin de la courbe
 /Xmin {xmin} def
 /Xmax {xmax .99 mul} def
 /Ymin {ymin} def
 /Ymax {ymax .99 mul} def
 /verythin .25 def
 /thin .75 def
 /medium 1.75 def 
 /thick 4 def
 /curvelinewidth {currentlinewidth} def

%% newpath
%%    border dup moveto
%%    width 0 rlineto
%%    0 height rlineto
%%    width neg 0 rlineto
%% closepath
%% clip