X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fps.scm;h=f6f20fe81400d3203d3f383962ffb883bb0dd470;hb=5b17bf7f3960204fdff6ac28122eade7edf6592a;hp=c0989502fe5be1f29a549db1701f91546cb3e489;hpb=96eaadf3689135bf3e575fb55cf015b60ff16df5;p=lilypond.git

diff --git a/scm/ps.scm b/scm/ps.scm
index c0989502fe..f6f20fe814 100644
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -152,6 +152,21 @@
    (numbers->string
     (list x y radius)) " draw_dot"))
 
+(define (zigzag-line centre? zzw zzh thick dx dy)
+  (string-append
+    (if centre? "true" "false")
+    " "
+    (ly:number->string zzw)
+    " "
+    (ly:number->string zzh)
+    " "
+    (ly:number->string thick)
+    " 0 0 "
+    (ly:number->string dx)
+    " "
+    (ly:number->string dy)
+    " draw_zigzag_line "))
+
 (define (draw-line thick x1 y1 x2 y2)
   (string-append 
   "	1 setlinecap