From 7465462b484630b5d37eb02f93acb5bea99dba3f Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Thu, 6 Dec 2007 19:42:12 -0800 Subject: [PATCH] LSR update. --- input/lsr/ancient/custodes.ly | 35 +++++++++++++++ input/lsr/editorial/creating-blank-staves.ly | 43 +++++++++++++++++++ .../lsr/expressive/creating-text-spanners.ly | 41 ++++++++++++++++++ input/lsr/pitches/ambiti-multiple-voices.ly | 43 +++++++++++++++++++ ...ntals-for-each-note-including-naturals.ly} | 6 ++- input/lsr/staff/creating-blank-staves.ly | 43 +++++++++++++++++++ input/lsr/text/creating-text-spanners.ly | 41 ++++++++++++++++++ 7 files changed, 250 insertions(+), 2 deletions(-) create mode 100644 input/lsr/ancient/custodes.ly create mode 100644 input/lsr/editorial/creating-blank-staves.ly create mode 100644 input/lsr/expressive/creating-text-spanners.ly create mode 100644 input/lsr/pitches/ambiti-multiple-voices.ly rename input/lsr/pitches/{dodecaphonic-style-accidentals-for-each-note,-including-naturals.ly => dodecaphonic-style-accidentals-for-each-note-including-naturals.ly} (84%) create mode 100644 input/lsr/staff/creating-blank-staves.ly create mode 100644 input/lsr/text/creating-text-spanners.ly diff --git a/input/lsr/ancient/custodes.ly b/input/lsr/ancient/custodes.ly new file mode 100644 index 0000000000..422ad99d90 --- /dev/null +++ b/input/lsr/ancient/custodes.ly @@ -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 index 0000000000..00630f8180 --- /dev/null +++ b/input/lsr/editorial/creating-blank-staves.ly @@ -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 index 0000000000..25e0d7aa86 --- /dev/null +++ b/input/lsr/expressive/creating-text-spanners.ly @@ -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 index 0000000000..2af6007a08 --- /dev/null +++ b/input/lsr/pitches/ambiti-multiple-voices.ly @@ -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 similarity index 84% rename from input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note,-including-naturals.ly rename to input/lsr/pitches/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly index ce3e12f5e6..5fb5e0e346 100644 --- 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 @@ -7,10 +7,12 @@ In early XXth century works, starting with Schönberg, Berg and Webern 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. +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) diff --git a/input/lsr/staff/creating-blank-staves.ly b/input/lsr/staff/creating-blank-staves.ly new file mode 100644 index 0000000000..00630f8180 --- /dev/null +++ b/input/lsr/staff/creating-blank-staves.ly @@ -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 index 0000000000..25e0d7aa86 --- /dev/null +++ b/input/lsr/text/creating-text-spanners.ly @@ -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 +} + -- 2.39.5