* scm/new-font.scm: new file. Tree based font lookup.

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

diff --git a/input/test/cue-notes.ly b/input/test/cue-notes.ly
index 7dba0a417ef81d589effd0bcd5bf01a395a2035d..9d63c5629364c4913e7454c84ce626620cc41165 100644 (file)
--- a/input/test/cue-notes.ly
+++ b/input/test/cue-notes.ly
@@ -1,46 +1,48 @@
-
-% add cue notes context
-\paper {
-       CueVoiceContext = \translator {
-            \VoiceContext
-            \name CueVoice;
-            basicNoteHeadProperties \push #'font-size = #-1
-            basicStemProperties \push #'font-size = #-1
-            basicBeamProperties \push #'font-size = #-1
-            basicTextScriptProperties \push #'font-size = #-1
-            basicSlurProperties \push #'font-size = #-1
-            basicLocalKeyProperties \push #'font-size = #-1
-       };
-       \translator{ \CueVoiceContext }
-       StaffContext = \translator{\StaffContext
-               \accepts "CueVoice";
-       }; 
+\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. "
 }
 
-\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
-     }
-}
 
-\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
-      }
-}
+\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)))
 
+       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'
+   \unset Staff.Clef 
+   eis'4 fis'4
+ }
+ \paper { raggedright = ##t}
+}