X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Fmusic-drawing-routines.ps;fp=ps%2Fmusic-drawing-routines.ps;h=d7450e452bee0c239f10fca06e70f4f40a5c40b4;hb=c74e3c672472e22f28abc82d1705188add41a229;hp=2d17d57ab9f0e2cc00dc0132c9f43c6fd8023139;hpb=c0beab2f53c8244d101962517def952bab18189e;p=lilypond.git diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 2d17d57ab9..d7450e452b 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -138,18 +138,6 @@ bind def } ifelse } bind def -/draw_repeat_slash % x-width width height draw_repeat_slash -{ - 2 index % duplicate x-width - 1 setlinecap - 1 setlinejoin - - 0 rlineto % x-width 0 - rlineto % width height - neg 0 rlineto % -x-width 0 - closepath fill -} bind def - /draw_circle % filled? radius thickness draw_circle { setlinewidth % f? r