bradford powell wrote:
When I try that (with something like (draw "4" 1)),
I still get: error [...] (#:flat)
Sorry. This must be related to the restriction I referenced.
It seems that instead of
(make-list bends #:flat)
you have to say
(make-list bends (make-flat-markup))
This is quite beyond me.
It doesn't help that (with my 2.12) the error message routine
is tripped up by such cases; it errors while building its message.
Check out semitones.ly which exercises the whole range.
Cheers,
Robin
\version "2.12"
#(define* (blow hole #:optional (bends 0))
(markup (make-line-markup (make-list bends (make-flat-markup))) #:simple hole))
#(define* (draw hole #:optional (bends 0))
(markup (make-line-markup (make-list bends (make-flat-markup))) #:circle hole))
#(define (harmonica-map semitones)
(case semitones
((-12) (blow "1"))
((-11) (draw "1" 1))
((-10) (draw "1"))
;((-9) (overblow "1"))
((-8) (blow "2"))
((-7) (draw "2" 2))
((-6) (draw "2" 1))
((-5) (draw "2"))
;((-5) (blow "3"))
((-4) (draw "3" 3))
((-3) (draw "3" 2))
((-2) (draw "3" 1))
((-1) (draw "3"))
((0) (blow "4"))
((1) (draw "4" 1))
((2) (draw "4"))
;((3) (overblow "4"))
((4) (blow "5"))
((5) (draw "5"))
;((6) (overblow "5"))
((7) (blow "6"))
((8) (draw "6" 1))
((9) (draw "6"))
;((10) (overblow "6"))
((11) (draw "7"))
((12) (blow "7"))
;((13) (overdraw "7"))
((14) (draw "8"))
((15) (blow "8" 1))
((16) (blow "8"))
((17) (draw "9"))
((18) (blow "9" 1))
((19) (blow "9"))
;((20) (overdraw "9"))
((21) (draw "10"))
((22) (blow "10" 2))
((23) (blow "10" 1))
((24) (blow "10"))
(else (blow " "))
))
#(define (add-harmonica m)
(if (equal? (ly:music-property m 'name) 'NoteEvent)
(make-music 'LyricEvent
'duration (ly:music-property m 'duration)
'text (harmonica-map (ly:pitch-semitones (ly:music-property m 'pitch))))
m))
scale ={
c4 cis4 d4 ees4
e4 f4 fis4 g4
aes4 a4 bes4 b4
}
notes = {
\transpose c c { \scale } \break
\transpose c c' { \scale } \break
\transpose c c'' { \scale } c'''4
}
staffMelody = \new Staff {
\context Voice = "melody" \notes
\bar "|."
}
<<
\staffMelody
\context Lyrics = "newtab" \lyricmode { \applyMusic #(lambda (x) (music-map add-harmonica x)) \notes }
>>
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
