]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/new/simultaneous-headword.ly
Change keep-inside-line defaults to true.
[lilypond.git] / Documentation / snippets / new / simultaneous-headword.ly
index 71574f738fa469a53d8b5dcf6f686a2360c799d4..caff63a477aea94a579b1b81a7ac5226615743a8 100644 (file)
@@ -1,20 +1,12 @@
-\version "2.12.0"
+\version "2.13.36"
 \include "english.ly"
 #(set-global-staff-size 15)
-\paper{
-  ragged-right=##t
-  line-width=17\cm
-  indent=0\cm
+\paper {
+  ragged-right = ##t
+  line-width = 17\cm
+  indent = 0\cm
 }
 
-\layout {
-  \context { \Score
-    \override PaperColumn #'keep-inside-line = ##t
-    \override NonMusicalPaperColumn #'keep-inside-line = ##t
-  }
-}
-
-
 \header {
   lsrtags = "headwords"
   texidoc = ""
 % 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
+  \new Staff <<
+    \clef treble
+    \key c \major
+    \time 9/16
+    \set Score.currentBarNumber = #108
 
-      % RH voice 1
-      \new Voice {
+    % RH voice 1
+    \new Voice {
 
-         \voiceOne
-         s4.
-         s8.
+      \voiceOne
+      s4.
+      s8.
 
-         |
+      |
 
-         s4.
-         a''8 \p \> [ (
-         g''16 ] )
+      s4.
+      a''8 \p \> [ (
+      g''16 ] )
 
-         |
+      |
 
-         g''4.
-         af''8 [ (
-         g''16 ] )
+      g''4.
+      af''8 [ (
+      g''16 ] )
 
-         |
+      |
 
-         g''8. [
-         g''8.
-         g''8. \pp ]
+      g''8. [
+      g''8.
+      g''8. \pp ]
 
-         |
+      |
 
-         g''8. [
-         af''8.
-         af''8. ]
+      g''8. [
+      af''8.
+      af''8. ]
 
-         |
+      |
 
-         af''8. [
-         af''8.
-         af''8. ]
+      af''8. [
+      af''8.
+      af''8. ]
 
-         |
-         \break
+      |
+      \break
 
-         \trillflat
-         af''4. \startTrillSpan
-         ~
-         af''8.
-         ~
+      \trillFlat
+      af''4. \startTrillSpan
+      ~
+      af''8.
+      ~
 
-         |
+      |
 
-         af''4.
-         ~
-         af''8.
-         ~
+      af''4.
+      ~
+      af''8.
+      ~
 
-         |
+      |
 
-         \oneVoice
-         <af'' d''>8. [
-         a''8. \p \<
-         bf''8. ]
-         ~
+      \oneVoice
+      <af'' d''>8. [
+      a''8. \p \<
+      bf''8. ]
+      ~
 
-         |
+      |
 
-         bf''8. [
-         b''8.
-         c'''8. ]
-         ~
+      bf''8. [
+      b''8.
+      c'''8. ]
+      ~
 
-         \bar "||"
+      \bar "||"
 
-         \key ef \major
-         c'''8. [
-         cs'''8. \f ] \stopTrillSpan
-         r8.
+      \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.
-         ~
+    % RH voice 2
+    \new Voice {
+      \voiceTwo
+      \override Voice.TrillSpanner #'direction = #DOWN
+      d''4. \f \startTrillSpan
+      ~
+      d''8.
+      ~
 
-         |
+      |
 
-         d''4.
-         ~
-         d''8.
-         ~
+      d''4.
+      ~
+      d''8.
+      ~
 
-         |
+      |
 
-         d''8. \stopTrillSpan
-         \trillflat
-         d''4. \startTrillSpan
-         ~
+      d''8. \stopTrillSpan
+      \trillFlat
+      d''4. \startTrillSpan
+      ~
 
-         |
+      |
 
-         d''4.
-         ~
-         d''8.
-         ~
+      d''4.
+      ~
+      d''8.
+      ~
 
-         |
+      |
 
-         d''4.
-         ~
-         d''8.
-         ~
+      d''4.
+      ~
+      d''8.
+      ~
 
-         |
+      |
 
-         d''4.
-         ~
-         d''8. \stopTrillSpan
-         ~
+      d''4.
+      ~
+      d''8. \stopTrillSpan
+      ~
 
-         |
+      |
 
-         \trillflat
-         d''4. \startTrillSpan
-         ~
-         d''8.
-         ~
+      \trillFlat
+      d''4. \startTrillSpan
+      ~
+      d''8.
+      ~
 
-         |
+      |
 
-         d''4.
-         ~
-         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.
+      \once \override NoteColumn #'ignore-collision = ##t
+      \hideNotes
+      d''8. \stopTrillSpan
+      s4.
 
-         |
+      |
 
-         s8.
-         s8.
+      s8.
+      s8.
 
-      }
+    }
 
-   >>
+  >>
 
-   % LH staff
-   \new Staff {
-      \clef bass
-      \key c \major
-      \time 9/16
+  % LH staff
+  \new Staff {
+    \clef bass
+    \key c \major
+    \time 9/16
 
-      r8.
-      r8.
-      <c! c,!>8 [ (
-      <g, g,,>16 ] )
+    r8.
+    r8.
+    <c! c,!>8 [ (
+    <g, g,,>16 ] )
 
-      |
+    |
 
-      <g, g,,>4.
-      \clef treble
-      c''8 [ (
-      b'16 ] )
+    <g, g,,>4.
+    \clef treble
+    c''8 [ (
+    b'16 ] )
 
-      |
+    |
 
-      b'4.
-      c''8 [ (
-      b'16 ] )
+    b'4.
+    c''8 [ (
+    b'16 ] )
 
-      |
+    |
 
-      b'8. [
-      b'8.
-      b'8. ]
+    b'8. [
+    b'8.
+    b'8. ]
 
-      |
+    |
 
-      b'8. [
-      bf'8. ]
-      \clef bass
-      <f f,>8 [ (
-      <bf, bf,,>16 ] )
+    b'8. [
+    bf'8. ]
+    \clef bass
+    <f f,>8 [ (
+    <bf, bf,,>16 ] )
 
-      |
+    |
 
-      <bf, bf,,>4.
-      \clef treble
-      f'8 [ (
-      bf16 ] )
+    <bf, bf,,>4.
+    \clef treble
+    f'8 [ (
+    bf16 ] )
 
-      |
+    |
 
-      <<
+    <<
 
-         \new Voice {
-            \voiceOne
-            \override Voice.TrillSpanner #'direction = #up
-            f'4. \startTrillSpan
-            ~
-            f'8.
-            ~
+      \new Voice {
+        \voiceOne
+        \override Voice.TrillSpanner #'direction = #UP
+        f'4. \startTrillSpan
+        ~
+        f'8.
+        ~
 
-            |
+        |
 
-            f'4.
-            ~
-            f'8.
-            ~
+        f'4.
+        ~
+        f'8.
+        ~
 
-            |
+        |
 
-            f'8. \stopTrillSpan
-         }
+        f'8. \stopTrillSpan
+      }
 
-         \new Voice {
-            \voiceTwo
-            \override Voice.TrillSpanner #'direction = #down
-            bf8. [
-            bf8.
-            bf8. ]
+      \new Voice {
+        \voiceTwo
+        \override Voice.TrillSpanner #'direction = #DOWN
+        bf8. [
+        bf8.
+        bf8. ]
 
-            |
+        |
 
-            bf8. [
-            bf8.
-            bf8. ]
+        bf8. [
+        bf8.
+        bf8. ]
 
-            |
+        |
 
-            bf8.
-         }
+        bf8.
+      }
 
-      >>
+    >>
 
-      \oneVoice
-      r8.
-      r8.
+    \oneVoice
+    r8.
+    r8.
 
-      |
+    |
 
-      r8.
-      r8.
-      r8.
-      \clef bass
+    r8.
+    r8.
+    r8.
+    \clef bass
 
-      |
+    |
 
-      \key ef \major
-      r8.
-      r8.
-      r8.
+    \key ef \major
+    r8.
+    r8.
+    r8.
 
-   }
+  }
 
 >>