/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