]> git.donarmstrong.com Git - lilypond.git/commitdiff
LSR update.
authorGraham Percival <graham@percival-music.ca>
Mon, 12 Feb 2007 08:41:08 +0000 (00:41 -0800)
committerGraham Percival <graham@percival-music.ca>
Mon, 12 Feb 2007 08:41:08 +0000 (00:41 -0800)
17 files changed:
input/lsr/chords/chord-name-exceptions.ly
input/lsr/chords/chord-name-major7.ly
input/lsr/connecting/laissez-vibrer-ties.ly
input/lsr/contemporary/clusters.ly
input/lsr/parts/rehearsal-mark-numbers.ly
input/lsr/parts/tag-filter.ly
input/lsr/repeats/volta-multi-staff.ly
input/lsr/spacing/Page-layout-twopass.ly
input/lsr/spacing/Proportional-spacing.ly
input/lsr/spacing/alignment-vertical-spacing.ly
input/lsr/spacing/page-layout-twopass.ly
input/lsr/spacing/page-spacing.ly
input/lsr/spacing/proportional-spacing.ly
input/lsr/staff/staff-line-positions.ly
input/lsr/text/font-family-override.ly
input/lsr/vocal/ambitus.ly
input/lsr/vocal/lyric-combine.ly

index b8f25b877910ba44c51543431fe71cfb0309cee4..7713f3b0b58b4f6dd0dfde25580bd2e09f4f75f0 100644 (file)
@@ -5,21 +5,24 @@ The property @{chordNameExceptions@} can used to store a list of special notatio
 " }
 
 % 7sus4 denoted with ^7 wahh
-chExceptionMusic =  {
-    <c f g bes>1-\markup { \super "7" "wahh" }}
+chExceptionMusic = {
+  <c f g bes>1-\markup { \super "7" "wahh" }
+}
 
-                               % add to existing exceptions.
+% add to existing exceptions.
 chExceptions = #(append
-                (sequential-music-to-chord-exceptions chExceptionMusic #t)
-                ignatzekExceptions)
+  (sequential-music-to-chord-exceptions chExceptionMusic #t)
+  ignatzekExceptions)
 
 theMusic = \chordmode {
-    c:7sus4 c:dim7/+f
-    \set chordNameExceptions = #chExceptions
-    c:7sus4 c:dim7/+f
+  c:7sus4 c:dim7/+f
+  \set chordNameExceptions = #chExceptions
+  c:7sus4 c:dim7/+f
 }
 
-\layout { ragged-right = ##t }
+\layout {
+  ragged-right = ##t 
+}
 
 << \context ChordNames \theMusic
    \context Voice \theMusic
index 4c8785a6388af6285e5bbb0f76835329b561c131..992e25c1affabab84c643d16d0a84decc78902bf 100644 (file)
@@ -5,7 +5,7 @@ The layout of the major 7 can be tuned with @{majorSevenSymbol@}
 " }
 
 \chords {
-    c:7+
-    \set majorSevenSymbol = \markup { "j7" }
-    c:7+
+  c:7+
+  \set majorSevenSymbol = \markup { "j7" }
+  c:7+
 }
index a589c6e8fe982c57a699e0fc7bca9ccccc2e7cd6..908ad5774b07a83e6ee78f0899a87c5eb4fa1aee 100644 (file)
@@ -17,10 +17,10 @@ l.v. ties should avoid dots and staff lines, similar to normal ties.  They have
 
   <c d e f>4\laissezVibrer r
   \override LaissezVibrerTieColumn #'tie-configuration
-  = #'((-7 . -1)
-       (-5 . -1)
-       (-3 . 1)
-       (-1 . 1))
+    = #'((-7 . -1)
+         (-5 . -1)
+         (-3 . 1)
+         (-1 . 1))
   <c d e f>4\laissezVibrer r
 }
 
index ea45a8c05941f24c91ae5b430199bb833c7cf34d..12336f55f01a13eb5e8d1b061fb2920f97a18b64 100644 (file)
@@ -4,7 +4,9 @@
 Clusters are a device to denote that a complete range of notes is to be played.
 " }
 
-\layout { ragged-right = ##t }
+\layout {
+  ragged-right = ##t 
+}
 
 fragment = \relative c' {
   c4 f4 <e d'>4
index 74d2cfeede9c4918a0b9a532f23c3d33f3e055fd..f0cb45e370bc0437f4786a4aab05181fa9b0ce4e 100644 (file)
@@ -5,7 +5,9 @@ Marks can be printed as numbers.
 By setting @{markFormatter@} we may choose a different style of mark printing. Also, marks can be specified manually, with a markup argument.
 " }
 
-\paper { ragged-right = ##t } 
+\paper {
+  ragged-right = ##t 
+}
 
 \relative c''{
   \set Score.markFormatter = #format-mark-numbers 
@@ -13,11 +15,11 @@ By setting @{markFormatter@} we may choose a different style of mark printing. A
   c1 | \mark \default
   c1 | \mark \default
   \set Score.markFormatter
-  = #(lambda (mark  context)
-      (make-box-markup (format-mark-numbers mark context)))
+    = #(lambda (mark  context)
+        (make-box-markup (format-mark-numbers mark context)))
   c1 | \mark \default
   \set Score.markFormatter
-  = #(lambda (mark  context)
-      (make-circle-markup (format-mark-numbers mark context)))
+    = #(lambda (mark  context)
+        (make-circle-markup (format-mark-numbers mark context)))
   c1 | \mark \default
 }
index 28491f5ccd5a70c24fc43ac6fa3e3c841973a0e1..0478d2df58c21c48900a8c079615ff8e2a84de9e 100644 (file)
@@ -4,11 +4,12 @@
 The @{\tag@} command marks music expressions with a name. These tagged expressions can be filtered out later. This mechanism can be used to make different versions of the same music. In this example, the top stave displays the music expression with all tags included. The bottom two staves are filtered: the part has cue notes and fingerings, but the score has not.
 " }
 
-\layout { ragged-right= ##t }
+\layout {
+  ragged-right= ##t 
+}
 
 common =
 \relative c''  {
-
   c1
   \relative c' <<
     \tag #'part <<
@@ -23,7 +24,6 @@ common =
 }
 
 
-
 \simultaneous { 
   \new Staff {
     \set Staff.instrumentName = #"both"
index 979de2a1f737b0aec6c41095db715d8c5c624347..76207fe51d4492ed9462b9a89dc10001937a8e17 100644 (file)
@@ -4,8 +4,13 @@
 By setting @{voltaOnThisStaff@}, repeats can be put also over other staves than the topmost one in a score.
 " }
 
-\layout { ragged-right = ##t }
-vmus =  { \repeat volta 2 c1 \alternative { d e } } 
+\layout {
+  ragged-right = ##t 
+}
+
+vmus =  {
+  \repeat volta 2 c1 \alternative { d e } 
+} 
 
 \relative c'' <<
   \new StaffGroup <<
index 2812a66c19c11385abff977d5a102ff986e9bc09..7e85403a5e371f549f08178794dbc93d8d1ea7fc 100644 (file)
@@ -9,6 +9,7 @@ Page breaking details can be stored for later reference.
 \paper  {
   #(define write-page-layout #t)
 }
+
 bla = \new Staff {
   c1 c1
   \break
@@ -31,4 +32,3 @@ tweakFileName = #(format "~a-page-layout.ly" (ly:parser-output-name parser))
 #(newline)
 
 #(ly:progress "Contents of: '~a'" (ly:gulp-file tweakFileName))
-
index 6497b235ff072f1e8524af861824b7c8207dce48..20efc3967172b998b145c02ea457194bb163b797 100644 (file)
@@ -4,12 +4,14 @@
 Proportional notation can be created by setting @{proportionalNotationDuration@}. Notes will be spaced proportional to the distance for the given duration.
 " }
 
-\paper { ragged-right = ##t }
+\paper {
+  ragged-right = ##t 
+}
 
 \relative c''
 <<
   \set Score.proportionalNotationDuration = #(ly:make-moment 1 16)
-  \new Staff { c8[ c c c c c]  c4 c2 r2 }
-  \new Staff { c2  \times 2/3 { c8 c c } c4 c1 }
+  \new Staff { c8[ c c c c c] c4 c2 r2 }
+  \new Staff { c2 \times 2/3 { c8 c c } c4 c1 }
 >>
 
index 2a25a2d31a0c5cc46fc5b2ca6c2c3002639c43c6..13811cc207d806990f918a129b1fd5d376c96458 100644 (file)
@@ -14,9 +14,12 @@ For technical reasons, @{overrideProperty@} has to be used for setting propertie
 \new StaffGroup <<
   \new Staff {
     c1\break 
-    c\break c\break
+    c\break 
+    c\break
+  }
+  \new Staff { 
+    c1 c c 
   }
-  \new Staff { c1 c c }
   \new PianoStaff <<
     \new Voice  {
       \set PianoStaff.instrumentName = #"piano"
@@ -24,15 +27,15 @@ For technical reasons, @{overrideProperty@} has to be used for setting propertie
       c1_"normal"
       
       \overrideProperty
-      #"Score.NonMusicalPaperColumn"
-      #'line-break-system-details
-      #'((fixed-alignment-extra-space . 15))
+        #"Score.NonMusicalPaperColumn"
+        #'line-break-system-details
+        #'((fixed-alignment-extra-space . 15))
       c_"fixed-aligment-extra-space"
 
       \overrideProperty
-      #"Score.NonMusicalPaperColumn"
-      #'line-break-system-details
-      #'((alignment-extra-space . 15))
+        #"Score.NonMusicalPaperColumn"
+        #'line-break-system-details
+        #'((alignment-extra-space . 15))
       c_"aligment-extra-space"
     }
     { c1 c c }
index 2812a66c19c11385abff977d5a102ff986e9bc09..7e85403a5e371f549f08178794dbc93d8d1ea7fc 100644 (file)
@@ -9,6 +9,7 @@ Page breaking details can be stored for later reference.
 \paper  {
   #(define write-page-layout #t)
 }
+
 bla = \new Staff {
   c1 c1
   \break
@@ -31,4 +32,3 @@ tweakFileName = #(format "~a-page-layout.ly" (ly:parser-output-name parser))
 #(newline)
 
 #(ly:progress "Contents of: '~a'" (ly:gulp-file tweakFileName))
-
index 5a9a655b94476965cd24598de2f976f0f817c88b..916c895dc95ade6f366e094e62e986e9c2d28b2c 100644 (file)
@@ -10,64 +10,67 @@ By setting @{annotate-spacing@}, we can see the effect of each property.
 
 #(set-global-staff-size 11)
 
-\book {
-  \score {
-    \relative c'' \new PianoStaff <<
-      \new Voice  {
-       c1_"followed by default spacing"\break
-       c\break
+ \book {
+   \score {
+     \relative c'' \new PianoStaff <<
+      \new Voice {
+        c1_"followed by default spacing"
+        \break
+        c
+        \break
 
-       \overrideProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
-       #'((Y-extent . (-30 . 10)))
-       c_"Big bounding box (property Y-extent)"\break
+        \overrideProperty
+          #"Score.NonMusicalPaperColumn"
+          #'line-break-system-details
+          #'((Y-extent . (-30 . 10)))
+        c_"Big bounding box (property Y-extent)"
+        \break
 
-       \overrideProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
-       #'((refpoint-Y-extent . (-37 . -10)))
-       c_\markup {
-         \column {
-           "Refpoints further apart (property refpoint-Y-extent)."
-           "Stretchable space runs between refpoints"
-         }
-       }
-       
-       \break
-       
-       \overrideProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
-       #'((next-padding . 10))
+        \overrideProperty
+          #"Score.NonMusicalPaperColumn"
+          #'line-break-system-details
+          #'((refpoint-Y-extent . (-37 . -10)))
+        c_\markup {
+          \column {
+            "Refpoints further apart (property refpoint-Y-extent)."
+            "Stretchable space runs between refpoints" } }
+        \break
 
-       c_"Followed by padding, ie unstretchable space. (property next-padding)" \break
-       \overrideProperty
-       #"Score.NonMusicalPaperColumn"
-       #'line-break-system-details
-       #'((next-space . 20))
-       c_"Followed by stretchable space (property next-space)"\break
-       c\break
-       \overrideProperty
-       #"Score.NonMusicalPaperColumn" #'line-break-system-details
-       #'((bottom-space . 25.0)) 
-       c_"25 staff space to the bottom of the page. (property bottom-space)"\break
+        \overrideProperty
+          #"Score.NonMusicalPaperColumn"
+          #'line-break-system-details
+          #'((next-padding . 10))
+        c_"Followed by padding, ie unstretchable space (property next-padding)."
+        \break
 
+        \overrideProperty
+         #"Score.NonMusicalPaperColumn"
+          #'line-break-system-details
+          #'((next-space . 20))
+        c_"Followed by stretchable space (property next-space)"
+        \break
+        c
+        \break
 
+        \overrideProperty
+          #"Score.NonMusicalPaperColumn"
+          #'line-break-system-details
+          #'((bottom-space . 25.0))
+        c_"25 staff space to the bottom of the page (property bottom-space)."
+        \break
       }
-      { c1 c c c c c c c }
-    >>
-  }
-  \paper {
-    ragged-last-bottom = ##f
-    annotate-spacing = ##t
-    between-system-space = 1.0
-    #(set! text-font-defaults
-      (acons
-       'font-size 6
-       text-font-defaults)
-      
-    )
+       { c1 c c c c c c c }
+     >>
+   }
+
+   \paper {
+     ragged-last-bottom = ##f
+     annotate-spacing = ##t
+     between-system-space = 1.0
+     #(set! text-font-defaults
+        (acons
+         'font-size 6
+         text-font-defaults))
   }
 }
 
index 6497b235ff072f1e8524af861824b7c8207dce48..20efc3967172b998b145c02ea457194bb163b797 100644 (file)
@@ -4,12 +4,14 @@
 Proportional notation can be created by setting @{proportionalNotationDuration@}. Notes will be spaced proportional to the distance for the given duration.
 " }
 
-\paper { ragged-right = ##t }
+\paper {
+  ragged-right = ##t 
+}
 
 \relative c''
 <<
   \set Score.proportionalNotationDuration = #(ly:make-moment 1 16)
-  \new Staff { c8[ c c c c c]  c4 c2 r2 }
-  \new Staff { c2  \times 2/3 { c8 c c } c4 c1 }
+  \new Staff { c8[ c c c c c] c4 c2 r2 }
+  \new Staff { c2 \times 2/3 { c8 c c } c4 c1 }
 >>
 
index d6be6e7f4ca0a59f142b55cd608ebc4646486c51..ed56b7115da0202c62d7ed48cb8009243a041a74 100644 (file)
@@ -4,7 +4,7 @@
 The vertical positions of staff lines may be specified individually, by setting the @{line-positions@} property of the StaffSymbol.
 " }
 
-\new Staff \relative c'  {
+\new Staff \relative c' {
   \override Staff.StaffSymbol #'line-positions = #'(-7 -2 0 3 9)
   g c f b e a
 }
index 606d53e70cc16262905f6ed93c53e64c18a79e83..17b403a3e1b7802e03b4b0df2ef7543d7b20559c 100644 (file)
@@ -4,26 +4,28 @@
 The default font families for text can be overridden with @{make-pango-font-tree@}
 " }
 
-\paper  {
+\paper {
   % change for other default global staff size. 
   myStaffSize = #20
   %{
-  run
-      lilypond -dshow-available-fonts blabla
-  to show all fonts available in the process log.  
-    %}
+     run
+         lilypond -dshow-available-fonts blabla
+     to show all fonts available in the process log.  
+  %}
 
-    #(define fonts
+  #(define fonts
     (make-pango-font-tree "Times New Roman"
                           "Nimbus Sans"
                           "Luxi Mono"
-;;     "Helvetica"
-;;     "Courier"
+;;                        "Helvetica"
+;;                        "Courier"
      (/ myStaffSize 20)))
 }
 
 \relative {
-  c'^\markup { roman: foo \bold bla \italic bar \italic \bold baz }
+  c'^\markup {
+    roman: foo \bold bla \italic bar \italic \bold baz 
+  }
   c'_\markup {
     \override #'(font-family . sans)
     {
index 2af5354380cd04ff2521c13280ab44934b96d269..1e79eb6a3133d1a9ca9e9c6591763e8b5341e625 100644 (file)
@@ -7,20 +7,22 @@ Accidentals only show up if they're not part of key signature.  @{AmbitusNoteHea
 " }
 
 \layout {
-    ragged-right = ##t
-    \context {
-       \Voice
-       \consists Ambitus_engraver
-    }
+  ragged-right = ##t
+  \context {
+    \Voice
+    \consists Ambitus_engraver
+  }
 }
 
 \relative
 <<
-    \new Staff {  \time  2/4 c4 f' }
-    \new Staff \relative {
-       \time  2/4
-       \key d \major
-       cis as'
-    }
+  \new Staff {
+    \time  2/4 c4 f' 
+  }
+  \new Staff \relative {
+    \time  2/4
+    \key d \major
+    cis as'
+  }
 >>
 
index bcdff195674be7c99d53594729f92dfca6ac1a76..2fbc564bf2e0a5d845d79f88d706341c0ea8e2c3 100644 (file)
@@ -9,8 +9,10 @@ With the @{\lyricsto@} mechanism, individual lyric lines can be associated with
     \autoBeamOff
     c2( d4) e8[ c b c] f4
   }
-  \lyricsto "bla"  \new Lyrics  { bla ab blob blob }
-  \lyricsto "bla"  \new Lyrics  {
+  \lyricsto "bla"  \new Lyrics { 
+    bla ab blob blob 
+  }
+  \lyricsto "bla"  \new Lyrics {
     bla 
 
     \set ignoreMelismata = ##t
@@ -24,7 +26,7 @@ With the @{\lyricsto@} mechanism, individual lyric lines can be associated with
     blob
   }
   
-  \lyricsto "bla"  \new Lyrics  {
+  \lyricsto "bla"  \new Lyrics {
     nes ted lyrics voice with more words than no tes
   }
 >>