User:Lilipond/Klaviernoten/Czerny840-48
Jump to navigation
Jump to search
Carl Czerny, Melodische Übungen Op.840, №48
Anm.: ich habe darauf verzichtet, die Balken anzupassen, die entsprechenden Kommandos sind tw. als Kommentare im Code enthalten.
Komplettscore
[edit]\version "2.19.80"
\language "deutsch"
#(set-global-staff-size 18)
\paper {
myStaffSize = #18
% define music font in addition to global font
#(define fonts
(set-global-fonts
#:music "ross"
#:brace "gonville"
#:roman "Minion Pro"
#:factor (/ staff-height pt 20)
))
#(add-music-fonts fonts 'emm "emmentaler" "emmentaler"
feta-design-size-mapping (/ staff-height pt 20))
}
\layout {
\context {
\Staff
\override StaffSymbol.thickness = #0.6 %Standardwert = 1
\override DynamicLineSpanner.staff-padding = #3
beamExceptions = #'()
\override BreathingSign.text =
\markup { \musicglyph #"scripts.lvarcomma" }
\consists "Mark_engraver"
\consists "Staff_collecting_engraver"
\override RehearsalMark.self-alignment-X = #LEFT
%\override RehearsalMark.outside-staff-priority = #'()
\override SustainPedal.font-family = #'emm
}
\context {
\Staff
\name BarNumberStaff
%% Staff with Bar Numbers
\alias Staff
\consists "Bar_number_engraver"
\override BarNumber.break-visibility =#end-of-line-invisible
\override BarNumber.color = #grey
\override BarNumber.layer = #-200
%\override BarNumber.break-visibility =#begin-of-line-visible %#end-of-line-invisible
\override BarNumber.outside-staff-priority =#'()
\override BarNumber.padding = #1
\override BarNumber.font-size = #1
\override BarNumber.self-alignment-X = #0
%\override StaffSymbol.thickness = #0.5 %0.3=optimaler wert
\override DynamicLineSpanner.staff-padding = #3
}
\context {
\PianoStaff
\accepts BarNumberStaff
}
\context {
\Dynamics
\override DynamicText.whiteout = ##t
}
\context {
\Score
\accepts BarNumberStaff
\remove "Bar_number_engraver"
\remove "Mark_engraver"
\remove "Staff_collecting_engraver"
\override FootnoteItem.annotation-line = ##f
\override Timing.beamExceptions = #'()
\override BarLine.thick-thickness = 5
%4.5 %% dass die Barlines nicht zu fett werden
\override MetronomeMark.font-size = #1
%\override MetronomeMark.font-series = #'bold
\override MetronomeMark.font-shape = #'caps
\override BreakAlignment.break-align-orders =
##((left-edge ambitus breathing-sign clef staff-bar
key-cancellation key-signature time-signature custos)
(left-edge ambitus breathing-sign clef key-cancellation
staff-bar key-signature time-signature custos)
(left-edge ambitus breathing-sign clef key-cancellation
key-signature staff-bar time-signature custos))
}
}
#(define (MM->Script-text evt)
(if (eq? 'MultiMeasureTextEvent (ly:music-property evt 'name))
(let ((res (make-music 'TextScriptEvent)))
;; (display (ly:music-mutable-properties evt)) ; if you are curious ...
(for-each (lambda(props)
(ly:music-set-property! res (car props) (cdr props)))
(ly:music-mutable-properties evt))
res)
evt))
ghostMusic = #(define-music-function (parser location music) (ly:music? )
(map-some-music
(lambda(x)
(let ((dur (ly:music-property x 'duration #f)))
(and (or dur (eq? 'EventChord (ly:music-property x 'name)))
(let ((skip (make-music 'SkipEvent 'duration
(or dur (make-duration-of-length (ly:music-length x)))))
(artis (let ((elts (ly:music-property x 'elements #f)))
(if elts (filter (lambda(y) ;; EventChord
(not (eq? 'NoteEvent (ly:music-property y 'name))))
elts)
(map MM->Script-text (ly:music-property x 'articulations '()))))))
(ly:music-set-property! skip 'articulations artis)
skip))))
music))
%%make DynamicText from \markup for use in Dynamics-context
dynamictext =
#(define-event-function (text) (markup?)
(if (string? text)
(let* ((underscores-replaced
(string-map
(lambda (x) (if (eq? x #\_) #\space x))
text))
(split-text (string-split underscores-replaced #\space))
(formatted (map
(lambda (word)
(if (string-match "^[mrzfps]*$" word)
(markup #:dynamic word)
(markup #:normal-text #:italic word)))
split-text)))
#{
#(make-dynamic-script (make-line-markup formatted))
#})
;; user provided a full-blown markup, so we don't mess with it:
#{
#(make-dynamic-script (markup #:normal-text text))
#}))
%%make DynamicText from string for use in Dynamics-context
dynstr =
#(define-event-function (text) (string?)
(let* ((underscores-replaced
(string-map
(lambda (x) (if (eq? x #\_) #\space x))
text))
(split-text (string-split underscores-replaced #\space))
(formatted (map
(lambda (word)
(markup #:normal-text #:italic #:whiteout word))
split-text)))
#{
#(make-dynamic-script (make-line-markup formatted))
#}))
myottava =
#(define-music-function (o) (integer?)
(let ((text (case o
((0) #f)
((1 -1) "8")
((2 -2) "15"))))
#{
\ottava #o
\set Staff.ottavation = #text
#}))
#(define (my-tuplet-number::calc-denominator-text grob)
(let (;; let 'direction evaluate to use the generic tie-markup-command
(dir (ly:grob-property grob 'direction)))
(make-tie-markup
(string-append " " (tuplet-number::calc-denominator-text grob) " "))))
tupletFormats = {
\override TupletNumber.font-size = #0
\override TupletNumber.font-shape = #'italic
\override TupletBracket.padding = #1.5
\override TupletNumber.text = #my-tuplet-number::calc-denominator-text
}
myTitel = "Melodische Übungen Op.840"
Dyn= {
s1\dynamictext \markup { \dynamic f \italic "stacc." } s s
\override Hairpin.shorten-pair = #'(3 . 0)
s2 s\> s1\p
\override DynamicText.self-alignment-X = #-0.8
s2 s\dynstr "cresc."
s1 s s\p s
s\dynstr "cresc." s2 s\> s1\p
s\dynstr "cresc." s\f s
s1\dynamictext \markup { \dynamic p \italic "dol." }
s1 * 7
s1\p s s\dynstr "cresc." s s
s\sf
}
Struktur =
{
%\override Score.NonMusicalPaperColumn.page-break-permission = ##f
\override Score.NonMusicalPaperColumn.line-break-permission = ##f
\set Timing.beatStructure = #'(2 2)
\repeat unfold 4 { s1 * 3 \break }
\repeat unfold 4 { s1 * 4 \break }
}
RH= \relative c' {
\time 4/4
\key f \major
\tempo "Allegro vivace."
\repeat volta 2 {
r16 d[ r f r e r g]
r f[ r a r a, r cis]
r d[ r f r e r g]
r f[ r a r a, r cis]
r d[ r f r a r d]
r gis,[ r f' r e r d]
r cis[ r a r cis r e]
r16 a gis a gis a gis a
g! a b! a g f e f g f e d cis b a g
f a d f a8 r
e,16 g b e g8 r
d,16 f a d f8 r
cis,16 e a cis e8 r8
d16 a f' a, d a f' a, d8 r8 r4
}
\repeat volta 2 {
\voiceOne
r16 < cis e > r q r q r q r < d f > r q r q r q
r16 < e g > r q r < d f > r q r < cis e > r q r q r q
\oneVoice
r
< cis e a >
r q r q r q
r < d f a > r q r q r q
r < e g a > r q r < d f a > r q
r16
< cis e a > gis' a g e g e
a16 gis a f d8 r
d'16 cis d a f8 r
es16 g b es g8 r
\ottava #1
g,16 b es g b8 r
a16 g f e! d c! b! a \ottava #0
g f e d cis d e cis
d a d f a f a f d8 r
\set Staff.explicitKeySignatureVisibility = #end-of-line-invisible
\override Staff.KeyCancellation.break-visibility = #begin-of-line-visible
%\set Staff.printKeyCancellation = ##f
\override Staff.RehearsalMark.direction = #UP
\mark \markup \italic "Fine."
r4
}
\repeat volta 2 {
\key d \major
\mark \markup \fontsize #-1.5 { \bold "D Dur." \italic "(Ré majeur.)" }
fis8-5-. r fis-. r fis-. r h,16-4 ( a-3 gis-2 a-1
fis'8 ) r fis r fis r h,16-4 ( a gis a-1
d8.-2 fis16-4 a8.-1 d16-2 ) \myottava #1 fis4-3 ( g16-4 fis e d
cis4.-2 e8 g ) \ottava #0 r r4
g,8-5-. r g-. r g-. r
cis,16-2 ( a-1 e'-3 cis-2
g'8-5-. ) r g-. r g-. r
\myottava #1
cis16-2\< ( a e' cis
%Beam Positions falls ohne ottava #1
%\once \override Beam.positions = #'(0 . -0.5)
a'8-5\> g16 fis\!
%\once \override Beam.positions = #'(-0.5 . -1)
e d-1 cis-4 h \ottava #0
%\once \override Beam.positions = #'(-1.5 . -2)
a g fis-3 e d-1 cis-3 h cis
d8-. ) r < a fis' >-. r < fis d' >-. r r4
\bar ":..:"
fis'8-3-. r fis-. r fis-. r g16-4 ( fis e d-1
cis4.-3 ais8_2 fis4_1 ) r
fis'8-3-. r fis-. r fis ( eis16 fis
g-4 fis e d )
cis2-2 cis4-3 (
\override Fingering.direction = #DOWN
h16-2 a-1 gis-2 a-1
\override Fingering.direction = #UP
fis'8-. ) r fis-. r fis-. r e16-4 ( d-3 cis-2 d-1
d'8-. ) r d-. r d4.-> ( gis,8
a-3 ) a,16[-1 ( h] cis d-1 e fis g!-4 fis e fis g a h cis
d8-. ) r < fis,, a d >-. r q-. r r4
}
}
RHii= {
}
RHs= {
\set Voice.beatStructure = #'(1 1 1 1)
\override Fingering.avoid-slur = #'inside
s16 s-.-1 s s-.-3 s s-.-2 s s-.-4 s s-.-3 s s-.-5 s s-.-1 s s-2
s s-. s s-. s s-. s s-. s2
s16 s-1 s s-2 s s-3 s s-5 s s-1 s s-5 s s-4 s s-3
s s-2 s s-1 s s-2 s s-3 s s-3 ( s-2 s s4
s16-1 s s-3 s s-1 s-3 s8 s16-3 s s s-1 s-4 s s s)
\repeat unfold 4 { s16-2 ( s-1 s s s8-. ) s }
s1
s16 s-2-4[ s s s s s s] s16 s-1-3[ s s s s s s]
s16 s-4[ s s s-3 s s s] s16 s-4[ s s s s s s]
\override Fingering.extra-offset = #'(-2.5 . -4)
s16 s-1-2-5[ s s] s16 s[ s s]
\override Fingering.extra-offset = #'(-1.8 . -4)
s16 s-1-3-5[ s s] s16 s[ s s]
s16 s[ s s] s16 s[ s s]
\override Fingering.extra-offset = #'(-2.5 . -4)
s s-1-2-5 ( \revert Fingering.extra-offset s-4 s-5 s-4 s s s )
\repeat unfold 2 { s-5 ( s s s s8-. ) s }
s16-2 s-1 s8 s4 s16-1 s-2 s-4 s-1 s8-3 s
s16-5 s s s s-1 s-4 s s
s-1 s-3 s s s-2 s s s
s-3 s-1 s-2 s-4 s4 s2
}
LH = \relative c {
\clef bass
\key f \major
d8-5 f-3 e-3 g-2 g-3 a-1 a,-5 cis-3
d-1 f-3 e-4 g-2
f8 a a, cis
d-1 f-3 a-2 d-1 gis,-5 f'-1 e-2 d-1
cis8-3 a-5 cis-3 e-2
f-1-. r r4
\voiceOne
cis,8 < e a > q q cis q q q
d < f a > q q g, < b e > q q
a < d f > q q a < e' g > q q
\oneVoice
< f d >8 a q a q r r4
\change Staff = "up"
\override Script.direction = #DOWN %% für Arikulationszeichen
\override Script.self-alignment-X = #CENTER
%\override Beam.positions = #'(-4 . -5)
\voiceTwo
a'8-1_. b-2-. a-1-. g-2-.
%\override Beam.positions = #'(-5 . -6)
f-3-. a-1-. f-2-. d-3-.
%\override Beam.positions = #'(-7 . -5.5)
cis-3 a-5 d-3 f-2
%\override Beam.positions = #'(-5 . -6)
a-1 e-2 cis-3 e-2
\change Staff = "down"
%\override Beam.positions = #'(-3 . -2)
\oneVoice
a,-1 e-4 a g f-3 a-1 f-2 d-3
cis-3 a-5 d-3 f a r8 r4
\voiceOne
f,8 < a d > q q f q q q
g < b es > q q g q q q
a < d f > q q a < e' g > q q
\oneVoice
< f d >8 a q a q r r4
\set Staff.explicitKeySignatureVisibility = #end-of-line-invisible
\override Staff.KeyCancellation.break-visibility = #begin-of-line-visible
\key d \major
%\override Beam.positions = #'(6 . 7)
\voiceOne
\repeat unfold 3 { fis8 a d a fis a d a }
\repeat unfold 3 { g a cis a g a cis a }
\revert Beam.positions
a, cis e g a, cis e g
\oneVoice
< fis d > a d a d r r4
\set fingeringOrientations = #'(left) %% für Akkorde!
< h-1 d-2 >8 fis
\repeat unfold 3 { < h d >8 fis }
\override Fingering.X-offset = -3 %% um die Fingersätze für den Akkord in einer Spalte zu erzwingen
< ais-3 e'-1 >8 fis
\repeat unfold 3 { < ais e' >8 fis }
\revert Fingering.X-offset
< h-1 d-2 >8 fis
\repeat unfold 3 { < h d >8 fis }
< ais cis > fis q fis
\voiceOne
g!8 cis a cis
\mergeDifferentlyHeadedOn
\repeat unfold 2 { fis,8 a d a }
d, e gis e d e gis e
a, fis' d fis a, g'! e g
s d_( a fis d )
\oneVoice
r8
\override TextScript.self-alignment-X = #RIGHT
\override TextScript.extra-offset = #'( 3 . 0 )
r4_\markup "D.C. sino al fine."
}
LHii = \relative c {
s1 * 4
\voiceTwo
\mergeDifferentlyHeadedOn
\mergeDifferentlyDottedOn
cis2 cis d g, a a
s1 * 5
f2 f g g a a
s1
\override NoteColumn.force-hshift = #0.7
d2 d d d d d
e e e e e e
\revert NoteColumn.force-hshift
a, a
s1 *4
\mergeDifferentlyHeadedOff
\mergeDifferentlyDottedOff
s2 < g' e >2
\override NoteColumn.force-hshift = #0.7
d d h h a a
}
LHs= {
}
\bookpart {
\paper {
print-all-headers = ##f
ragged-bottom = ##f
ragged-last-bottom = ##f
last-bottom-spacing.padding = #15
top-margin = 20\mm
ragged-right = ##f
ragged-last = ##f
ragged-bottom = ##f
ragged-last-bottom = ##f
bottom-margin = 10\mm
indent = 10\mm
line-width = 170\mm
print-all-headers = ##f
print-first-page-number = ##f
#(include-special-characters)
footnote-separator-markup = \markup \null
}
\header {
title = \myTitel
subtitle = \markup \fontsize #2 { "№ 48 D-Moll"
subsubtitle = ""
poet = ##f
composer = "Carl Czerny (1791-1857)"
piece = ##f
opus = ##f
}
\score
{
\new PianoStaff="leadsheet" \with {
instrumentName = ""
shortInstrumentName = ""
}
<<
\new BarNumberStaff="up"
<<
\new Voice \RH
\context Voice \RHs
\new Voice \RHii
>>
\new Dynamics \Dyn
\new Staff="down"
<<
\new Voice \LH
\context Voice \LHs
\new Voice \LHii
>>
>>
}
}}
WikiText der Seite User:Lilipond/Klaviernoten/Czerny840-48
{{User:Wirklich/notitle|Carl Czerny, Melodische Übungen Op.840, №48}}
{{User:Wirklich/bearbeiten}} <div style="margin-top:1em> </div> {{User:Wirklich/Bildausschnitt|bild=Czerny Op840 Nr48.svg|hoch=450px}} ''Anm.:'' ich habe darauf verzichtet, die Balken anzupassen, die entsprechenden Kommandos sind tw. als Kommentare im Code enthalten. == Komplettscore == <includeonly> <onlyinclude>{{User:Lilipond/Klaviernoten/layout}} {{User:Lilipond/Klaviernoten/scheme}} {{User:Lilipond/Klaviernoten/{{SUBPAGENAME}}/variable}} {{User:Lilipond/Klaviernoten/{{SUBPAGENAME}}/RH}} {{User:Lilipond/Klaviernoten/{{SUBPAGENAME}}/LH}} {{User:Lilipond/Klaviernoten/bookpart|subtitel=\markup \fontsize #2 { "№ 48 D-Moll" }}}</onlyinclude> </includeonly> {{User:Wirklich/coco|code={{:{{FULLPAGENAME}}}}}} {{User:Wirklich/ShowMe}} == Unterseiten == {{User:Wirklich/ShowSub|nouse=1}} [[Category:LilyPond_SourceCode]]
Unterseiten
[edit]Unterseiten von User:Lilipond/Klaviernoten/Czerny840-48