circus: Add section marks.
[music/pretentious.git] / 03-circus / 03-circus.ly
1 \version "2.19.27"
2
3 \header {
4 title = "Circus"
5 composer = "The very pretentious elephlies"
6 copyright = \markup { \char ##x00A9 "2002—2016 Ricardo Wurmus" }
7 }
8
9 \include "../settings.ly"
10 \include "music/bass.ly"
11 \include "music/keys.ly"
12 \include "music/stick.ly"
13 \include "music/click.ly"
14
15 \layout {
16 ragged-last = ##t
17 indent = 2\cm
18 short-indent = 1.5\cm
19 }
20
21 AllMusic = <<
22 \new PianoStaff = "keyboard"
23 \with {
24 instrumentName = #"Synthesizer"
25 shortInstrumentName = #"Synth"
26 pedalSustainStyle = #'bracket
27 } { \keyboard }
28 \new StaffGroup = "bass"
29 \with {
30 instrumentName = #"Bass"
31 shortInstrumentName = #"Bass"
32 } { \bass }
33 \new PianoStaff = "grand stick"
34 \with {
35 instrumentName = #"Grand Stick"
36 shortInstrumentName = #"Stick"
37 midiInstrument = #"clav"
38 pedalSustainStyle = #'bracket
39 } { \stick }
40 >>
41
42 %% Two scores are needed: one with unfolded repeats for MIDI and the
43 %% other with regular repeats for notation.
44 \score {
45 \unfoldRepeats {
46 <<
47 \AllMusic
48 \new DrumStaff { \click }
49 >>
50 }
51 \midi { \tempo 4 = 120 }
52 }
53
54 \score {
55 \AllMusic
56 \layout {
57 \tempo 4 = 120
58 \context {
59 %% add the RemoveEmptyStaffContext that erases rest-only staves
60 \Staff \RemoveEmptyStaves
61 }
62 \context {
63 \Score
64 \numericTimeSignature
65 markFormatter = #format-mark-box-alphabet
66 %% Remove all-rest staves also in the first system
67 \override VerticalAxisGroup.remove-first = ##t
68 %% If only one non-empty staff in a system exists, still print the starting bar
69 \override SystemStartBar.collapse-height = #1
70 }
71 }
72 }