"Wild" Harp Glisses

[Yoshiaki Onishi]

P.S. In case the attached .ly file did not open properly, here is its content:



\version "2.24.4"

squiggly =
\once \override Voice.NoteHead.stencil =
#(grob-transformer
  'stencil
  (lambda (grob original )
    (let* ((added-markup
            #{
              \markup
              {
                \postscript
                "gsave 
                /curve      {
                2 -2 moveto
                3 0 -2 -3 3 -3 rcurveto
                3 0 -2 -3 4 -4 rcurveto
                5 -1 4 -4 5 -5 rcurveto
                } def
                0.17 setlinewidth 
                1 setlinecap
                1 -1 moveto 
                curve 
                stroke 
                grestore"
              }
            #})
           (added-stencil (grob-interpret-markup grob added-markup)))
      (if (ly:stencil? original)
          (ly:stencil-add original added-stencil)
          added-stencil))))




squigglyTwo =
#(define-music-function (note someNumber) (ly:music? number?)
   #{
     \once \override Voice.NoteHead.stencil =
     #(grob-transformer
       'stencil
       (lambda (grob original )
         (let* ((added-markup
                 #{
                   \markup
                   {
                     \postscript
                     #(string-append
                       "gsave 
                        /curve {
                        2 -2 moveto
                        3 0 -2 -3 3 -3 rcurveto
                        3 0 -2 -3 4 -4 rcurveto
                        5 -1 4 -4 5 -5 rcurveto
                        } def "
                       (number->string someNumber)
                       " setlinewidth 
                        1 setlinecap
                        1 -1 moveto 
                        curve 
                        stroke 
                        grestore")
                   }
                 #})

                (added-stencil (grob-interpret-markup grob added-markup)))
           (if (ly:stencil? original)
               (ly:stencil-add original added-stencil)
               added-stencil))))
     #note
   #})

{
  \time 4/4
  \squiggly c'1^\markup {"Example 1"}
  \bar "||"

  \time 4/4
  \squigglyTwo c'1^"Example 2" #0.5
  \bar "||"

}

\layout {
  \context {
    \Score
    proportionalNotationDuration = #(ly:make-moment 1/6)

  }
}