Re: Postscript printer errors with rounded barlines?

[Karl Hammar]

Han-Wen Nienhuys:
...
> Werner, can you have a look at http://codereview.appspot.com/4819041 ?

   /draw_round_box % width height x y blot
   {
  -       setlinewidth % w h x y
  -       0 setlinecap
  -       1 setlinejoin
  +        dup
  +       0.0 gt {
  +               setlinewidth % w h x y
  +               0 setlinecap
  +               1 setlinejoin
  +

There is no blot on the stack below (as indicated by the comment),
it was swallowed by setlinewidth.

  +               rmoveto % b w h
  +               currentpoint % b w h x1 y1
  +               4 2 roll % b x1 y1 w h
  +               4 copy
  +               rectfill
  +               rectstroke
  +       } {
  +               pop % w h x y
  +               rmoveto % w h
  +               currentpoint % w h x1 y1
  +               4 2 roll % x1 y1 w h
  +               rectfill
  +       } ifelse
  +} bind def

You don't seem to use this, why defining it?

  +/draw_box % width height x y
  +{
          rmoveto % w h
          currentpoint % w h x1 y1
          4 2 roll % x1 y1 w h
          4 copy
          rectfill
  -       rectstroke
   } bind def

Regards,
/Karl Hammar

-----------------------------------------------------------------------
Aspö Data
Lilla Aspö 148
S-742 94 Östhammar
Sweden
+46 173 140 57