\version "2.6.0" #(def-markup-command (normal-font layout props arg) (markup?) "Switch to normal text font" (interpret-markup layout (cons '((font-series . 'medium) (font-shape . 'upright)) props) arg)) atonicKey = #(def-music-function (parser location) () #{ #(ly:export (make-music 'EventChord 'origin $location 'elements (list (make-music 'KeyChangeEvent 'tonic (ly:make-pitch -1 4 0) 'pitch-alist '((5 . 1) (6 . 1) (0 . 1) (1 . 1) (2 . 1) (3 . 1) (4 . 1)))))) \set Score . extraNatural = ##f #}) \header { title = \markup { "" \translate #(cons 4.0 0.0) \bigger \bigger \bigger \bigger "S U I T E" } subtitle = "für Klavier" %composer = "Arnold Schoenberg" composer = \markup { \normal-font Arnold Schoenberg Op. 25 } } \paper { firstpagenumber = 4 linewidth = 164\mm } \score { \header { piece = "Präludium" } \layout { %\context { \Staff \remove Key_engraver } %raggedright = ##t } \context PianoStaff << \override PianoStaff.KeySignature #'print-function = ##f \context Staff = upper \transpose c c' { \time 6/8 \tempo 4.=80 \override Score.Hairpin #'height = #'0.5 \override Score.Beam #'auto-knee-gap = #'4.5 \set Score.allowBeamBreak = ##t \override Score.MetronomeMark #'extra-offset = #'(5.0 . 2.0) #(set-accidental-style 'modern-voice) % Add bar numbers in a cirlce every 5th bar \override Score.BarNumber #'break-visibility = #end-of-line-invisible \override Score.BarNumber #'self-alignment-X = #-1 \set Score.barNumberVisibility = #(every-nth-bar-number-visible 5) \override Score.BarNumber #'font-size = #1 \override Score.BarNumber #'print-function = #(make-stencil-circler 0.1 0.25 Text_interface::print) \clef G \atonicKey r8^\markup { " " \translate #(cons -5.5 2.25) \bold \huge " Rasch" } e'-.\p f'-. g4^>( \< des'8^.) \! | ges es8. ^\< as16( \! d8-.) r b ~ ^\sf | \noBreak b \once \override Script #'extra-offset = #'(0.5 . -0.5) c^^[ \once \override Script #'extra-offset = #'(0.5 . 0.0) a,^^] r r \once \override Script #'extra-offset = #'(0.5 . 0.0) \once \override DynamicText #'extra-offset = #'(-0.9375 . -1.75) as^. ^\p \break << { \override Script #'extra-offset = #'(0.5 . 0.0) \override DynamicText #'self-alignment-X = #1 \override DynamicText #'extra-offset = #'(-0.875 . -2.375) ces'-. r r ges[ c']-.-> ^\sf } \\ { \override Script #'extra-offset = #'(-0.5 . 0.0) es( d)-. f( ~ f[ e]) } >> f'\rest | << f'8\rest \\ { g16[ \fp g] } >> << { \override Script #'extra-offset = #'(0.5 . 0.0) \override DynamicText #'self-alignment-X = #1 \override DynamicText #'extra-offset = #'(-0.75 . -2.375) des'8-. ^\p ces'-. bes16-. ^\p r } \\ s1*6/16 >> r8. \clef F s16 \break e4. \f << s4. \\ { b,16 \fp ais, b, gis, a,8 ~ | a,8. bes,16-^ \f ces-^ des-^ } >> \clef G << { r8 e16[ g\rest g\rest es] } \\ { \override DynamicText #'extra-offset = #'(-1.75 . 0.75) g,8. \fp \override DynamicText #'extra-offset = #'(0 . 0.75) c \fp } >> } \context Staff = lower \transpose c c { \clef F \atonicKey r4 r8 bes8.^^\mf[ ces'^^ | des^^ g^^] r8 << { << { c^\p( a, | d4 gis,16) } \once \override Hairpin #'extra-offset = #'(0.0 . -1.375) { s4 \< | s4*8/45 \once \override Hairpin #'extra-offset = #'(0.0 . -1.8125) s4*22/45 \> s4*3/12 s4*1/12 \! s16 } >> } \\ { \override Script #'extra-offset = #'(-0.5 . 0.0) f,8-.\pp fis,-. | es,-.[ e,8.-.] } >> r16 \change Staff = upper \stemDown bes^^ \fp bes^^ bes^^ \< \stemUp \change Staff = lower bes^^ bes^^ bes^^ \clef G bes bes bes \! a\> a a \! a a \< a \! \stemDown \change Staff = upper g' \fp \< g' g' \! | \change Staff = lower \clef F r << { s4 a16 c' ^\fp d'\rest } \\ { \override Script #'extra-offset = #'(-0.5 . 0.0) [ \p \< r < es d'> \> r \! fis->] ~ fis[ f,-.] } >> r des, ^\f g, \change Staff = upper f | \change Staff = lower << { \stemDown 8( \p 8.) \once \override Slur #'slur-details = #'((region-size . 4) (head-encompass-penalty . 1000.0) (stem-encompass-penalty . 30.0) (closeness-factor . 10) (edge-attraction-factor . 4000000) (same-slope-penalty . 20) (steeper-slope-factor . 50) (non-horizontal-penalty . 15) (max-slope . 1.1) (max-slope-factor . 10) (free-head-distance . 0.3) (free-slur-distance . 0.8) (extra-object-collision . 50) (accidental-collision . 3) (extra-encompass-free-distance . 0.3) (head-slur-distance-max-ratio . 3) (head-slur-distance-factor . 10) (absolute-closeness-measure . 0.3) (edge-slope-exponent . 1.7) ) % edge-attraction-factor increased \once \override Slur #'height-limit = #'4.0 16( \change Staff = upper \stemUp \override Hairpin #'extra-offset = #'(1.625 . -6.625) fis'4) ~ fis'16 c' \< | \override DynamicText #'self-alignment-X = #1 \override DynamicText #'extra-offset = #'(-0.75 . -2.375) f' ^\sf r d'4 } \\ { \override Script #'extra-offset = #'(0.5 . 0.0) s8*3 \change Staff = lower \stemUp r16 g^^ \p des^^ es^^ e,8 ~ | e,16 e, e, e, \< e, e, \override Slur #'slur-details = #'((region-size . 4) (head-encompass-penalty . 1000.0) (stem-encompass-penalty . 30.0) (closeness-factor . 10) (edge-attraction-factor . 80) (same-slope-penalty . 20) (steeper-slope-factor . 50) (non-horizontal-penalty . 15) (max-slope . 1.1) (max-slope-factor . 10) (free-head-distance . 0.3) (free-slur-distance . 0.8) (extra-object-collision . 50) (accidental-collision . 3) (extra-encompass-free-distance . 0.3) (head-slur-distance-max-ratio . 3) (head-slur-distance-factor . 10) (absolute-closeness-measure . 0.3) (edge-slope-exponent . 1.7) ) % edge-attraction-factor increased e,( \! f) f f f( \> g,) \! } >> } >> }