Hello all, I am trying the following code but I got "Wrong type: ()" error. I would like to avoid translating tremolos when the note is whole note. Writing Scheme is quite difficult for me. Any help would be appreciated.
Takumi >> \version "2.18.2" tremps = #" 2 setlinewidth 0.07 0.07 scale -10 7 moveto -5 3 5 3 10 7 curveto -10 -7 lineto -5 -3 5 -3 10 -7 curveto stroke " z-trem = #(define-music-function (parser location music) (ly:music?) #{ \override StemTremolo.stencil = #(lambda (grob) (let* ( (dur-log (ly:grob-property grob 'duration-log)) (dir (ly:grob-property grob 'direction)) ) (grob-interpret-markup grob (markup ( #:translate (cons 0 (if (= 0 dur-log) 0 (if (= UP dir) -0.5 0.5))) #:postscript tremps ) ) ) ) ) $music #} ) \new Staff { \z-trem c'1:32 c''8: f'16: g': c''8: c'4: c''16: } _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user