Hi Takumi,
Is this what you want?
\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:duration-log (ly:music-property music
'duration)))
(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:
}
On Thu, Feb 12, 2015 at 12:44 PM, takumi ikeda <address@hidden> wrote:
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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user