|
Revision 4, 0.7 kB
(checked in by jms, 8 months ago)
|
Chargement de jps2ps dans le SVN.
|
| Line | |
|---|
| 1 |
/usespecialline {} def |
|---|
| 2 |
|
|---|
| 3 |
/ep@isseur .025 def |
|---|
| 4 |
|
|---|
| 5 |
%% syntaxe : y shrule |
|---|
| 6 |
/shrule { |
|---|
| 7 |
1 dict begin |
|---|
| 8 |
/y exch def |
|---|
| 9 |
gsave |
|---|
| 10 |
newpath |
|---|
| 11 |
xmin y smoveto |
|---|
| 12 |
xmin -1 {pop y ep@isseur sub} Courbe_ |
|---|
| 13 |
-1 1 {pop y ep@isseur sub} Courbe_ |
|---|
| 14 |
1 xmax {pop y ep@isseur sub} Courbe_ |
|---|
| 15 |
xmax 1 {pop y ep@isseur add} Courbe_ |
|---|
| 16 |
1 -1 {pop y ep@isseur add} Courbe_ |
|---|
| 17 |
-1 xmin {pop y ep@isseur add} Courbe_ |
|---|
| 18 |
closepath |
|---|
| 19 |
fill |
|---|
| 20 |
grestore |
|---|
| 21 |
end |
|---|
| 22 |
} def |
|---|
| 23 |
|
|---|
| 24 |
%% syntaxe : x svrule |
|---|
| 25 |
/svrule { |
|---|
| 26 |
1 dict begin |
|---|
| 27 |
/x exch def |
|---|
| 28 |
gsave |
|---|
| 29 |
newpath |
|---|
| 30 |
x ymin smoveto |
|---|
| 31 |
ymin ymax {pop x ep@isseur sub} {} Courbeparam_ |
|---|
| 32 |
ymax ymin {pop x ep@isseur add} {} Courbeparam_ |
|---|
| 33 |
closepath |
|---|
| 34 |
fill |
|---|
| 35 |
grestore |
|---|
| 36 |
end |
|---|
| 37 |
} def |
|---|
| 38 |
|
|---|
