Diagram for Recorder baroque in F and C

<lilypond version="2.24">
 
\language "english"

%---------------------------------------------------
separ=\markup { \center-align  _   }
demimk =\markup \with-dimensions#'(0 . 0) #'(0 . 0) {
  \translate #'(-0.8 . -0.3) {
    \stencil #(make-circle-stencil 0.5 0 #f)
    \translate #'(-0.9 . -0.8) /
  }
}

%point black white
pointb = \markup { \stencil #(make-circle-stencil 0.5 0 #t) }
pointw = \markup { \stencil #(make-circle-stencil 0.5 0 #f) }
%thumb wite black demi
thmbw=\markup{ \translate #'(-0.8 . -0.1) \pointw  }
thmbb=\markup{ \translate #'(-0.8 . -0.1) \pointb }
thmbd=\markup{ \translate #'(-0.8 . -0.0) \demimk }

%make double-point
dblptbmk=\markup\center-align{ \stencil #(make-circle-stencil 0.35 0 #t) \stencil #(make-circle-stencil 0.35 0 #t) }
dblptwmk=\markup{ \stencil #(make-circle-stencil 0.35 0 #f) \stencil #(make-circle-stencil 0.35 0 #f) }
dblptdmk=\markup{ \stencil #(make-circle-stencil 0.35 0 #t) \stencil #(make-circle-stencil 0.35 0 #f) }
%double point black white demi
dblptb=\markup\center-align{ \dblptbmk }
dblptw=\markup\center-align{ \dblptwmk }
dblptd=\markup\center-align{ \dblptdmk }
%bell pavillon
bell =\markup\with-dimensions#'(0 . 0) #'(0 . 0)  {
  \scale #'(1.8 . 1.8) \arrow-head #Y #UP ##t
}

libelle=\markup{
  \override #'(baseline-skip . 1.80)
  \fontsize #-6
  \center-column{
    \vspace #0.5
    "Thumb"
    "1"
    "2"
    "3"
    "-"
    "4"
    "5"
    "6"
    "7"
  }
}

libelleBell=\markup{
  \override #'(baseline-skip . 1.80)
  \fontsize #-6
  \center-column{
    \vspace #0.5
    "Thumb"
    "1"
    "2"
    "3"
    "-"
    "4"
    "5"
    "6"
    "7"
    "Bell"
  }
}


diese=\markup{ \hspace #0.3 \raise #0.5 \sharp }
bemol=\markup{ \hspace #0.3 \raise #0.5 \flat  }

%------------------------------------------------
%F / fa
FI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align\concat {  "F" }
  \thmbb
  \pointb  \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptb
  \vspace #0.5
}

%F sharp / Fa diese
FsI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align\concat {  "F" \diese }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptd
}

%G / Sol
GI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
% You can comment on the line below. 
  \center-align\concat{  "G"   }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptw
}

%G sharp / Sol diese
GsI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align\concat{ "G" \diese }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb \dblptd \dblptw
}

AI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align
  \concat{  "A"   }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb \dblptw \dblptw
}

BfI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "B" \bemol }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointw \dblptb \dblptb
}

BI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "B" }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointw \pointb \dblptb \dblptw
}


CI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "C" }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointw \pointw \dblptw \dblptw
}


CsI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "C" \diese }
  \thmbb
  \pointb \pointb \pointw
  \separ
  \pointb \pointb \dblptd \dblptw
}

DI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "D" }
  \thmbb
  \pointb \pointb \pointw
  \separ
  \pointw \pointw \dblptw \dblptw
}

EfI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "E" \bemol }
  \thmbb
  \pointb \pointb \pointw
  \separ
  \pointw \pointb \dblptb \dblptw
}

EI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "E" }
  \thmbb
  \pointb \pointw \pointw
  \separ
  \pointw \pointw \dblptw \dblptw
}

%----------------

FII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "F"\super"2"  }
  \thmbb
  \pointw \pointb \pointw
  \separ
  \pointw \pointw  \dblptw \dblptw
}

FsII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "F"\super"2" \diese }
  \thmbw
  \pointb \pointb \pointw
  \separ
  \pointw \pointw  \dblptw \dblptw
}

GII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "G"\super"2"   }
  \thmbw
  \pointw \pointb \pointw
  \separ
  \pointw \pointw  \dblptw \dblptw
}

GsII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "G"\super"2" \diese }
  \thmbw
  \pointw \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptw
}


AII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "A"\super"2"  }
  \thmbd
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptw \dblptw
}

BfII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "B"\super"2"  \bemol }
  \thmbd
  \pointb \pointb \pointb
  \separ
  \pointb \pointw  \dblptb \dblptw
}


BII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "B"\super"2" }
  \thmbd
  \pointb \pointb \pointb
  \separ
  \pointw \pointb  \dblptw \dblptw
}

CII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "C"\super"2" }
  \thmbd
  \pointb \pointb \pointb
  \separ
  \pointw \pointw  \dblptw \dblptw
}


CsII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "C"\super"2" \diese  }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointb \pointw \dblptw \dblptw
}

DII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "D"\super"2" }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointw \pointw  \dblptw \dblptw
}

EfII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "E"\super"2" \bemol  }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptb \dblptw
}

EII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "E"\super"2"  }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptb \dblptw
}



EII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "E"\super"2"  }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptw \dblptw
}
%-----------------------------------------
FIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "F"\super"3"   }
  \thmbd
  \pointb \pointw \pointw
  \separ
  \pointb \pointb \dblptw \dblptw
}

FsIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "F"\super"3"  \diese }
  \thmbd
  \pointb \pointw \pointb
  \separ
  \pointb \pointw \dblptb \dblptb \bell
}

GIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "G"\super"3"  }
  \thmbd
  \pointb \pointw \pointb
  \separ
  \pointb \pointw \dblptb \dblptb
}

GsIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "G"\super"3" \diese }
  \thmbd
  \pointw \pointb \pointb
  \separ
  \pointw \pointb \dblptb \dblptw
}

AIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "A"\super"3"  }
  \thmbd
  \pointw \pointb \pointb
  \separ
  \pointw \pointb \dblptb \dblptw \bell
}


BfIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "B"\super"3" \bemol }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptw \dblptw \bell
}

BIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "B"\super"3" }
  \thmbd
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptw \dblptw
}

CIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "C"\super"3"  }
  \thmbd
  \pointb \pointw \pointw
  \separ
  \pointb \pointw  \dblptw \dblptw
}


CsIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "C"\super"3" \diese  }
  \thmbd
  \pointb \pointw \pointw
  \separ
  \pointb \pointw  \dblptw \dblptw \bell
}

DIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
  \center-align \concat{ "D"\super"3"   }
  \thmbd
  \pointb \pointw \pointb
  \separ
  \pointb \pointb  \dblptd \dblptw
}
%end Code
%-========================================
% Sample cut  cut cut

#(set-global-staff-size 28)
\paper {
  indent = 0
  top-margin = #20
  left-margin = 15\mm
  system-system-spacing.basic-distance = #25
}

\header {
  subsubtitle ="Baroque Recorder in F finguerings"
  tagline = ##f
}

\markup \vspace #2
\relative c' {
  \cadenzaOn
  \override TextScript.padding = #2
  <>\tweak X-offset #-8 ^\libelle

  f2^\FI fs^\FsI g^\GI af^\GsI a^\AI bf^\BfI b^\BI c^\CI cs^\CsI d^\DI  ef^\EfI e^\EI
  \break

  \override TextScript.padding = #5
  <>\tweak X-offset #-8 ^\libelle

  f2^\FII fs^\FsII g^\GII gs^\GsII a^\AII bf^\BfII b^\BII c^\CII cs^\CsII d^\DII  ef^\EfII e^\EII
  \break
  \override TextScript.padding = #7
  <>\tweak X-offset #-8
  \tweak extra-offset #'(0 . -0.8)
  ^\libelleBell
  \ottava #1
  f2^\FIII fs^\FsIII g^\GIII gs^\GsIII a^\AIII bf^\BfIII b^\BIII c^\CIII cs^\CsIII d^\DIII
}
%end sample for recorder in  F 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
</lilypond>