X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fsimultaneous-headword.ly;h=a08838f8f8ac03b15539a0538e3e89c3380c526c;hb=23108a9515e7f76b44fac0b323afb169d708bfa1;hp=624f6948b95bab25d13b049bf98d64308aef6471;hpb=35e6c0556ee9ae6c88421db0c76bde8beda584e3;p=lilypond.git diff --git a/Documentation/snippets/simultaneous-headword.ly b/Documentation/snippets/simultaneous-headword.ly index 624f6948b9..a08838f8f8 100644 --- a/Documentation/snippets/simultaneous-headword.ly +++ b/Documentation/snippets/simultaneous-headword.ly @@ -1,30 +1,22 @@ -% Do not edit this file; it is automatically -% generated from Documentation/snippets/new -% This file is in the public domain. -%% Note: this file works from version 2.12.0 -\version "2.13.10" -\include "english.ly" -#(set-global-staff-size 15) -\paper{ - ragged-right=##t - line-width=17\cm - indent=0\cm -} +%% DO NOT EDIT this file manually; it is automatically +%% generated from LSR http://lsr.dsi.unimi.it +%% Make any changes in LSR itself, or in Documentation/snippets/new/ , +%% and then run scripts/auxiliar/makelsr.py +%% +%% This file is in the public domain. +\version "2.17.11" -\layout { - \context { \Score - \override PaperColumn #'keep-inside-line = ##t - \override NonMusicalPaperColumn #'keep-inside-line = ##t - } -} +\header { + lsrtags = "headword" + texidoc = " +Simultaneous notes -\header { - lsrtags = "headwords" - texidoc = "" - doctitle = "headword" +" + doctitle = "Simultaneous headword" } % begin verbatim +\include "english.ly" % NR 1.5 Simultaneous notes @@ -34,292 +26,123 @@ % measures 108 - 118 \layout { - \context { - \Score - \override SpacingSpanner #'base-shortest-duration = - #(ly:make-moment 1 18) - \override NonMusicalPaperColumn #'line-break-system-details = - #'((alignment-offsets . (0 -12))) - } + \context { + \Score + \override SpacingSpanner.base-shortest-duration = + #(ly:make-moment 1/18) + \override NonMusicalPaperColumn.line-break-system-details = + #'((alignment-distances . (12))) + } } -trillflat = - \once \override TrillSpanner #'(bound-details left text) = - #(markup #:translate-scaled '(-0.05 . -1) - #:concat (#:musicglyph "scripts.trill" - #:translate '(-0.5 . 1.9) #:fontsize -7 #:flat)) - +trillFlat = +\once \override TrillSpanner.bound-details.left.text = \markup { + \concat { + \musicglyph #"scripts.trill" + \translate #'(-0.5 . 1.9) + \fontsize #-7 + \with-dimensions #'(0 . 0) #'(0 . 0) + \flat + } +} \new PianoStaff << - % RH - \new Staff << - \clef treble - \key c \major - \time 9/16 - \set Score.currentBarNumber = #108 - - % RH voice 1 + % RH + \new Staff << + \clef treble + \key c \major + \time 9/16 + \set Score.currentBarNumber = #108 + + % RH voice 1 + \new Voice { + \voiceOne + s4. s8. | + s4. a''8[( \p \> g''16]) | + g''4. af''8[( g''16]) | + g''8.[ g''8. g''8.] \pp | + g''8.[ af''8.af''8.] | + af''8.[ af''8.af''8.] | + \trillFlat + af''4.~ \startTrillSpan + af''8.~ | + af''4.~ af''8.~ | + \oneVoice + 8.[ a''8. \p \< bf''8.]~ | + bf''8.[ b''8. c'''8.]~ + \bar "||" + \key ef \major + c'''8.[ cs'''8.] \f \stopTrillSpan + r8. + } + + % RH voice 2 + \new Voice { + \voiceTwo + \override Voice.TrillSpanner.direction = #DOWN + d''4.~ \f \startTrillSpan + d''8.~ | + d''4.~ d''8.~ | + d''8. \stopTrillSpan + \trillFlat + d''4.~ \startTrillSpan | + d''4.~ d''8.~ | + d''4.~ d''8.~ | + d''4.~ d''8.~ \stopTrillSpan | + \trillFlat + d''4.~ \startTrillSpan + d''8. ~ | + d''4.~ d''8.~ | + \once \override NoteColumn.ignore-collision = ##t + \hideNotes + d''8. \stopTrillSpan + s4. | + s8. s8. + } + + >> + + % LH staff + \new Staff { + \clef bass + \key c \major + \time 9/16 + r8. r8. 8[( 16]) | + 4. + \clef treble + c''8[( b'16]) | + b'4. c''8[( b'16]) | + b'8.[ b'8. b'8.] | + b'8.[ bf'8.] + \clef bass + 8[( 16]) | + 4. + \clef treble + f'8[( bf16]) | + << \new Voice { - - \voiceOne - s4. - s8. - - | - - s4. - a''8 \p \> [ ( - g''16 ] ) - - | - - g''4. - af''8 [ ( - g''16 ] ) - - | - - g''8. [ - g''8. - g''8. \pp ] - - | - - g''8. [ - af''8. - af''8. ] - - | - - af''8. [ - af''8. - af''8. ] - - | - \break - - \trillflat - af''4. \startTrillSpan - ~ - af''8. - ~ - - | - - af''4. - ~ - af''8. - ~ - - | - - \oneVoice - 8. [ - a''8. \p \< - bf''8. ] - ~ - - | - - bf''8. [ - b''8. - c'''8. ] - ~ - - \bar "||" - - \key ef \major - c'''8. [ - cs'''8. \f ] \stopTrillSpan - r8. - + \voiceOne + \override Voice.TrillSpanner.direction = #UP + f'4.~ \startTrillSpan + f'8.~ | + f'4.~ f'8.~ | + f'8. \stopTrillSpan } - - % RH voice 2 \new Voice { - \voiceTwo - \override Voice.TrillSpanner #'direction = #down - d''4. \f \startTrillSpan - ~ - d''8. - ~ - - | - - d''4. - ~ - d''8. - ~ - - | - - d''8. \stopTrillSpan - \trillflat - d''4. \startTrillSpan - ~ - - | - - d''4. - ~ - d''8. - ~ - - | - - d''4. - ~ - d''8. - ~ - - | - - d''4. - ~ - d''8. \stopTrillSpan - ~ - - | - - \trillflat - d''4. \startTrillSpan - ~ - d''8. - ~ - - | - - d''4. - ~ - d''8. - ~ - - | - - \once \override NoteColumn #'ignore-collision = ##t - \once \override NoteHead #'transparent = ##t - \once \override Dots #'transparent = ##t - \once \override Stem #'transparent = ##t - d''8. \stopTrillSpan - s4. - - | - - s8. - s8. - + \voiceTwo + \override Voice.TrillSpanner.direction = #DOWN + bf8.[ bf8. bf8.] | + bf8.[ bf8. bf8.] | + bf8. } - - >> - - % LH staff - \new Staff { - \clef bass - \key c \major - \time 9/16 - - r8. - r8. - 8 [ ( - 16 ] ) - - | - - 4. - \clef treble - c''8 [ ( - b'16 ] ) - - | - - b'4. - c''8 [ ( - b'16 ] ) - - | - - b'8. [ - b'8. - b'8. ] - - | - - b'8. [ - bf'8. ] - \clef bass - 8 [ ( - 16 ] ) - - | - - 4. - \clef treble - f'8 [ ( - bf16 ] ) - - | - - << - - \new Voice { - \voiceOne - \override Voice.TrillSpanner #'direction = #up - f'4. \startTrillSpan - ~ - f'8. - ~ - - | - - f'4. - ~ - f'8. - ~ - - | - - f'8. \stopTrillSpan - } - - \new Voice { - \voiceTwo - \override Voice.TrillSpanner #'direction = #down - bf8. [ - bf8. - bf8. ] - - | - - bf8. [ - bf8. - bf8. ] - - | - - bf8. - } - - >> - - \oneVoice - r8. - r8. - - | - - r8. - r8. - r8. - \clef bass - - | - - \key ef \major - r8. - r8. - r8. - - } - + >> + \oneVoice + r8. r8. | + r8. r8. r8. + \clef bass + | + \key ef \major + r8. r8. r8. + } >>