Re: Last update before going to sleep, is it possible to turn or tilt musical Diagrams? Colors to the Diagrams?

[darkijah]

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:

\version "2.22.1" \language "english"

autoFingerings =
#(define-music-function (instrument alist music)
(symbol? 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))
(reduced-semitones (modulo semitones 12))
(fingerings
(or
(assv-ref alist reduced-semitones)
(begin
(ly:music-warning m
"fingering for pitch ~a in semitones not found"
reduced-semitones)
'()))))
(make-music
'SkipEvent
'duration
(ly:music-property m 'duration)
'articulations
(list
(make-music
'TextScriptEvent
'text
#{
\markup
\center-column {
\rotate #45
\with-color "Orange" "+"
\rotate #0 %max 25
\override #'(size . 0.5) \override #'(thickness . 0.2)
\with-color "blue"
\woodwind-diagram #instrument #fingerings
\with-color "green" "+"
}
#}))))
m))
(ly:music-deep-copy music))
}
{ #music }
> >
#})

%C natural
myFingeringAlist.0 = #'((cc . (oneT1h)) (lh . ()) (rh . ()))
%C Sharp
myFingeringAlist.1 = #'((cc . ()) (lh . ()) (rh . ()))

myFingeringAlist.2 = #'((cc . (one two three four five six)) (lh . ()) 
(rh . ()))
myFingeringAlist.3 = #'((cc . (one two three four five six)) (lh . ()) 
(rh . ()))

myFingeringAlist.4 = #'((cc . (one two three four five)) (lh . ()) (rh . 
()))

myFingeringAlist.5 = #'((cc . (one two three four five)) (lh . ()) (rh . 
()))

myFingeringAlist.6 = #'((cc . (one two three four)) (lh . ()) (rh . ()))

myFingeringAlist.7 = #'((cc . (one two three)) (lh . ()) (rh . ()))

myFingeringAlist.8 = #'((cc . (one two three)) (lh . ()) (rh . ()))

myFingeringAlist.9 = #'((cc . (one two)) (lh . ()) (rh . ()))

myFingeringAlist.10 = #'((cc . (one two)) (lh . ()) (rh . ()))

myFingeringAlist.11 = #'((cc . (one)) (lh . ()) (rh . ()))

% Add further entries in the same way.


\autoFingerings flute \myFingeringAlist {
  d' e' es' f' fs' g' gs' a' as' b' c'' cs'' d'' e'' es'' f'' fs'' g'' 
gs'' a'' as'' b''
}

% Script end

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:

\version "2.22.1" \language "english" % Tin/Penny Whistle Diagram three 
octaves - - #(print-keys-verbose 'tin-whistle)

%First octave D5-C5 D Tin/Penny Whistle, most used notes on the 
whistle------------------------------------
%D5:
ldn = ^ %dion D1 Orange Natural - - Low Middle High L M H
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four five 
six))(lh . ())(rh . ()))}
lds = ^ %dios D1 Orange Sharp
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four five 
sixT1h))(lh . ())(rh . ()))}
%E5:
len = ^ %eiyn E1 Yellow Natural
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four 
five))(lh . ())(rh . ()))}
%F5:
lfs = ^ %figs F1 Green Sharp
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four))(lh . 
())(rh . ()))}
%G5:
lgn = ^ %gitn G1 Teal Natural
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three))(lh . 
())(rh . ()))}
%A5:
lan = ^ %aibn A1 Blue Natural
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two))(lh . ())(rh . 
()))}
%B5:
lbn = ^ %bivn B1 Violet Natural
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one))(lh . ())(rh . ()))}
%C5:
lcn = ^ %cirn C octave 1 Red Natural
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (oneT1h))(lh . ())(rh . 
()))}
lcs = ^ %cirs C octave 1 Red sharp
    \markup
    \center-column { \with-color "grey" "1"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . ())(lh . ())(rh . ()))}

%Second octave D D6-C6 Tin/Penny Whistle, raise first octave music an 
octave for better hearing it in noisy places-
%D6
mdn = ^ %
    \markup
    \center-column { \with-color "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (two three four five 
six))(lh . ())(rh . ()))}
%E5
men = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four 
five))(lh . ())(rh . ()))}
%F5
mfs = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four))(lh . 
())(rh . ()))}
%G5
mgn = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three))(lh . 
())(rh . ()))}
%A5
man = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two))(lh . ())(rh . 
()))}
%B5
mbn = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one))(lh . ())(rh . ()))}
%C5
mcn = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (oneT1h))(lh . ())(rh . 
()))}
mcs = ^
    \markup
    \center-column { "grey" "2"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . ())(lh . ())(rh . ()))}

%Third octave D D7-G7? Tin/Penny Whistle, seldom used and very shrill, 
hearing protection adviced-------------------
%D6
hdn = ^
    \markup
    \center-column { "grey" "3"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . ( two three four five 
six))(lh . ())(rh . ()))}
%E5
hen = ^
    \markup
    \center-column { "grey" "3"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four 
five))(lh . ())(rh . ()))}
%F5
hfs = ^
    \markup
    \center-column { "grey" "3"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three four 
six))(lh . ())(rh . ()))}
%G5
hgn = ^
    \markup
    \center-column { "grey" "3"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two three six))(lh . 
())(rh . ()))}
%A5
han = ^
    \markup
    \center-column { "grey" "3"
    \override #'(size . 0.5) % 1 standard
    \override #'(thickness . 0.3) % 0.1 standard
    \woodwind-diagram #'tin-whistle #'((cc . (one two six))(lh . ())(rh 
. ()))}

Dearly regards
- Darkijah

187742032_10159644084498754_3562027690731915006_n.jpg
Description: JPEG image