bassoon-fingering-chart/grepptabell.ly

\version "2.20.0"
\header {
  title = "Grepptabell | Fingering chart"
  subtitle = "Revision 1"
  copyright = \markup {
    \wordwrap { Copyright 2020 Linus Björnstam. This work is licensed under a Creative Commons Attribution 4.0 International License.} }
  tagline = ""

}
\pointAndClickOff

\layout {
  \context {
    \Score
    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/64)
  }
}

fingers = #(define-music-function (parser location note fc) (ly:music? cheap-list?)
            #{#note
            ^\markup {
            \column {
            " "
            \override #'(size . 0.5) {
              \woodwind-diagram
              #'bassoon
              #fc
            }}}#})


\markup {
  \wordwrap {
    För första hålet (vänster pekfinger) betyder grå färg halvt hål. För oktavklaffarna betyder det att man antingen duttar eller håller in. För övriga klaffar betyder det att dessa klaffar kan läggas till utifrån det man tycker passar bäst. De ändrar i viss mån klang och intonation.

    }}

\score {
  \new Staff {
    \relative {
      \clef bass
      \textLengthOn
                                % Contra octave
      \fingers bes,,1 #'((cc . (one two three four five six))
                         (lh . (low-d low-c low-b low-bes))
                         (rh . (f thumb-e)))
      \bar "||"
      
      \fingers b #'((cc . (one two three four five six))
                    (lh . (low-d low-c low-b))
                    (rh . (f thumb-e)))
      \bar "||"

      
                                % Big octave
      \fingers c   #'((cc . (one two three four five six))
                      (lh . (low-d low-c))
                      (rh . (f thumb-e)))
      \bar "||"
      \fingers cis #'((cc . (one two three four five six))
                      (lh . (low-d low-c cis))
                      (rh . (f thumb-e)))
      \bar "||"
      \fingers d   #'((cc . (one two three four five six))
                      (lh . (low-d))
                      (rh . (f thumb-e)))
      \bar "||"
      \fingers ees #'((cc . (one two three four five six))
                      (lh . (low-d ees w))
                      (rh . (f thumb-e)))
      \bar "||"
      \fingers e   #'((cc . (one two three four five six))
                      (lh  . (w cisT))
                      (rh . (f thumb-e)))
      \bar "||"
      \fingers f   #'((cc . (one two three four five six))
                      (lh . (w))
                      (rh . (f)))
      \bar "||"
      \fingers fis #'((cc . (one two three four five six))
                      (lh . (w))
                      (rh . (f thumb-fis)))
      \fingers fis #'((cc . (one two three four five six))
                      (lh . (w))
                      (rh . (f fis)))
      \bar "||"
      \fingers g   #'((cc . (one two three four five six))
                      (lh . (w))
                      (rh . ()))
      \bar "||"
      \fingers aes #'((cc . (one two three four five six))
                      (lh . (w))
                      (rh . (gis)))
      \bar "||"
      \fingers a   #'((cc . (one two three four five))
                      (lh . (w))
                      (rh . ()))
      \bar "||"
      \fingers bes #'((cc . (one two three four five))
                      (lh . (w))
                      (rh . (thumb-bes)))
      \bar "||"
      \fingers b   #'((cc . (one two three four))
                      (lh . (w))
                      (rh . ()))
      \bar "||"

      
                                % small octave
      \fingers c #'((cc . (one two three))
                    (lh . (w))
                    (rh . ()))
      \bar "||"
      \fingers cis #'((cc . (one two three))
                      (lh . (w low-d thumb-cis))
                      (rh . ()))
      \bar "||"
      \fingers d #'((cc . (one two))
                    (lh . (w))
                    (rh . ()))
      \bar "||"
      \fingers ees #'((cc . (one three five))
                      (lh . (w ees))
                      (rh . (thumb-bes)))
      \fingers ees #'((cc . (one three))
                      (lh . (w ees))
                      (rh . ()))
      \bar "||"
      \fingers e #'((cc . (one))
                    (lh . (w))
                    (rh . ()))
      \bar "||"
      \fingers f #'((cc . ())
                    (lh . (w low-dT))
                    (rh . ()))
      \bar "||"
      \fingers fis #'((cc . (oneT two three four five six))
                      (lh . (w))
                      (rh . (thumb-fis fT)))
      \fingers fis #'((cc . (oneT two three four five six))
                      (lh . (w))
                      (rh . (fis f)))
      \bar "||"
      \fingers g #'((cc . (oneT two three four five six))
                    (lh . (w))
                    (rh . ()))
      \bar "||"
      \fingers gis #'((cc . (oneT two three four five six))
                      (lh . (w))
                      (rh . (gis)))
      \bar "||"
      \fingers a #'((cc . (oneT two three four five six))
                    (lh . (aT))
                    (rh . ()))
      \bar "||"
      \fingers bes #'((cc . (one two three four five))
                      (lh . (cT))
                      (rh . (thumb-bes)))
      \bar "||"
      \fingers b #'((cc . (one two three four))
                    (lh . (cT))
                    (rh . ()))
      \bar "||"
      
      
                                % First octave
      \fingers c #'((cc . (one two three))
                    (lh . (c))
                    (rh . ()))
      \bar "||"
      \fingers cis #'((cc . (one two three four five six))
                      (lh . (thumb-cis))
                      (rh . (f thumb-bes)))
      \fingers cis #'((cc . (one two three))
                      (lh . (low-d thumb-cis))
                      (rh . ()))
      \bar "||"
      \fingers d #'((cc . (one two))
                    (lh . ())
                    (rh . ()))
      \bar "||"
      \fingers ees #'((cc . (one two four five six))
                      (lh . ())
                      (rh . ()))
      \bar "||"
      \fingers e #'((cc . (one three four fiveT six))
                    (lh . (ees))
                    (rh . ()))

      \bar "||"
      \fingers f #'((cc . (one three four five))
                    (lh . (ees))
                    (rh . ()))
      \bar "||"
      \clef tenor
      \fingers fis #'((cc . (two threeT four five))
                      (lh . (eesT))
                      (rh . (f)))
      \fingers fis #'((cc . (oneT two three four five))
                      (lh . (eesT))
                      (rh . (thumb-bes)))
      \bar "||"
      \fingers g #'((cc . (oneT two three four))
                    (lh . (ees))
                    (rh . (f)))
      \bar "||"
      \fingers gis #'((cc . (oneT two three six))
                      (lh . (ees))
                      (rh . ()))
      \fingers gis #'((cc . (oneT two three five six))
                      (lh . (ees))
                      (rh . (thumb-bes)))
      \bar "||"
      \fingers a #'((cc . (one two three six))
                    (lh . (thumb-cis a ees))
                    (rh . ()))
      \bar "||"
      \fingers bes #'((cc . (one two three fourT five))
                (lh . (thumb-cis a ees))
                  (rh . (f)))
      \bar "||"
      \fingers b #'((cc . (one two four five))
                      (lh . (c eesT))
                  (rh . (f thumb-bes)))
      \bar "||"
      
      
      
      % Second octave
      \clef violin
      \fingers c #'((cc . (one four five))
                    (lh . (d ees))
                    (rh . (f)))
      \bar "||"
      \fingers cis #'((cc . (one three four six))
                    (lh . (d))
                    (rh . ()))
      \bar "||"
      \fingers d #'((cc . (three six))
                    (lh . (d ees))
                    (rh . (f thumb-bes)))
      \bar "||"
      \fingers ees #'((cc . (oneT two three five))
                    (lh . (low-d thumb-cis ees))
                    (rh . (thumb-fis)))
      \bar "|."
    }
  }
  \header {
    opus = \markup { \italic "Revision 1" }
  }
}

#(print-keys-verbose 'bassoon (current-error-port))