Le 18/05/2021 à 17:54, darki...@jesusgod-pope666.info a écrit :
Hello Jean, thanks for the tip on the tilting and color.Well... I wonder, did not respond once before... Maybe I did not send it. Yea I have 2 scripts now including yours to look at...I tried your script and seems it only goes for 1 octave or something, we need 3 octaves of flute fingering :) Anyway my list is pretty much done, although might be missing some less used half holes here and there but overall it seems good.Here is what I did with your script, but the problem is - it won't go beyond an octave and just reuses the former:[...]Although I seem to get a little more understanding on how it works, it is still somewhat over my head - but at least I can now see some connection points now. If we could expand the script to be able to do all 3 octaves, it would be closer to a full spectrum of the Tin Whistle flute.I made the list, although I have one with colors as well for each and every flute for testing. But still need a lot of work for sure just testing the possibilities. But yea if we could fix an automated script for the flute part, that would be very helpful, although it is now easier then it was from when I started having the ability to Call each one of them to attach to a note.Here is my list without colors for the Tin Whistle flute: [...] Dearly regards - Darkijah
Alright, does the attached help? It should provide a start, but I haven't fully understood the notation system yet.
Best, Jean
\version "2.23.3"
\language "english"
tinWhistle =
#(define-music-function (alist music)
(list? ly:music?)
#{
<<
\new Dynamics {
#(music-map
(lambda (m)
(if (music-is-of-type? m 'note-event)
(let* ((pitch (ly:music-property m 'pitch))
(semitones (ly:pitch-semitones pitch))
(fingerings
(or
(assv-ref alist semitones)
(begin
(ly:music-warning m
"fingering for pitch ~a in semitones not found"
semitones)
'()))))
(make-music
'SkipEvent
'duration
(ly:music-property m 'duration)
'articulations
(list
(make-music
'TextScriptEvent
'text
#{
\markup
\center-column {
\with-color "grey"
#(number->string (quotient semitones 12))
\rotate #45
\with-color "Orange" "+"
\rotate #10
\override #'(size . 0.5)
\override #'(thickness . 0.2)
\with-color "blue"
\woodwind-diagram #'tin-whistle #fingerings
\with-color "green"
"+"
}
#}))))
m))
(ly:music-deep-copy music))
}
{ #music }
>>
#})
fingerings.2 = #'((cc . (one two three four five six))(lh . ())(rh . ()))
fingerings.3 = #'((cc . (one two three four five sixT1h))(lh . ())(rh . ()))
fingerings.4 = #'((cc . (one two three four five))(lh . ())(rh . ()))
fingerings.6 = #'((cc . (one two three four))(lh . ())(rh . ()))
fingerings.7 = #'((cc . (one two three))(lh . ())(rh . ()))
fingerings.9 = #'((cc . (one two))(lh . ())(rh . ()))
fingerings.11 = #'((cc . (one))(lh . ())(rh . ()))
fingerings.12 = #'((cc . (oneT1h))(lh . ())(rh . ()))
fingerings.13 = #'((cc . ())(lh . ())(rh . ()))
fingerings.14 = #'((cc . (two three four five six))(lh . ())(rh . ()))
fingerings.16 = #'((cc . (one two three four five))(lh . ())(rh . ()))
fingerings.18 = #'((cc . (one two three four))(lh . ())(rh . ()))
fingerings.19 = #'((cc . (one two three))(lh . ())(rh . ()))
fingerings.21 = #'((cc . (one two))(lh . ())(rh . ()))
fingerings.23 = #'((cc . (one))(lh . ())(rh . ()))
fingerings.24 = #'((cc . (oneT1h))(lh . ())(rh . ()))
fingerings.25 = #'((cc . ())(lh . ())(rh . ()))
fingerings.26 = #'((cc . ( two three four five six))(lh . ())(rh . ()))
fingerings.28 = #'((cc . (one two three four five))(lh . ())(rh . ()))
fingerings.30 = #'((cc . (one two three four six))(lh . ())(rh . ()))
fingerings.31 = #'((cc . (one two three six))(lh . ())(rh . ()))
fingerings.33 = #'((cc . (one two six))(lh . ())(rh . ()))
\tinWhistle \fingerings \relative {
d' ds e fs g a b c cs d e fs g a b c cs d e fs g a
}
tin-whistle-2.pdf
Description: Adobe PDF document
