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
|