\version "2.18.2"
\header {
title = "Ah Vous Dirai-Je Maman Var. V"
subtitle = \markup { \smaller "One Scherzo For Two Guitars" }
composer = "Wolfgang Amadeus Mozart"
arranger = "Ed.: J. J. Olson"
date = "1785"
source = "Paris: Porro, n.d. Plate 79." % see IMSLP104399
style = "Romantic"
mytagline = ##f
% o_
% (\___\/_____/)
% ~ ~ ~ ~ ~ / ~ ~ ~ ~ ~ ~ ~
maintainer = "Jeffrey Olson"
maintainerEmail = "gmail's jjocanoe"
license = "Public Domain"
mutopiacomposer = "MozartWA"
mutopiatitle = "Ah Vous Dirai-Je Maman Var. V"
mutopiadate = "1785"
mutopiasource = "Paris: Porro, n.d. Plate 79."
mutopiainstrument = "2 Guitars"
moreInfo = "This little piece is a delight to play as a duet, but it is only one variation among many. The complete set of Mozart's 12 variations on Ah Vous Dirai-Je Maman for guitar duo is also available on Mutopia and includes detailed annotations for the players on each variation, including this one."
footer = "Mutopia-2018/12/07-2238"
copyright = \markup {\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0) \right-column {\with-url #"http://www.MutopiaProject.org" {\abs-fontsize #9 "Mutopia " \concat {\abs-fontsize #12 \with-color #white "ǀ" \abs-fontsize #9 "Project "}}}\override #'(font-name . "DejaVu Sans, Bold") \override #'(baseline-skip . 0 ) \center-column {\abs-fontsize #11.9 \with-color #grey \bold {"ǀ" "ǀ"}}\override #'(font-name . "DejaVu Sans,sans-serif") \override #'(baseline-skip . 0) \column { \abs-fontsize #8 \concat {"Typeset using " \with-url #"http://www.lilypond.org" "LilyPond " "by " \maintainer " — " \footer}\concat {\concat {\abs-fontsize #8 { "Placed in the " \with-url #"http://creativecommons.org/licenses/publicdomain" "Public Domain" " by the typesetter " " — free to distribute, modify, and perform" }}\abs-fontsize #13 \with-color #white "ǀ" }}}
tagline = ##f
}
\paper{
%page-count = #1
%#(set-paper-size "a4") %uncomment to test specific paper size
%#(set-paper-size "letter") %uncomment to test specific paper size
indent = \indent + 8\mm
top-margin = 8\mm
bottom-margin = 8\mm
ragged-last-bottom = ##f
print-first-page-number = ##f
evenHeaderMarkup = \oddHeaderMarkup % so all page numbers to right
oddFooterMarkup = \markup { \column {
\fill-line { \on-the-fly #first-page \column { \vspace #1 \fromproperty #'header:copyright } }
\fill-line { \on-the-fly #last-page \fromproperty #'header:mytagline }
}
}
evenFooterMarkup = \oddFooterMarkup
}
% guitar neck position indicators
pI = ^\markup { "I" }
pII = ^\markup { "II" }
pIII = ^\markup { "III" }
pIV = ^\markup { "IV" }
pV = ^\markup { "V" }
pVI = ^\markup { "VI" }
pVII = ^\markup { "VII" }
pVIII = ^\markup { "VIII" }
pIX = ^\markup { "IX" }
pX = ^\markup { "X" }
pXI = ^\markup { "XI" }
pXII = ^\markup { "XII" }
pXIII = ^\markup { "XIII" }
pXVI = ^\markup { "XVI" }
% parenthetic position reminders
ppI = ^\markup { "(I)" }
ppII = ^\markup { "(II)" }
ppIII = ^\markup { "(III)" }
ppIV = ^\markup { "(IV)" }
ppV = ^\markup { "(V)" }
ppVI = ^\markup { "(VI)" }
ppVII = ^\markup { "(VII)" }
ppVIII = ^\markup { "(VIII)" }
ppIX = ^\markup { "(IX)" }
ppX = ^\markup { "(X)" }
ppXI = ^\markup { "(XI)" }
ppXII = ^\markup { "(XII)" }
ppXIII = ^\markup { "(XIII)" }
% large barre
BpI = ^\markup { "B_I" }
BpII = ^\markup { "B_II" }
BpIII = ^\markup { "B_III" }
BpIV = ^\markup { "B_IV" }
BpV = ^\markup { "B_V" }
BpVI = ^\markup { "B_VI" }
BpVII = ^\markup { "B_VII" }
BpVIII = ^\markup { "B_VIII" }
BpIX = ^\markup { "B_IX" }
BpX = ^\markup { "B_X" }
BpXI = ^\markup { "B_XI" }
BpXII = ^\markup { "B_XII" }
% small barre
bpI = ^\markup { "b_I" }
bpII = ^\markup { "b_II" }
bpIII = ^\markup { "b_III" }
bpIV = ^\markup { "b_IV" }
bpV = ^\markup { "b_V" }
bpVI = ^\markup { "b_VI" }
bpVII = ^\markup { "b_VII" }
bpVIII = ^\markup { "b_VIII" }
bpIX = ^\markup { "b_IX" }
bpX = ^\markup { "b_X" }
bpXI = ^\markup { "b_XI" }
bpXII = ^\markup { "b_XII" }
% parenthetic small barre
bppI = ^\markup { "(b_I)" }
bppIII = ^\markup { "(b_III)" }
% left hand fingering locations
fingerLeft = \set fingeringOrientations = #'(left)
fingerRight = \set fingeringOrientations = #'(right)
fingerUp = \set fingeringOrientations = #'(up)
fingerDown = \set fingeringOrientations = #'(down)
fingerUpDown = \set fingeringOrientations = #'(up down)
fingerInStaff = \override Fingering.staff-padding = #'()
fingerOutStaff = \revert Fingering.staff-padding
% abbreviation to tweak a fingering location
% e.g.
fngXY = #(define-scheme-function (parser location xy fng) (number-pair? string-or-music?) #{
\tweak extra-offset #xy #fng
#})
% right hand fingers
P = \rightHandFinger #1
I = \rightHandFinger #2
M = \rightHandFinger #3
A = \rightHandFinger #4
% right hand fingering locations
rhUp = \set strokeFingerOrientations = #'(up)
rhDown = \set strokeFingerOrientations = #'(down)
rhLeft = \set strokeFingerOrientations = #'(left)
rhRight = \set strokeFingerOrientations = #'(right)
% string number locations
stringUp = \set stringNumberOrientations = #'(up)
stringDown = \set stringNumberOrientations = #'(down)
stringLeft = \set stringNumberOrientations = #'(left)
stringRight = \set stringNumberOrientations = #'(right)
% harmonics
headHarmonic = \override Staff.NoteHead.style = #'harmonic
headRevert = \revert Staff.NoteHead.style
%high notes
hiE = ^\markup{ \smaller E}
hiF = ^\markup{ \smaller F}
hiFis = ^\markup{ \smaller \concat{ F \super \sharp }}
hiG = ^\markup{ \smaller G}
hiGis = ^\markup{ \smaller \concat{ G \super \sharp }}
hiAes = ^\markup{ \smaller \concat{ A \super \flat }}
hiA = ^\markup{ \smaller A}
hiBes = ^\markup{ \smaller \concat{ B \super \flat }}
hiB = ^\markup{ \smaller B}
% tuplets
hideTupletNumber = \override TupletNumber.stencil = ##f
unhideTupletNumber = \revert TupletNumber.stencil
hideTupletBracket = \override TupletBracket.bracket-visibility = ##f
unhideTupletBracket = \revert TupletBracket.bracket-visibility
% harmonics
headHarmonic = \override Staff.NoteHead.style = #'harmonic
headRevert = \revert Staff.NoteHead.style
% tempo/dynamics
acl = _\markup { \smaller \italic "accel." }
rit = _\markup { \smaller \italic "rit." }
dim = _\markup { \smaller \italic "dim." }
crc = _\markup { \smaller \italic "cresc." }
dol = _\markup { \smaller \italic "dolce" }
dcf = _\markup { \smaller \italic "D.C." }
fin = _\markup { \smaller \italic "Fin" }
gls = _\markup { \smaller \italic "glis." }
% stems
longStem = \override Stem.details.beamed-lengths = #'(5)
shortStem = \override Stem.details.beamed-lengths = #'(3)
revertStemLength = \revert Stem.details.beamed-lengths
% beams
nb = \noBeam
% grappoggiaccaturamata
gr =
#(define-music-function (parser location music) (ly:music?)
#{ \grace { #music } #})
ap =
#(define-music-function (parser location music) (ly:music?)
#{ \appoggiatura { #music } #})
ac =
#(define-music-function (parser location music) (ly:music?)
#{ \acciaccatura { #music } #})
fe = \fermata
% pitch limits for standard clasical guitar
% absolute max and min attainable (b''' and d)
#(define max-pitch (ly:make-pitch 2 6 NATURAL) )
#(define min-pitch (ly:make-pitch -1 1 NATURAL) )
% comfortably attainable hi and lo (e''' and e)
#(define hi-pitch (ly:make-pitch 2 2 NATURAL) )
#(define lo-pitch (ly:make-pitch -1 2 NATURAL) )
% function to color notes that are near or out of range
#(define (color-pitch-range grob)
(let ((pitch (ly:event-property (event-cause grob) 'pitch) ))
(if pitch
(if (ly:pitch max-pitch pitch) (x11-color 'red)
(if (ly:pitch pitch min-pitch) (x11-color 'blue)
(if (ly:pitch hi-pitch pitch) (x11-color 'orange)
(if (ly:pitch pitch lo-pitch) (x11-color 'green)
) ) ) ) ) ) )
% string-number spanners (from snippets + dashed line)
% use before \startTexSpan and \stopTextSpan
onOneString =
#(define-music-function (parser location strA) (string?)
#{
\override TextSpanner.direction = #UP
\override TextSpanner.style = #'dashed-line
\override TextSpanner.dash-fraction = #.5
\override TextSpanner.dash-period = #2.0
\override TextSpanner.font-size = #-5
\override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
\override TextSpanner.bound-details.left.text =
\markup { \circle \number #strA }
#})
onTwoStrings =
#(define-music-function (parser location strA strB) (string? string?)
#{
\override TextSpanner.direction = #UP
\override TextSpanner.style = #'dashed-line
\override TextSpanner.dash-fraction = #.5
\override TextSpanner.dash-period = #2.0
\override TextSpanner.font-size = #-5
\override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
\override TextSpanner.bound-details.left.text =
\markup \concat { \circle \number #strA \circle \number #strB }
#})
onThreeStrings =
#(define-music-function (parser location strA strB strC) (string? string? string?)
#{
\override TextSpanner.direction = #UP
\override TextSpanner.style = #'dashed-line
\override TextSpanner.dash-fraction = #.5
\override TextSpanner.dash-period = #2.0
\override TextSpanner.font-size = #-5
\override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
\override TextSpanner.bound-details.left.text =
\markup \concat { \circle \number #strA \circle \number #strB \circle \number #strC }
#})
% standard options
stdOpts = {
\fingerLeft \rhRight \stringDown
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
}
% Staff macros
instrumentI = \markup{ "Guitar I " }
instrumentII = \markup{ "Guitar II " }
Stff =
#(define-music-function (parser location instr musexp) (markup? ly:music?)
#{
\new Staff \with { instrumentName = #instr } {
%\override Staff.NoteHead.color = #color-pitch-range
\set Staff.midiInstrument = #"acoustic grand"
#musexp
}
#})
StffGrp =
#(define-music-function (parser location uprmus lwrmus) (ly:music? ly:music?)
#{
\new StaffGroup <<
\Stff \instrumentI #uprmus
\Stff \instrumentII #lwrmus
>>
#})
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
varVA = \transpose c c' {
\stdOpts
\time 2/4
\tempo 4=84
c'4-.\pVII r8 c'-. | %1
g'4-. r8 g'-. | %2
a'4-. r8 a'-. | %3
\onTwoStrings "2" "3"
4-.\pVI r8 \startTextSpan | %4
\tempo 4=92
r8 \once \fingerRight r | %5
r8 \bpV r | %6
r8 \pIII r | %7
c'4\stopTextSpan r | %8
\tempo 4=100
\bar "||"
\onOneString "2"
4\startTextSpan r8 ( | %9
4) r8 ( | %10
4) r8 ( | %11
\stringUp
4)\stopTextSpan r8 | %12
\tempo 4=108
4\startTextSpan r8 16( ) | %13
4 r8 16( ) | %14
4 r8 16( )\stopTextSpan | %15
4 r8 16(\pV ) | %16
\tempo 4=116
\bar "||"
4 r8 c'16\bpV( e') | %17
g'4 r8 g'16( e') | %18
a'4 r8 a'16( ) | %19
4 r8 16(\pV\startTextSpan ) | %20
\tempo 4=124
r8 16( ) r8 16(\pIII ) | %21
r8 16( )\stopTextSpan \onOneString "1" r8 16(\startTextSpan \stopTextSpan) | %22
\onOneString "2"
r8 16(\pII\startTextSpan ) r8 16( )\stopTextSpan | %23
\onOneString "3"
r8 16(\startTextSpan )\stopTextSpan r4 | %24
\bar "|."
}
varVC = \transpose c c' {
\stdOpts
\time 2/4
r8 -.\pII e4-. | %1
r8 e-. c4-. | %2
r8 -. c4-. | %3
r8 e c4 | %4
8 r r | %5
8 r r | %6
8\pI r r | %7
r8 \pIII 4 | %8 g c was c c,
\bar "||"
r8 \pII 4 | %9
r8 g,4 | %10
r8 g,4 | %11
r8 g,4 | %12
r8 e g,4 | %13
r8 d g,4 | %14
r8 c g,4 | %15
r8 b, g,4 | %16
\bar "||"
r8 16\pII 4 | %17 e, g, c was c, e, g,
r8 16 4 | %18
r8 16 4 | %19
r8 16 4 | %20
\onOneString "5"
8\startTextSpan r r | %21
8\stopTextSpan
\onOneString "6"
r \pI\startTextSpan r | %22
8 r r | %23
8\stopTextSpan\BpVIII r r | %24 c'' was c,
\bar "|."
}
varV = \StffGrp \varVA \varVC
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\score {
\header { piece = \markup { \bold "Accelerando" } }
\varV
\layout { }
}
\score {
{
\varV
}
\midi {
\transposition c % guitar plays octave lower than writtenn
\context{
\Voice
\remove "Dynamic_performer"
}
}
}