Diagram for Recorder baroque in F and C
<lilypond version="2.24"> \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.
%}
%---------------------------------------------------
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 }
%=========================================
% Recorder in F
%=========================================
% diagram finguering for F Recorder
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 {
\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 diagram finguering for F Recorder
%=========================================
% Recorder in C
%=========================================
%diagram finguering for C Recorder
cI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align\concat { "C" }
\thmbb
\pointb \pointb \pointb
\separ
\pointb \pointb \dblptb \dblptb
\vspace #0.5
}
%F sharp / Fa diese
csI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align\concat { "C" \diese }
\thmbb
\pointb \pointb \pointb
\separ
\pointb \pointb \dblptb \dblptd
}
%G / Sol
dI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align\concat{ "D" }
\thmbb
\pointb \pointb \pointb
\separ
\pointb \pointb \dblptb \dblptw
}
%G sharp / Sol diese
efI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align\concat{ "E" \bemol }
\thmbb
\pointb \pointb \pointb
\separ
\pointb \pointb \dblptd \dblptw
}
eI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align
\concat{ "E" }
\thmbb
\pointb \pointb \pointb
\separ
\pointb \pointb \dblptw \dblptw
}
fI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "F" }
\thmbb
\pointb \pointb \pointb
\separ
\pointb \pointw \dblptb \dblptb
}
fsI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "F" \diese }
\thmbb
\pointb \pointb \pointb
\separ
\pointw \pointb \dblptb \dblptw
}
gI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "G" }
\thmbb
\pointb \pointb \pointb
\separ
\pointw \pointw \dblptw \dblptw
}
gsI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "G" \diese }
\thmbb
\pointb \pointb \pointw
\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 \pointw
\separ
\pointw \pointw \dblptw \dblptw
}
bfI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "B" \bemol }
\thmbb
\pointb \pointb \pointw
\separ
\pointw \pointb \dblptb \dblptw
}
bI=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "B" }
\thmbb
\pointb \pointw \pointw
\separ
\pointw \pointw \dblptw \dblptw
}
%----------------
cII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "C"\super"2" }
\thmbb
\pointw \pointb \pointw
\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 }
\thmbw
\pointb \pointb \pointw
\separ
\pointw \pointw \dblptw \dblptw
}
dII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "D"\super"2" }
\thmbw
\pointw \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 }
\thmbw
\pointw \pointb \pointb
\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 \pointb
\separ
\pointb \pointb \dblptw \dblptw
}
fII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "F"\super"2" }
\thmbd
\pointb \pointb \pointb
\separ
\pointb \pointw \dblptb \dblptw
}
fsII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "F"\super"2" \diese }
\thmbd
\pointb \pointb \pointb
\separ
\pointw \pointb \dblptw \dblptw
}
gII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "G"\super"2" }
\thmbd
\pointb \pointb \pointb
\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 }
\thmbd
\pointb \pointb \pointw
\separ
\pointb \pointw \dblptw \dblptw
}
aII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "A"\super"2" }
\thmbd
\pointb \pointb \pointw
\separ
\pointw \pointw \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 \pointw
\separ
\pointb \pointb \dblptb \dblptw
}
bII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "B"\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
}
%-----------------------------------------
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 \pointb \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 \pointb
\separ
\pointb \pointw \dblptb \dblptb \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 \pointw \dblptb \dblptb
}
efIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "E"\super"3" \bemol }
\thmbd
\pointw \pointb \pointb
\separ
\pointw \pointb \dblptb \dblptw
}
eIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "E"\super"3" }
\thmbd
\pointw \pointb \pointb
\separ
\pointw \pointb \dblptb \dblptw \bell
}
fIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "F"\super"3" }
\thmbd
\pointb \pointb \pointw
\separ
\pointb \pointb \dblptw \dblptw \bell
}
fsIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "F"\super"3" \diese }
\thmbd
\pointb \pointb \pointw
\separ
\pointb \pointb \dblptw \dblptw
}
gIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "G"\super"3" }
\thmbd
\pointb \pointw \pointw
\separ
\pointb \pointw \dblptw \dblptw
}
gsIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "G"\super"3" \diese }
\thmbd
\pointb \pointw \pointw
\separ
\pointb \pointw \dblptw \dblptw \bell
}
aIII=\markup \override #'(baseline-skip . 1.25)
\scale #'(0.8 . 0.8)
\column {
\center-align \concat{ "A"\super"3" }
\thmbd
\pointb \pointw \pointb
\separ
\pointb \pointb \dblptd \dblptw
}
%End diagram finguering for C Recorder
%=========================================
%< cut cut cut
%Sample for F and C Baroque Recorder
\paper {
indent = 0
top-margin = #20
left-margin = 15\mm
system-system-spacing.basic-distance = #25
}
\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 sample for F and C Baroque Recorder
</lilypond>