/usespecialline {} def
/ep@isseur .025 def
%% syntaxe : y shrule
/shrule {
1 dict begin
/y exch def
gsave
newpath
xmin y smoveto
xmin -1 {pop y ep@isseur sub} Courbe_
-1 1 {pop y ep@isseur sub} Courbe_
1 xmax {pop y ep@isseur sub} Courbe_
xmax 1 {pop y ep@isseur add} Courbe_
1 -1 {pop y ep@isseur add} Courbe_
-1 xmin {pop y ep@isseur add} Courbe_
closepath
fill
grestore
end
} def
%% syntaxe : x svrule
/svrule {
1 dict begin
/x exch def
gsave
newpath
x ymin smoveto
ymin ymax {pop x ep@isseur sub} {} Courbeparam_
ymax ymin {pop x ep@isseur add} {} Courbeparam_
closepath
fill
grestore
end
} def
|