\version "2.16.2"
#(define-markup-command (squiggle layout props wd ht rep )
  (number? number? number?)
  #:category graphic
  #:properties ((thickness 2))
  (let* ((th (* (ly:output-def-lookup layout 'line-thickness) thickness))
         (x 0)
         (step (* wd 0.5))
         (strht (number->string ht))
         (strps (string-append (number->string th) " setlinewidth "
                 "0 0 moveto " 
                 (number->string (* step 1)) " " strht " "
                 (number->string (* step 2)) " " strht " "
                 (number->string (* step 3)) " 0 curveto "
                 (number->string (* step 3)) " 0 moveto " 
                 (number->string (* step 4)) " -" strht " "
                 (number->string (* step 5)) " -" strht " "
                 (number->string (* step 6)) " 0 curveto stroke"  )))
       (interpret-markup layout props (markup #:pattern rep X (* 3 wd) 
                                                                 #:postscript strps #:hspace (* 3 wd)))))

#(define-markup-command (zacken layout props wd ht rep )
  (number? number? number?)
  #:category graphic
  #:properties ((thickness 2))
  (let* ((th (* (ly:output-def-lookup layout 'line-thickness) thickness))
         (x 0)
         (step (* wd 1))
         (strht (number->string ht))
         (strpsA (string-append (number->string th) " setlinewidth "
                 "0 0 moveto " 
                 (number->string (* step 1)) " " strht " lineto "
                 (number->string (* step 2)) " 0 lineto stroke"))
         (strpsB (string-append (number->string th) " setlinewidth "
                 "0 0 moveto " 
                 (number->string (* step 2)) " 0 lineto stroke")))
       (interpret-markup layout props (markup #:concat (#:pattern (- rep 1) X 0
                           (#:concat ( #:postscript strpsA #:hspace (* 2 wd) 
                                            #:postscript strpsB #:hspace (* 2 wd)))
                                            #:postscript strpsA #:hspace (* 2 wd))))))


\relative c'' {
  s^\markup \squiggle #5 #1.5 #40 
}