* input/mutopia/W.A.Mozart/mozart-hrn-3.ly: Mozart died in 1791

[lilypond.git] / input / test / cue-notes.ly

diff --git a/input/test/cue-notes.ly b/input/test/cue-notes.ly
index e0ab34c53127ea302bf331c631097c61b40fed18..9d63c5629364c4913e7454c84ce626620cc41165 100644 (file)
--- a/input/test/cue-notes.ly
+++ b/input/test/cue-notes.ly
@@ -1,42 +1,48 @@
-\version "1.7.6"
-\header {
-
-    texidoc = "Cue notes should be set in smaller type. Cue clefs are
-usually not restored explicitly."
-
+\version "2.1.30"
+% TODO: check to see if this example can be simplified using \small
+% or \tiny.
+\header { texidoc = "@cindex Cue Notes
+Cue notes are typeset in a smaller font. "
+%  Cue clefs are usually not restored explicitly. "
 }
 
 
 \score {
   \notes
    {
-       \property Staff.instrument = #"Horn in F"
-       \property Score.skipBars = ##t
+       \set Staff.instrument = #"Horn in F"
+       \set Score.skipBars = ##t
        R1*21
-    <
+    <<
        {
-           \property Staff.MultiMeasureRest \override #'staff-position = #-6
+           \once \override Staff.MultiMeasureRest  #'staff-position = #-6
            R1
-           \property Voice.MultiMeasureRest \revert #'staff-position
        }
-     \context Voice = cue { s2
+     \new Voice { s2
        \clef tenor
 
        %% this should probably be put into an identifier.
-       \property Staff.fontSize = #-1
-       \property Voice.Stem \override #'length = #5.5
-       \property Voice.Beam \override #'thickness = #0.384
-       \property Voice.Beam \override #'space-function =
+       \set Staff.fontSize = #-1
+       \override Stem  #'length = #5.5
+       \override Beam  #'thickness = #0.384
+       \override Beam  #'space-function =
           #(lambda (beam mult) (* 0.8 (Beam::space_function beam mult)))
 
-       r8^"Bsn." c'8 [f'8 f'8]
-       \property Staff.fontSize\unset
-       \property Staff . Clef = \turnOff
+       r8^"Bsn." c'8  f'8[ f'8]
+
+% note: the clef should be cancelled from the cue.  
+%  this is under debate; I don't think it should.  - Graham
+
+% if you want to cancel it in the main part, uncomment the following:
+%       \set Staff.Clef = \turnOff
+                           
+       \unset Staff.fontSize 
+
        \clef treble
-     } >
+     } >>
    c'8^"Horn" cis'
-   \property Staff.Clef \unset
+   \unset Staff.Clef 
    eis'4 fis'4
  }
- \paper { linewidth = -1 }
-}%% new-chords-done %%
+ \paper { raggedright = ##t}
+}