%% les parametres pour la gestion de la transparence
/setstrokeopacity {
/strokeopacity exch def
} def
/setfillopacity {
/fillopacity exch def
} def
%% d apres un code de Jean-Michel Sarlat
%% http://melusine.eu.org/syracuse/swf/pdf2swf/setdash/
%% Mise en reserve de la procedure stroke originelle.
/sysstroke {systemdict /stroke get exec} def
/sysfill {systemdict /fill get exec} def
% Mise en place de la nouvelle procedure
/stroke {
/strokeopacity where {
/strokeopacity get
} {
1
} ifelse
.setopacityalpha sysstroke
} def
/fill {
/fillopacity where {
/fillopacity get
} {
1
} ifelse
.setopacityalpha sysfill
} def
/strokeopacity 1 def
/fillopacity 1 def
|