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
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
