]> git.donarmstrong.com Git - lilypond.git/blob - input/test/coriolan-margin.ly
ca51feee584c6eba580c91fdcb47270875c6f938
[lilypond.git] / input / test / coriolan-margin.ly
1 \version "1.5.68"
2
3
4 % Ugh, we need to override some LaTeX titling stuff
5 \header {
6   title =       "Ouvertüre\\vrule width0pt height 0pt depth 1ex"
7   subtitle =    "\\normalsize Zu Heinrich Joseph v. Collins Trauerspiel\\vrule width0pt height 0pt depth 1ex"
8   subsubtitle = "\\Large\\bf Coriolan"
9   opus =  "Op. 62"
10   piece = "\\hspace*{30mm}\\normalfont\\large Allegro con brio"
11   composer =     "Ludwig van Beethoven (1770-1827)"
12   enteredby =    "JCN"
13 }
14 #(define raisedflat '((raise . 0.4) (music (named "accidentals--1"))))
15
16 flauti = \notes \relative c' {
17   \property Staff.instrument    = #"2 Flauti"
18   \property Staff.instr         = #"Fl."
19   \time 4/4
20   c1 
21   \break c
22 %  \break c
23 %  \break c
24   \bar"|."
25 }
26
27 oboi = \notes \relative c' {
28   \property Staff.instrument    = #"2 Oboi"
29   \property Staff.instr         = #"Ob."
30   c1 c
31 }
32
33 clarinetti = \notes \relative c' {
34 %   \property Staff.instrument = #`("Clarinetti in B" ,text-flat)
35   \property Staff.instrument    = #`(lines "2 Clarinetti" (columns "(B" ,raisedflat ")"))
36   \property Staff.instr         = #`(lines "Cl." (columns "(B" ,raisedflat ")"))
37
38   c1 c
39 }
40
41 fagotti = \notes \relative c' {
42   \property Staff.instrument    = #"2 Fagotti"
43   \property Staff.instr         = #"Fg."
44   c1 c
45 }
46
47 corni = \notes \relative c' {
48   \property Staff.instrument    = #`(lines "2 Corni" (columns "(E" ,raisedflat ")"))
49   \property Staff.instr         = #`(lines "Cor." (columns "(E" ,raisedflat ")"))
50
51   c1 c
52 }
53
54 trombe = \notes \relative c' {
55   \property Staff.instrument    = #'(lines "2 Trombe" "(C)")
56   \property Staff.instr         = #'(lines "Tbe." "(C)")
57
58   c1 c
59 }
60
61 timpani = \notes \relative c' {
62   \property Staff.instrument    = #'(lines "Timpani" "(C-G)")
63   \property Staff.instr         = #"Timp."
64
65   c1 c
66 }
67
68 violinoI = \notes \relative c' {
69   \property Staff.instrument    = #"Violino I  "
70   \property Staff.instr         = #"Vl. I  "
71   c1 c
72 }
73
74 violinoII = \notes \relative c' {
75   \property Staff.instrument    = #"Violino II  "
76   \property Staff.instr         = #"Vl. II  "
77   c1 c
78 }
79
80 viola = \notes \relative c' {
81   \property Staff.instrument    = #"Viola"
82   \property Staff.instr         = #"Vla."
83   c1 c 
84   %c
85 }
86
87 violoncello = \notes \relative c' {
88   \property Staff.instrument    = #'(lines "Violoncello" "e" "Contrabasso")
89   \property Staff.instr         = #'(lines "Vc." "Cb.")
90   c1 c
91 }
92
93 \include "paper16.ly"
94
95 \score {
96   < 
97     \context StaffGroup ="legni" < 
98       \context Staff ="flauti" \flauti
99       \context Staff ="oboi" \oboi
100       \context Staff ="clarinetti" \clarinetti 
101       \context Staff ="fagotti" \fagotti 
102     >
103     \context StaffGroup ="ottoni" <
104       \context Staff ="corni" \corni
105       \context Staff ="trombe" \trombe
106     >
107     \context StaffGroup ="timpani" <
108       \context Staff ="timpani" \timpani
109      { 
110        \skip 1 
111        % Hmm: this forces a staff-bracket, that's good!
112        % However, I can't find where is decided on staff-bracket yes/no
113      }
114     >
115     \context StaffGroup ="archi" <
116       \context GrandStaff ="violini" <
117         \context Staff ="violinoI" \violinoI
118         \context Staff ="violinoII" \violinoII
119       >
120       \context Staff ="viola" \viola
121       \context Staff ="violoncello" \violoncello
122     >
123   >
124   \paper {
125         \paperSixteen
126         indent=100.0\mm
127         linewidth=150.0\mm
128     \translator {
129       \HaraKiriStaffContext
130     }
131     \translator {
132       \OrchestralScoreContext
133       TimeSignature \override #'style = #'C
134     }
135   }
136 }
137