|
Revision 4, 0.7 kB
(checked in by jms, 8 months ago)
|
Chargement de jps2ps dans le SVN.
|
| Line | |
|---|
| 1 |
%% les parametres pour la gestion de la transparence |
|---|
| 2 |
/setstrokeopacity { |
|---|
| 3 |
/strokeopacity exch def |
|---|
| 4 |
} def |
|---|
| 5 |
/setfillopacity { |
|---|
| 6 |
/fillopacity exch def |
|---|
| 7 |
} def |
|---|
| 8 |
%% d apres un code de Jean-Michel Sarlat |
|---|
| 9 |
%% http://melusine.eu.org/syracuse/swf/pdf2swf/setdash/ |
|---|
| 10 |
%% Mise en reserve de la procedure stroke originelle. |
|---|
| 11 |
/sysstroke {systemdict /stroke get exec} def |
|---|
| 12 |
/sysfill {systemdict /fill get exec} def |
|---|
| 13 |
% Mise en place de la nouvelle procedure |
|---|
| 14 |
/stroke { |
|---|
| 15 |
/strokeopacity where { |
|---|
| 16 |
/strokeopacity get |
|---|
| 17 |
} { |
|---|
| 18 |
1 |
|---|
| 19 |
} ifelse |
|---|
| 20 |
.setopacityalpha sysstroke |
|---|
| 21 |
} def |
|---|
| 22 |
/fill { |
|---|
| 23 |
/fillopacity where { |
|---|
| 24 |
/fillopacity get |
|---|
| 25 |
} { |
|---|
| 26 |
1 |
|---|
| 27 |
} ifelse |
|---|
| 28 |
.setopacityalpha sysfill |
|---|
| 29 |
} def |
|---|
| 30 |
|
|---|
| 31 |
/strokeopacity 1 def |
|---|
| 32 |
/fillopacity 1 def |
|---|
| 33 |
|
|---|
