]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/measure-counter-spacing-pair.ly
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / input / regression / measure-counter-spacing-pair.ly
1 \version "2.19.59"
2
3 \header {
4   texidoc = "The @code{spacing-pair} property may be used to adjust
5 the horizontal positioning of @code{MeasureCounter} objects relative to
6 prefatory material.  In the following example, the count should be
7 aligned with the full-measure rests.
8 "
9 }
10
11 \layout {
12   ragged-right = ##t
13   \context {
14     \Staff
15     \consists #Measure_counter_engraver
16   }
17 }
18
19 music = {
20   \key bes \major
21   \time 3/4
22   R2.
23 }
24
25 {
26   \startMeasureCount
27   \music
28   \override Staff.MeasureCounter.spacing-pair =
29     #'(staff-bar. staff-bar)
30   \override Staff.MultiMeasureRest.spacing-pair =
31     #'(staff-bar . staff-bar)
32   \music
33   \override Staff.MeasureCounter.spacing-pair =
34     #'(key-signature . staff-bar)
35   \override Staff.MultiMeasureRest.spacing-pair =
36     #'(key-signature . staff-bar)
37   \music
38   \override Staff.MeasureCounter.spacing-pair =
39     #'(time-signature . staff-bar)
40   \override Staff.MultiMeasureRest.spacing-pair =
41     #'(time-signature . staff-bar)
42   \music
43   % time-signature is used on left
44   \override Staff.MeasureCounter.spacing-pair =
45     #'((left-edge time-signature) . time-signature)
46   \override Staff.MultiMeasureRest.spacing-pair =
47     #'((left-edge time-signature) . time-signature)
48   \music
49   \break
50   % left-edge is used
51   \override Staff.MeasureCounter.spacing-pair =
52     #'((left-edge key-signature) . staff-bar)
53   \override Staff.MultiMeasureRest.spacing-pair =
54     #'((left-edge key-signature) . staff-bar)
55   \music
56   \stopMeasureCount
57 }