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