%---------------------------------------------------------------- % _ _ _ _ % | | (_) |_ _ _ __ ___ _ __ __| | % | | | | | | | | '_ \ / _ \| '_ \ / _` | % | |___| | | |_| | |_) | (_) | | | | (_| | % |_____|_|_\\__, | .__/ \___/|_| |_|\__,_| % |___/|_| % % This is a Lilypond source code file. For more information % about the Lilypond music typesetting program, visit % % http://lilypond.org % % The code in this source file is released under % a GPLv3 license. For licensing information visit % % http://www.gnu.org/licenses/quick-guide-gplv3 % %---------------------------------------------------------------- \version "2.18.0" %\include "style.ily" \header { tagline = "" % removed } \paper { #(set-paper-size "letter") ragged-right = ##f ragged-bottom = ##t ragged-last-bottom = ##f } #(ly:set-option 'point-and-click #f) #(set-global-staff-size 28) Prefix = \markup { %% uncomment/comment these lines for C, C slashed, B or B slashed prefix : %\roman C \combine \roman C \translate #'(0.65 . -0.25) \override #'(thickness . 1.2) \draw-line #'(0 . 1.8) %\roman B %\combine \roman B \translate #'(0.65 . -0.25) \override #'(thickness . 1.2) \draw-line #'(0 . 1.8) %%%%%%%%%%%% \hspace #0.2 } startBarre = #(define-event-function (parser location str) (string?) (let* ((mrkp (markup #:upright #:concat (str " ")))) (define (width grob text-string) (let* ((layout (ly:grob-layout grob)) (props (ly:grob-alist-chain grob (ly:output-def-lookup layout 'text-font-defaults)))) (interval-length (ly:stencil-extent (interpret-markup layout props (markup text-string)) X)))) #{ \tweak TextSpanner.after-line-breaking #(lambda (grob) (let* ((mrkp-width (width grob mrkp)) (line-thickness (ly:staff-symbol-line-thickness grob))) (ly:grob-set-nested-property! grob '(bound-details left padding) (+ (/ mrkp-width -4) (* line-thickness 2))))) \tweak TextSpanner.font-size -2 \tweak TextSpanner.style #'line \tweak TextSpanner.bound-details.left.text #mrkp \tweak TextSpanner.bound-details.left.padding 0.25 \tweak TextSpanner.bound-details.left.attach-dir -1 \tweak TextSpanner.bound-details.left-broken.text ##f \tweak TextSpanner.bound-details.left-broken.attach-dir -1 %% adjust the numeric values to fit your needs: \tweak TextSpanner.bound-details.left-broken.padding 1.5 \tweak TextSpanner.bound-details.right-broken.padding 0 \tweak TextSpanner.bound-details.right.padding 0.25 \tweak TextSpanner.bound-details.right.attach-dir 2 \tweak TextSpanner.bound-details.right-broken.text ##f \tweak TextSpanner.bound-details.right.text \markup \draw-line #'(0 . 0) \startTextSpan #})) stopBarre = \stopTextSpan global = { \time 6/8 \override Staff.BarLine.allow-span-bar = ##f %\numericTimeSignature \key c \major \set Staff.midiInstrument = "piano" %\override Score.MetronomeMark #'padding = #3.8 %\override Staff.TimeSignature #'stencil = ##f % \set Timing.beamExceptions = #'() % \set Timing.baseMoment = #(ly:make-moment 1/4) % \set Timing.beatStructure = #'(1 1 1 1) \override Glissando.thickness = #4 \override TupletBracket.stencil = ##f } sop = \relative c'' { \global \voiceOne c4.^\markup \italic \bold {"Andante"} ~ c8 d e f e d g4. ~ g4 f8 e d c c4-> b8 c d e a,2. ~ a8 cis d e fis g( fis g a d,4.) e8( f g c,4.) ~ c8 b a b c d c2. \bar "||" } alto = \relative c' { \global \voiceTwo e8 f g a4. ~ a4 a8 g a b c b a g f e d e d g4. ~ g8f e d cis b! cis a' b cis d e ~ e8 d c! bes a g ~ g_\markup \tiny {"Sequence."} c bes aes g_\markup \tiny {"C:♭IV"} f e d c d g f ~ f e d e4. } tenor = \relative c { \global \textSpannerDown \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER \override TextSpanner.bound-details.right.stencil-align-dir-y = #CENTER \override Voice.TextScript.padding = #2 \override Voice.TextSpanner.padding = #2 \clef "bass" \oneVoice c8\startBarre "C: I" d e\stopBarre f4_\markup \tiny {"IV"} e8_\markup \tiny {"(VI)"} d8\startBarre "II" e f\stopBarre b,\startBarre "V" c d\stopBarre e4_\markup \tiny {"I"} f8_\markup \tiny {"(IV)"} g4 a8_\markup \tiny {"VI"} f8_\markup \tiny {"II7"} g f_\markup \tiny {"V7"} e\startBarre "I" d c\stopBarre cis_\markup \tiny {"d:V7"} d8 e f_\markup \tiny {"I"} e\startBarre "V" d8 e4. ~ e8 \once \override TextScript.outside-staff-priority = #5 d_\markup \tiny {"D"} cis\stopBarre \once \override TextScript.outside-staff-priority = #5 d8(_\markup \tiny {"I"}\startBarre "G:V" e8 fis\stopBarre g\startBarre "g:I" a bes)\stopBarre c,(\startBarre "F:V" d e\stopBarre f_\markup \tiny {"f:I"} g aes) g4.\startBarre "C(I) V" g,8 a b\stopBarre c2._\markup \tiny {"I"} } bass = \relative c { \global \clef "bass" %\voiceTwo } \score { \new PianoStaff << \set PianoStaff.instrumentName = \markup \center-column { Ex. "149-1." } \new Staff = "up" << \context Voice = "soprano" \sop \context Voice = "alto" \alto >> \new Staff = "down" << \context Voice = "tenor" \tenor \context Voice = "bass" \bass >> >> \layout { \context { \Score \remove "Bar_number_engraver" } } \midi {\tempo 4. = 60} }