]> git.donarmstrong.com Git - lilypond.git/blobdiff - ps/music-drawing-routines.ps
Build: end directories in their bare names and avoid some double slashes in logs.
[lilypond.git] / ps / music-drawing-routines.ps
index 7ea8c0fb90a5e33fe1eda30984b06a9187f4f461..ccaf6b3dcc55195fcfe5fc0172f3300801108653 100644 (file)
@@ -232,24 +232,6 @@ bind def
   grestore
 } bind def
 
-/draw_connected_shape
-{
-  gsave
-  currentpoint translate
-  /filled exch def
-  /connect exch def
-  /savematrix matrix currentmatrix def
-  setlinewidth
-  scale
-  /arlen exch def
-  arlen {
-    /shlen exch def
-    shlen { } repeat shlen 2 eq { lineto } { curveto } ifelse
-  } repeat connect { closepath } if
-  savematrix setmatrix filled { stroke_and_fill } { stroke } ifelse
-  grestore
-} bind def
-
 /draw_line % dx dy x1 y1 thickness draw_line
 {
        setlinewidth % dx dy x1 y1