🚀 go-pugleaf

I'm defining a character set, and I need to draw a reverse video circle.
Unfortunately, to quote the Red Book, "The use of setgray after a 
setcachedevice operation within the scope of a BuildChar procedure
is not permitted (an undefined error results)."

Here's what I'm trying to do.  Does anyone have an alternate suggestion?

    bsmiley {
      newpath
      300 300 300 0 360 arc
      closepath fill
      300 300 150 210 330 arc 1 setgray 1 setlinecap 100 setlinewidth stroke
      200 400 70 0 360 arc closepath fill
      400 400 70 0 360 arc closepath fill} def

-- 
Clayton E. Cramer {pyramid,pixar,tekbspa}!optilink!cramer
A pacifist who calls the police isn't one; hired violence is still violence.
----------------------------------------------------------------------------
Disclaimer?  You must be kidding!  No company would hold opinions like mine!