|
Revision 4, 1.9 kB
(checked in by jms, 8 months ago)
|
Chargement de jps2ps dans le SVN.
|
| Line | |
|---|
| 1 |
0 setlinejoin |
|---|
| 2 |
0 setlinecap |
|---|
| 3 |
0.0 setgray |
|---|
| 4 |
[] 0 setdash |
|---|
| 5 |
1 1 scale |
|---|
| 6 |
.75 setlinewidth |
|---|
| 7 |
|
|---|
| 8 |
/borderline true def |
|---|
| 9 |
/fontsize 10 def %% taille des fontes |
|---|
| 10 |
/chaine 15 string def |
|---|
| 11 |
%%% les bornes pour courbes parametrees |
|---|
| 12 |
/tmin -3.1416 def |
|---|
| 13 |
/tmax 3.1416 def |
|---|
| 14 |
|
|---|
| 15 |
%% les parametres pour le dessin des points |
|---|
| 16 |
/dotstyle {point} def |
|---|
| 17 |
/dotscale {1 1} def |
|---|
| 18 |
/dotangle 0 def |
|---|
| 19 |
/dotsize 4 def |
|---|
| 20 |
|
|---|
| 21 |
%% les parametres pour le remplissage des domaines |
|---|
| 22 |
/fillstyle {} def |
|---|
| 23 |
/startest false def |
|---|
| 24 |
|
|---|
| 25 |
%%%%%%%%%%%%%%%% calcul de la translation %%%%%%%%%%%%%%%%%%% |
|---|
| 26 |
|
|---|
| 27 |
%% on repartit les unites sur les width x height pts de definition |
|---|
| 28 |
%% unite sur x = width / (xmin - xmax) |
|---|
| 29 |
/xunit |
|---|
| 30 |
width |
|---|
| 31 |
xmax xmin sub |
|---|
| 32 |
div |
|---|
| 33 |
def |
|---|
| 34 |
%% attention, angle_repere doit etre initialise |
|---|
| 35 |
%% unite sur y = height / sin (angle_repere) / (ymin - ymax) |
|---|
| 36 |
/yunit |
|---|
| 37 |
height |
|---|
| 38 |
angle_repere sin div |
|---|
| 39 |
ymax ymin sub |
|---|
| 40 |
div |
|---|
| 41 |
def |
|---|
| 42 |
%% = border - width.xmin / (xmin - xmax) |
|---|
| 43 |
/xtranslate |
|---|
| 44 |
border width xmin mul xmax xmin sub div sub |
|---|
| 45 |
def |
|---|
| 46 |
%% = border - height.ymin / (ymin - ymax) |
|---|
| 47 |
/ytranslate |
|---|
| 48 |
border height ymin mul ymax ymin sub div sub |
|---|
| 49 |
def |
|---|
| 50 |
|
|---|
| 51 |
xtranslate ytranslate translate |
|---|
| 52 |
|
|---|
| 53 |
%%%%%%%% police par defaut |
|---|
| 54 |
/Times-Roman findfont |
|---|
| 55 |
dup length dict begin |
|---|
| 56 |
{ |
|---|
| 57 |
1 index /FID ne |
|---|
| 58 |
{def} |
|---|
| 59 |
{pop pop} |
|---|
| 60 |
ifelse |
|---|
| 61 |
} forall |
|---|
| 62 |
/Encoding ISOLatin1Encoding def |
|---|
| 63 |
currentdict |
|---|
| 64 |
end |
|---|
| 65 |
|
|---|
| 66 |
/Times-Roman-ISOLatin1 exch definefont pop |
|---|
| 67 |
|
|---|
| 68 |
/setTimesRoman { |
|---|
| 69 |
/Times-Roman-ISOLatin1 findfont |
|---|
| 70 |
fontsize scalefont |
|---|
| 71 |
setfont |
|---|
| 72 |
} def |
|---|
| 73 |
|
|---|
| 74 |
/setTimes { |
|---|
| 75 |
setTimesRoman |
|---|
| 76 |
} def |
|---|
| 77 |
|
|---|
| 78 |
setTimes |
|---|
| 79 |
/autocrop {} def |
|---|
| 80 |
|
|---|
| 81 |
%% obsolete |
|---|
| 82 |
%%% les bornes du dessin de la courbe |
|---|
| 83 |
/Xmin {xmin} def |
|---|
| 84 |
/Xmax {xmax .99 mul} def |
|---|
| 85 |
/Ymin {ymin} def |
|---|
| 86 |
/Ymax {ymax .99 mul} def |
|---|
| 87 |
/verythin .25 def |
|---|
| 88 |
/thin .75 def |
|---|
| 89 |
/medium 1.75 def |
|---|
| 90 |
/thick 4 def |
|---|
| 91 |
/curvelinewidth {currentlinewidth} def |
|---|
| 92 |
|
|---|
| 93 |
%% newpath |
|---|
| 94 |
%% border dup moveto |
|---|
| 95 |
%% width 0 rlineto |
|---|
| 96 |
%% 0 height rlineto |
|---|
| 97 |
%% width neg 0 rlineto |
|---|
| 98 |
%% closepath |
|---|
| 99 |
%% clip |
|---|
