* scm/tex.scm (zigzig-line): added.

[lilypond.git] / scm / ps.scm

diff --git a/scm/ps.scm b/scm/ps.scm
index c0989502fe5be1f29a549db1701f91546cb3e489..f6f20fe81400d3203d3f383962ffb883bb0dd470 100644 (file)
--- 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