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