\version "2.16.2"

% \include "recorder.scm"

#(print-keys-verbose 'recorder)
% #(print-keys-verbose 'tin-whistle)

\relative c' {
  c1^
  \markup {
    \woodwind-diagram #'recorder #'((lh . (T1h))
                                    (cc . (one three))
                                    (rh . (r3B r3L r4B)))
  }

  c1^
  \markup {
    \woodwind-diagram #'recorder #'((lh . ())
                                    (cc . ())
                                    (rh . ()))
  }

  c1^
  \markup {
    \woodwind-diagram #'recorder #'()
  }

%  c^
%  \markup \override #'(graphical . #f) {
%      \woodwind-diagram
%        #'piccolo
%        #'()
%  }

  c1^
  \markup {
    \woodwind-diagram #'flute #'((cc . (two1h))
                                 (lh . ())
                                 (rh . ()))
  }

  c1^
  \markup {
    \woodwind-diagram #'flute #'((cc . (two1hT))
                                 (lh . ())
                                 (rh . ()))
  }

  c1^
  \markup \override #'(graphical . #f) {
    \woodwind-diagram #'recorder #'((lh . (T))
                                    (cc . (one three))
                                    (rh . (r3B r3L r4B)))
  }

  c1^
  \markup \override #'(graphical . #f) {
    \woodwind-diagram #'recorder #'((lh . ())
                                    (cc . ())
                                    (rh . ()))
  }

  c1^
  \markup \override #'(graphical . #f) {
    \woodwind-diagram #'recorder #'()
  }

}