]> git.donarmstrong.com Git - lilypond.git/blobdiff - ps/music-drawing-routines.ps
* input/regression/rehearsal-mark-number.ly: new file.
[lilypond.git] / ps / music-drawing-routines.ps
index b665aff49a98416b292921c35f73a48ee74aec36..f3cae4c6a01e5a02fde391fd62ddf92a51397b83 100644 (file)
 } bind def
 
 % Nice beam with rounded corners
-/draw_beam % slope width thick 
+/draw_beam % slope width thick  blot
 {
-       currentdict /testing known {
-               %% real thin lines for testing
-               /blot 0.005 def
-       }{
-               /blot blot-diameter def
-       } ifelse
+       /blot exch def 
        blot setlinewidth
 
        0 setlinecap