* 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 d4cf5b5f3d1462b701ad7e42b13a77d1cadd762f..9d63c5629364c4913e7454c84ce626620cc41165 100644 (file)
--- a/input/test/cue-notes.ly
+++ b/input/test/cue-notes.ly
@@ -1,50 +1,48 @@
-\version "1.3.146"
+\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
+   {
+       \set Staff.instrument = #"Horn in F"
+       \set Score.skipBars = ##t
+       R1*21
+    <<
+       {
+           \once \override Staff.MultiMeasureRest  #'staff-position = #-6
+           R1
+       }
+     \new Voice { s2
+       \clef tenor
 
+       %% this should probably be put into an identifier.
+       \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)))
 
-% add cue notes context
-\paper {
-       CueVoiceContext = \translator {
-            \VoiceContext
-            \name CueVoice
-            NoteHead \override #'font-relative-size = #-1
-            Stem \override #'font-relative-size = #-1
-            Beam \override #'font-relative-size = #-1
-            TextScript \override #'font-relative-size = #-1
-            Slur \override #'font-relative-size = #-1
-            Accidentals \override #'font-relative-size = #-1
-       }
-       \translator{ \CueVoiceContext }
-       StaffContext = \translator{\StaffContext
-               \accepts "CueVoice"
-       } 
-}
+       r8^"Bsn." c'8  f'8[ f'8]
 
-\paper {
-    StaffContext = \translator{
-       \StaffContext
-       \remove "Time_signature_engraver"
-    }
-    \translator { \StaffContext }   
-    \translator{
-      \VoiceContext
-      \remove "Auto_beam_engraver"
-     }
-     \translator {
-         \ScoreContext
-         barScriptPadding = #2.0
-         markScriptPadding = #4.0
-         barNumberScriptPadding = #15
-     }
-}
+% note: the clef should be cancelled from the cue.  
+%  this is under debate; I don't think it should.  - Graham
 
-\score{
-  \notes \relative c' \context Voice
-      {
-        c4 c4 g'2 
-        \context CueVoice { r2 [f16 f f f] [a f f f] }
-       c4 c4 g'2
-      }
-}
+% 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'
+   \unset Staff.Clef 
+   eis'4 fis'4
+ }
+ \paper { raggedright = ##t}
+}