Editing Diagram for Recorder baroque in F and C

Diagram for Recorder in F : uppercase letters
 FI FII FII GI GII GIII etc.

Diagram for Recorder in C : lowercase letters
  cI cII cIII dI dII dIII etc.

<lilypond version="2.24.4">
\language "english"
%{
Diagram for Recorder in F : uppercase letters
 FI FII FII GI GII GIII etc.

Diagram for Recorder in C : lowercase letters
  cI cII cIII dI dII dIII etc.
%}
%---------------------------------------------------
%incude : use the code below
%--------------------
separ=\markup { \center-align  _   }
halfmk =\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 half
thmbw=\markup{ \translate #'(-0.8 . -0.1) \pointw  }
thmbb=\markup{ \translate #'(-0.8 . -0.1) \pointb }
thmbh=\markup{ \translate #'(-0.8 . -0.0) \halfmk }

%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) }
dblpthmk=\markup{ \stencil #(make-circle-stencil 0.35 0 #t) \stencil #(make-circle-stencil 0.35 0 #f) }
%double-point black white half
dblptb=\markup\center-align{ \dblptbmk }
dblptw=\markup\center-align{ \dblptwmk }
dblpth=\markup\center-align{ \dblpthmk }
%bell pavillon
bell =\markup\with-dimensions#'(0 . 0) #'(0 . 0)  {
  \scale #'(1.8 . 1.8) \arrow-head #Y #UP ##t
}


Sharp=\markup{ \hspace #0.3 \raise #0.5 \sharp }
Flat=\markup{ \hspace #0.3 \raise #0.5 \flat  }

%End code for include
%===============================================
%for display
%-----------------------------------------------
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"
  }
}

%=========================================
% Recorder in F
%=========================================
% diagram finguering  for F Recorder
ScaleFingers= #'(0.8 . 0.8)

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

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

%G / Sol
GI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align\concat{  "G"   }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptw
}

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

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

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

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


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


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

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

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

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

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

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

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

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

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


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

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


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

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


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

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

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

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



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

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

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

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

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


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

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

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


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

DIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "D"\super"3"   }
  \thmbh
  \pointb \pointw \pointb
  \separ
  \pointb \pointb  \dblpth \dblptw
}
%End  diagram finguering  for F Recorder
%=========================================
% Recorder in C
%=========================================
%diagram finguering  for C Recorder

cI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align\concat {  "C" }
  \thmbb
  \pointb  \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptb
  \vspace #0.5
}

%F sharp / Fa Sharp
csI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align\concat {  "C" \Sharp }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblpth
}

%G / Sol
dI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align\concat{  "D"   }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptw
}

%G sharp / Sol Sharp
efI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align\concat{ "E" \Flat }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointb \dblpth \dblptw
}

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

fI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "F"  }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointb \pointw \dblptb \dblptb
}

fsI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "F" \Sharp }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointw \pointb \dblptb \dblptw
}


gI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "G" }
  \thmbb
  \pointb \pointb \pointb
  \separ
  \pointw \pointw \dblptw \dblptw
}


gsI=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "G" \Sharp }
  \thmbb
  \pointb \pointb \pointw
  \separ
  \pointb \pointb \dblpth \dblptw
}

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

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

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

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

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

csII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "C"\super"2" \Sharp }
  \thmbw
  \pointb \pointb \pointw
  \separ
  \pointw \pointw  \dblptw \dblptw
}

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

efII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "E"\super"2" \Flat }
  \thmbw
  \pointw \pointb \pointb
  \separ
  \pointb \pointb  \dblptb \dblptw
}


eII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "E"\super"2"  }
  \thmbh
  \pointb \pointb \pointb
  \separ
  \pointb \pointb  \dblptw \dblptw
}

fII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "F"\super"2"  }
  \thmbh
  \pointb \pointb \pointb
  \separ
  \pointb \pointw  \dblptb \dblptw
}


fsII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "F"\super"2" \Sharp }
  \thmbh
  \pointb \pointb \pointb
  \separ
  \pointw \pointb  \dblptw \dblptw
}

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


gsII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "G"\super"2" \Sharp  }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointb \pointw \dblptw \dblptw
}

aII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "A"\super"2" }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointw \pointw  \dblptw \dblptw
}

bfII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "B"\super"2" \Flat  }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptb \dblptw
}

bII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "B"\super"2"  }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptb \dblptw
}



eII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "E"\super"2"  }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptw \dblptw
}
%-----------------------------------------
cIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "C"\super"3"   }
  \thmbh
  \pointb \pointw \pointw
  \separ
  \pointb \pointb \dblptw \dblptw
}

csIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "C"\super"3"  \Sharp }
  \thmbh
  \pointb \pointw \pointb
  \separ
  \pointb \pointw \dblptb \dblptb \bell
}

dIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "D"\super"3"  }
  \thmbh
  \pointb \pointw \pointb
  \separ
  \pointb \pointw \dblptb \dblptb
}

efIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "E"\super"3" \Flat }
  \thmbh
  \pointw \pointb \pointb
  \separ
  \pointw \pointb \dblptb \dblptw
}

eIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "E"\super"3"  }
  \thmbh
  \pointw \pointb \pointb
  \separ
  \pointw \pointb \dblptb \dblptw \bell
}


fIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "F"\super"3"  }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptw \dblptw \bell
}

fsIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "F"\super"3" \Sharp }
  \thmbh
  \pointb \pointb \pointw
  \separ
  \pointb \pointb  \dblptw \dblptw
}

gIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "G"\super"3"  }
  \thmbh
  \pointb \pointw \pointw
  \separ
  \pointb \pointw  \dblptw \dblptw
}


gsIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "G"\super"3" \Sharp  }
  \thmbh
  \pointb \pointw \pointw
  \separ
  \pointb \pointw  \dblptw \dblptw \bell
}

aIII=\markup \override #'(baseline-skip . 1.25)
\scale \ScaleFingers %
\column {
  \center-align \concat{ "A"\super"3"   }
  \thmbh
  \pointb \pointw \pointb
  \separ
  \pointb \pointb  \dblpth \dblptw
}
%End  diagram finguering  for C Recorder
%=========================================
%< cut cut cut
%Sample for F and C Baroque Recorder
%#(set-global-staff-size 18)

\paper {
  indent = 0
  top-margin = #0
  left-margin = 15\mm
  system-system-spacing.basic-distance = #30
  page-count = 1
}

\header {
  piece ="Baroque Recorder in F finguerings "
  tagline = ##f
}\markup \vspace #2
\score {

  \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


    \pageBreak
  }
}

\markup \vspace #2
\score {
  \header {
    piece ="Baroque Recorder in C finguerings "
  }


  \relative c' {

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

    c2^\cI cs^\csI d^\dI ef^\efI e^\eI f^\fI fs^\fsI g^\gI gs^\gsI a^\aI  bf^\bfI b^\bI
    \break

    \override TextScript.padding = #5
    <>\tweak X-offset #-8 ^\libelle
    c2^\cII cs^\csII d^\dII ef^\efII e^\eII f^\fII fs^\fsII g^\gII gs^\gsII a^\aII  bf^\bfII b^\bII

    \break

    \override TextScript.padding = #7
    <>\tweak X-offset #-8
    \tweak extra-offset #'(0 . -0.8)
    ^\libelleBell
    \ottava #1
    c2^\cIII cs^\csIII d^\dIII ef^\efIII e^\eIII f^\fIII fs^\fsIII g^\gIII gs^\gsIII a^\aIII

  }
}
%End example for F and C Baroque Recorder
%===========================================

</lilypond>