]> git.donarmstrong.com Git - lilypond.git/blob - input/test/cue-notes.ly
d5d03f600afbb03b61b3ff89f2841edd0c105066
[lilypond.git] / input / test / cue-notes.ly
1 \header {
2
3     texidoc = "Cue notes should be set in smaller type. Cue clefs are
4 usually not restored explicitly."
5
6 }
7
8
9 \score {
10   \notes
11    {
12        \property Staff.instrument = #"Horn in F"
13        \property Score.skipBars = ##t
14        R1*21
15     <
16         {
17             \property Staff.MultiMeasureRest \override #'staff-position = #-6
18             R1
19             \property Voice.MultiMeasureRest \revert #'staff-position
20         }
21      \context Voice = cue { s2
22        \clef tenor
23
24         %% this should probably be put into an identifier.
25        \property Staff.fontSize = #-1
26         \property Voice.Stem \override #'length = #5.5
27         \property Voice.Beam \override #'thickness = #0.384
28         \property Voice.Beam \override #'space-function =
29            #(lambda (beam mult) (* 0.8 (Beam::space_function beam mult)))
30
31         r8^"Bsn." c'8 [f'8 f'8]
32        \property Staff.fontSize\unset
33        \property Staff . Clef = \turnOff
34        \clef treble
35      } >
36    c'8^"Horn" cis'
37    \property Staff.Clef \unset
38    eis'4 fis'4
39  }
40  \paper { linewidth = -1 }
41 }