]> git.donarmstrong.com Git - lilypond.git/commitdiff
LSR update.
authorGraham Percival <graham@percival-music.ca>
Fri, 7 Dec 2007 03:42:12 +0000 (19:42 -0800)
committerGraham Percival <graham@percival-music.ca>
Fri, 7 Dec 2007 03:42:12 +0000 (19:42 -0800)
input/lsr/ancient/custodes.ly [new file with mode: 0644]
input/lsr/editorial/creating-blank-staves.ly [new file with mode: 0644]
input/lsr/expressive/creating-text-spanners.ly [new file with mode: 0644]
input/lsr/pitches/ambiti-multiple-voices.ly [new file with mode: 0644]
input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note,-including-naturals.ly [deleted file]
input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly [new file with mode: 0644]
input/lsr/staff/creating-blank-staves.ly [new file with mode: 0644]
input/lsr/text/creating-text-spanners.ly [new file with mode: 0644]

diff --git a/input/lsr/ancient/custodes.ly b/input/lsr/ancient/custodes.ly
new file mode 100644 (file)
index 0000000..422ad99
--- /dev/null
@@ -0,0 +1,35 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+Custodes may be engraved in various styles.
+" }
+
+\layout {
+  \context {
+    \Staff
+    \consists Custos_engraver
+  }
+  ragged-right = ##t
+}
+
+{
+  \override Staff.Custos  #'neutral-position = #4
+
+  \override Staff.Custos  #'style = #'hufnagel
+  c'1^"hufnagel"
+  \break < d' a' f''>1
+
+  \override Staff.Custos  #'style = #'medicaea
+  c'1^"medicaea"
+  \break < d' a' f''>1
+
+  \override Staff.Custos  #'style = #'vaticana
+  c'1^"vaticana"
+  \break < d' a' f''>1
+
+  \override Staff.Custos  #'style = #'mensural
+  c'1^"mensural"
+  \break < d' a' f''>1
+}
+
diff --git a/input/lsr/editorial/creating-blank-staves.ly b/input/lsr/editorial/creating-blank-staves.ly
new file mode 100644 (file)
index 0000000..00630f8
--- /dev/null
@@ -0,0 +1,43 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+To create blank staves, you must generate empty measures, removing also
+from the @code{Score} context the @code{Bar_number_engraver}, and from
+the @code{Staff} context the @code{Time_signature_engraver}, the
+@code{Clef_engraver} and the @code{Bar_engraver}. 
+" }
+
+\header {
+  tagline = ""
+}
+
+#(set-global-staff-size 20)
+
+\score {
+  { 
+    \repeat unfold 12 { s1 \break } 
+  }
+  \layout {
+    indent = 0\in
+    \context {
+      \Staff
+      \remove Time_signature_engraver
+      \remove Clef_engraver
+      \remove Bar_engraver
+    }
+    \context {
+      \Score
+      \remove Bar_number_engraver
+    }
+  }
+}
+
+\paper {
+  #(set-paper-size "letter")
+  raggedlastbottom = ##f
+  linewidth = 7.5\in
+  leftmargin = 0.5\in
+  bottommargin = 0.25\in
+  topmargin = 0.25\in
+}
diff --git a/input/lsr/expressive/creating-text-spanners.ly b/input/lsr/expressive/creating-text-spanners.ly
new file mode 100644 (file)
index 0000000..25e0d7a
--- /dev/null
@@ -0,0 +1,41 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+The \\startTextSpan and \\stopTextSpan commands give you the ability to
+create text spanners as easily as pedals indications or octavations.
+Override some properties of the TextSpanner object to modify its
+output.
+" }
+
+\relative c''{
+    \override TextSpanner  #'edge-text = #'("bla" . "blu")
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+    \override TextSpanner  #'dash-period = #2
+    \override TextSpanner  #'dash-fraction = #0.0
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+    \revert TextSpanner #'style
+    \override TextSpanner  #'style = #'dashed-line
+    \override TextSpanner  #'edge-height = #'(1 . -2)
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+
+    \set Staff.middleCPosition = #-13
+
+    \override TextSpanner  #'dash-period = #10
+    \override TextSpanner  #'dash-fraction = #.5
+    \override TextSpanner  #'thickness = #10
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+    \set Staff.middleCPosition = #-6   
+}
+
diff --git a/input/lsr/pitches/ambiti-multiple-voices.ly b/input/lsr/pitches/ambiti-multiple-voices.ly
new file mode 100644 (file)
index 0000000..2af6007
--- /dev/null
@@ -0,0 +1,43 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+If you have multiple voices in a single staff and you want a single
+ambitus per staff rather than per voice, add the
+@code{Ambitus_engraver} to the @code{Staff} context rather than to the
+@code{Voice} context.
+
+This example uses one advanced feature,
+
+
+@code{ \\override Ambitus #'X-offset = #-1.0 }
+
+
+
+This code moves the ambitus to the left.  The same effect could have
+been achieved with @code{extra-offset}, but then the formatting system
+would not reserve space for the moved object.
+
+
+
+" }
+
+\new Staff \with {
+  \consists "Ambitus_engraver"
+}
+<<
+  \new Voice \with {
+    \remove "Ambitus_engraver"
+  } \relative c'' {
+    \override Ambitus #'X-offset = #-1.0
+    \voiceOne
+    c4 a d e f2
+  }
+  \new Voice \with {
+    \remove "Ambitus_engraver"
+  } \relative c' {
+    \voiceTwo
+    es4 f g as b2
+  }
+>>
+
diff --git a/input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note,-including-naturals.ly b/input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note,-including-naturals.ly
deleted file mode 100644 (file)
index ce3e12f..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-%%  Do not edit this file; it is auto-generated from LSR!
-\version "2.10.12"
-
-\header { texidoc = "
-In early XXth century works, starting with Schönberg, Berg and Webern
-(the \"second\" Viennese school), every pitch in the twelve- note scale
-has to be regarded as equal, without any hierarchy such as the
-classical (tonal) degrees. Therefore, these composers print one
-accidental for each note, even at natural pitches, to emphasize their
-new approach to music theory and language. This snippet (thanks to Rune
-Zedeler) shows how to achieve such notation rules with LilyPond.
-" }
-
-webernAccidentals = {
-    % the 5s are just "a value different from any accidental"
-    \set Staff.keySignature = #'((0 . 5) (1 . 5) (2 . 5) (3 . 5)
-                                 (4 . 5) (5 . 5) (6 . 5))
-    \set Staff.extraNatural = ##f
-    #(set-accidental-style 'forget)
-}
-
-\layout {
-  \context { \Staff \remove Key_engraver }
-}
-\score {
-  {
-    \webernAccidentals
-    c' dis' cis' cis'
-    c' dis' cis' cis'
-    c' c' dis' des'
-  }
-}
diff --git a/input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly b/input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly
new file mode 100644 (file)
index 0000000..5fb5e0e
--- /dev/null
@@ -0,0 +1,34 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+In early XXth century works, starting with Schönberg, Berg and Webern
+(the \"second\" Viennese school), every pitch in the twelve- note scale
+has to be regarded as equal, without any hierarchy such as the
+classical (tonal) degrees. Therefore, these composers print one
+accidental for each note, even at natural pitches, to emphasize their
+new approach to music theory and language. This snippet shows how to
+achieve such notation rules with LilyPond.
+" }
+
+% thanks to Rune Zedeler for this cool function :)
+
+webernAccidentals = {
+    % the 5s are just "a value different from any accidental"
+    \set Staff.keySignature = #'((0 . 5) (1 . 5) (2 . 5) (3 . 5)
+                                 (4 . 5) (5 . 5) (6 . 5))
+    \set Staff.extraNatural = ##f
+    #(set-accidental-style 'forget)
+}
+
+\layout {
+  \context { \Staff \remove Key_engraver }
+}
+\score {
+  {
+    \webernAccidentals
+    c' dis' cis' cis'
+    c' dis' cis' cis'
+    c' c' dis' des'
+  }
+}
diff --git a/input/lsr/staff/creating-blank-staves.ly b/input/lsr/staff/creating-blank-staves.ly
new file mode 100644 (file)
index 0000000..00630f8
--- /dev/null
@@ -0,0 +1,43 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+To create blank staves, you must generate empty measures, removing also
+from the @code{Score} context the @code{Bar_number_engraver}, and from
+the @code{Staff} context the @code{Time_signature_engraver}, the
+@code{Clef_engraver} and the @code{Bar_engraver}. 
+" }
+
+\header {
+  tagline = ""
+}
+
+#(set-global-staff-size 20)
+
+\score {
+  { 
+    \repeat unfold 12 { s1 \break } 
+  }
+  \layout {
+    indent = 0\in
+    \context {
+      \Staff
+      \remove Time_signature_engraver
+      \remove Clef_engraver
+      \remove Bar_engraver
+    }
+    \context {
+      \Score
+      \remove Bar_number_engraver
+    }
+  }
+}
+
+\paper {
+  #(set-paper-size "letter")
+  raggedlastbottom = ##f
+  linewidth = 7.5\in
+  leftmargin = 0.5\in
+  bottommargin = 0.25\in
+  topmargin = 0.25\in
+}
diff --git a/input/lsr/text/creating-text-spanners.ly b/input/lsr/text/creating-text-spanners.ly
new file mode 100644 (file)
index 0000000..25e0d7a
--- /dev/null
@@ -0,0 +1,41 @@
+%%  Do not edit this file; it is auto-generated from LSR!
+\version "2.10.12"
+
+\header { texidoc = "
+The \\startTextSpan and \\stopTextSpan commands give you the ability to
+create text spanners as easily as pedals indications or octavations.
+Override some properties of the TextSpanner object to modify its
+output.
+" }
+
+\relative c''{
+    \override TextSpanner  #'edge-text = #'("bla" . "blu")
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+    \override TextSpanner  #'dash-period = #2
+    \override TextSpanner  #'dash-fraction = #0.0
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+    \revert TextSpanner #'style
+    \override TextSpanner  #'style = #'dashed-line
+    \override TextSpanner  #'edge-height = #'(1 . -2)
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+
+
+    \set Staff.middleCPosition = #-13
+
+    \override TextSpanner  #'dash-period = #10
+    \override TextSpanner  #'dash-fraction = #.5
+    \override TextSpanner  #'thickness = #10
+    a \startTextSpan
+    b c 
+    a \stopTextSpan
+    \set Staff.middleCPosition = #-6   
+}
+