]> git.donarmstrong.com Git - lilypond.git/blob - input/test/cue-notes.ly
patch::: 1.3.134.jcn1
[lilypond.git] / input / test / cue-notes.ly
1
2
3
4
5 % add cue notes context
6 \paper {
7         CueVoiceContext = \translator {
8             \VoiceContext
9             \name CueVoice;
10             NoteHead \override #'font-relative-size = #-1
11             Stem \override #'font-relative-size = #-1
12             Beam \override #'font-relative-size = #-1
13             TextScript \override #'font-relative-size = #-1
14             Slur \override #'font-relative-size = #-1
15             Accidentals \override #'font-relative-size = #-1
16         };
17         \translator{ \CueVoiceContext }
18         StaffContext = \translator{\StaffContext
19                 \accepts "CueVoice";
20         }; 
21 }
22
23 \paper {
24     StaffContext = \translator{
25        \StaffContext
26        \remove "Time_signature_engraver";
27     };
28     \translator { \StaffContext }   
29     \translator{
30       \VoiceContext
31       \remove "Auto_beam_engraver";
32      }
33      \translator {
34          \ScoreContext
35          barScriptPadding = #2.0
36          markScriptPadding = #4.0
37          barNumberScriptPadding = #15
38      }
39 }
40
41 \score{
42   \notes \relative c' \context Voice
43       {
44         c4 c4 g'2 
45          \context CueVoice { r2 [f16 f f f] [a f f f] }
46         c4 c4 g'2
47       }
48 }
49