%% syntaxe : proc relief --> dessine avec l'executable
%% proc et dans la direction par defaut
%% ou bien
%% syntaxe : proc x y relief --> dessine avec l'executable
%% proc et avec l'ombre dans la direction x y
/relief {
20 dict begin
dup xcheck
{
/dir_decalage {-1 1} def
}
{
/dir_decalage defpoint
}
ifelse
/d@ssin exch def
/vecteur_decalage {
width 900 div .5 min neg dir_decalage pop mul
height 900 div .5 min neg dir_decalage exch pop mul
} def
/decalage {vecteur_decalage translate} def
vecteur_decalage -16 mulv translate
/gr .95 def
2 dict begin
/setrgbcolor {} def
/setcmykcolor {} def
desactivecouleur
10 {
gsave
gr setgray
d@ssin
grestore
decalage
/gr gr .02 sub store
} repeat
6 {decalage} repeat
end
activecouleur
d@ssin
end
} def
|