conducteur.ly 6.54 KB
Newer Older
Rémy Huet's avatar
Rémy Huet committed
1
2
3
4
5
\version "2.19.82"

%include separate files

%\include"instrument.ly"
Rémy Huet's avatar
Rémy Huet committed
6
\include "parts/Violons.ly"
7
\include "parts/Violoncelle.ly"
Rémy Huet's avatar
Rémy Huet committed
8
\include "parts/Flute.ly"
Rémy Huet's avatar
Rémy Huet committed
9
\include "parts/Hautbois.ly"
10
\include "parts/Clarinette.ly"
11
\include "parts/SaxAlto.ly"
Rémy Huet's avatar
Rémy Huet committed
12
\include "parts/Cor.ly"
Rémy Huet's avatar
Rémy Huet committed
13
\include "parts/Trompette.ly"
Rémy Huet's avatar
Rémy Huet committed
14
\include "parts/SaxTenor.ly"
Rémy Huet's avatar
Rémy Huet committed
15
\include "parts/Trombone.ly"
Rémy Huet's avatar
Rémy Huet committed
16
\include "parts/Timbale.ly"
Rémy Huet's avatar
Rémy Huet committed
17
\include "parts/Piano.ly"
Rémy Huet's avatar
Rémy Huet committed
18
\include "parts/Harpe.ly"
Rémy Huet's avatar
Rémy Huet committed
19
\include "parts/Alto.ly"
Rémy Huet's avatar
Rémy Huet committed
20
\include "parts/Violon2.ly"
Rémy Huet's avatar
Rémy Huet committed
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#(define-markup-command (vspace layout props amount) (number?)
  "This produces a invisible object taking vertical space."
  (let ((amount (* amount 3.0)))
    (if (> amount 0)
        (ly:make-stencil "" (cons -1 1) (cons 0 amount))
        (ly:make-stencil "" (cons -1 1) (cons amount amount)))))

#(define-markup-command (when-property layout props symbol markp) (symbol? markup?)
  (if (chain-assoc-get symbol props)
      (interpret-markup layout props markp)
      (ly:make-stencil '()  '(1 . -1) '(1 . -1))))
#(set-global-staff-size 10)
%partie globale
\book {
  \bookOutputName "PDF/New_World_Syphony_conducteur"
	\paper {
    line-width	= 180\mm
    left-margin   = 20\mm
    top-margin	= 10\mm
41
    bottom-margin = 20\mm
Rémy Huet's avatar
Rémy Huet committed
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
    ragged-last-bottom = ##f
    %ragged-bottom=##t
    markup-system-spacing = #'((basic-distance . 5) (padding . 5) (stretchability . 10))

  	bookTitleMarkup = \markup \when-property #'header:title \column {
	  \combine \null \vspace #28
	  \fill-line { \postscript #"-20 0 moveto 40 0 rlineto stroke" }
	  \combine \null \vspace #6
	  \fill-line { \fontsize #14 \fromproperty #'header:title }
	  \combine \null \vspace #6
	  \fill-line { \fontsize #10 \fromproperty #'header:subtitle }
	  \combine \null \vspace #6
	  \fill-line { \fontsize #9 \fromproperty #'header:subsubtitle }
	  \combine \null \vspace #6
	  \fill-line { \fontsize #8 \italic \fromproperty #'header:composer }
	  \combine \null \vspace #4
	  \fill-line { \fontsize #4444 \italic \fromproperty #'header:compDates }
	  \combine \null \vspace #4
	  \fill-line { \fontsize #8 \italic \fromproperty #'header:tagline }
	  \combine \null \vspace #6
	  \fill-line { \postscript #"-20 0 moveto 40 0 rlineto stroke" }
	  \combine \null \vspace #6
	  \fill-line { \fontsize #5 \fromproperty #'header:date }
65
	  \combine \null \vspace #1
Rémy Huet's avatar
Rémy Huet committed
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
	  \fill-line {
		\when-property #'header:arrangement \column {
		  \combine \null \vspace #5
		  \fill-line { \fontsize #5 \fromproperty #'header:arrangement }
		}
	  }

	}
  scoreTitleMarkup = \markup \null
}

  \header {
    title = "Symphony No.9"
		subtitle = "\"From the New World\""
		subsubtitle = "IV"
    composer = "Antonín Dvořák"
		arrangement = "Stravaganzé par Rémy H."
		tagline = "Stravaganza"
		date = "P19"
  }


   %définition de la partition
\score {
  \header
  {
  breakbefore = ##t
  }
<<
Rémy Huet's avatar
Rémy Huet committed
95

Rémy Huet's avatar
Rémy Huet committed
96
97
98
99
100
101
  \context StaffGroup = Bois <<
    \context Staff = Flutes <<
          \set Staff.instrumentName = "Flutes"
          \set Staff.shortInstrumentName = "Flts."
          \context Voice = Flutes \Flute
    >>
Rémy Huet's avatar
Rémy Huet committed
102
103
104
105
106
    \context Staff = Hautbois <<
          \set Staff.instrumentName = "Hautbois"
          \set Staff.shortInstrumentName = "Htbs."
          \context Voice = Hautbois \Hautbois
    >>
107
108
109
110
111
    \context Staff = Clarinettes <<
          \set Staff.instrumentName = "Clarinettes"
          \set Staff.shortInstrumentName = "Clar."
          \context Voice = Clarinette \Clarinette
    >>
Rémy Huet's avatar
Rémy Huet committed
112
113
114
115
    \context Staff = SaxTenor <<
          \set Staff.instrumentName = "Saxophone Ténor"
          \set Staff.shortInstrumentName = "SaxT."
          \context Voice = SaxTenor \SaxTenor
Rémy Huet's avatar
Rémy Huet committed
116
    >>
117
118
119
120
121
    \context Staff = SaxAlto <<
          \set Staff.instrumentName = "Saxophone Alto"
          \set Staff.shortInstrumentName = "SaxA."
          \context Voice = SaxAlto \SaxAlto
    >>
Rémy Huet's avatar
Rémy Huet committed
122
123
  >>%end of bois

Rémy Huet's avatar
Rémy Huet committed
124
  \context StaffGroup = Cuivres <<
Rémy Huet's avatar
Rémy Huet committed
125
126
127
128
129
    \context Staff = Trompettes <<
          \set Staff.instrumentName = "Trompettes"
          \set Staff.shortInstrumentName = "Trmp."
          \context Voice = Trompette \Trompette
    >>
Rémy Huet's avatar
Rémy Huet committed
130
131
132
133
134
    \context Staff = Trombone <<
          \set Staff.instrumentName = "Trombone"
          \set Staff.shortInstrumentName = "Trmb."
          \context Voice = Trombone \Trombone
    >>
Rémy Huet's avatar
Rémy Huet committed
135
136
137
138
139
140
141
    \context Staff = Cor <<
          \set Staff.instrumentName = "Cor en Fa"
          \set Staff.shortInstrumentName = "Cor"
          \context Voice = Cor \Cor
    >>
  >> % end of cuivres

Rémy Huet's avatar
Rémy Huet committed
142
143
144
145
146
147
148
149
  \context StaffGroup = Percus <<
    \context Staff = Timbale <<
          \set Staff.instrumentName = "Timbale"
          \set Staff.shortInstrumentName = "Timb."
          \context Voice = Timbale \Timbale
    >>
  >> % end of percus

Rémy Huet's avatar
Rémy Huet committed
150
151
152
153
154
  \context StaffGroup = PianoHarpe <<
    \context PianoStaff = Piano <<
          \set PianoStaff.instrumentName = "Piano"
          \set PianoStaff.shortInstrumentName = "Piano"
          \context Voice = PianoD \PianoD
155
          \context Voice = PianoL \PianoL
Rémy Huet's avatar
Rémy Huet committed
156
    >>
Rémy Huet's avatar
Rémy Huet committed
157
158
159
160
    \context PianoStaff = Harpe <<
          \set PianoStaff.instrumentName = "Harpe"
          \set PianoStaff.shortInstrumentName = "Harpe"
          \context Voice = HarpeD \HarpeD
161
          \context Voice = HarpeL \HarpeL
Rémy Huet's avatar
Rémy Huet committed
162
    >>
Rémy Huet's avatar
Rémy Huet committed
163
164
  >> %end of PianoHarpe

Rémy Huet's avatar
Rémy Huet committed
165
166
167
168
169
170
  \context StaffGroup = Cordes <<
    \context Staff = ViolonsI <<
          \set Staff.instrumentName = "Violons I"
          \set Staff.shortInstrumentName = "Vlns.I"
          \context Voice = ViolonsI \ViolonI
        >>
171

Rémy Huet's avatar
Rémy Huet committed
172
173
174
175
176
177
    \context Staff = ViolonsII <<
          \set Staff.instrumentName = "Violons II"
          \set Staff.shortInstrumentName = "Vlns.II"
          \context Voice = ViolonsII \ViolonII
        >>

Rémy Huet's avatar
Rémy Huet committed
178
179
180
181
182
183
    \context Staff = Altos <<
          \set Staff.instrumentName = "Altos"
          \set Staff.shortInstrumentName = "Alt."
          \context Voice = Altos \Alto
        >>

184
185
186
187
188
    \context Staff = Violoncelles <<
          \set Staff.instrumentName = "Violoncelles"
          \set Staff.shortInstrumentName = "Vlcs."
          \context Voice = Violoncelles \Violoncelle
        >>
Rémy Huet's avatar
Rémy Huet committed
189
190
  >> %end of corder

Rémy Huet's avatar
Rémy Huet committed
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
  \set Score.markFormatter = #format-mark-alphabet
  \set Score.skipBars = ##t
  %%\set Score.melismaBusyProperties = #'()
  \override Score.BarNumber #'break-visibility = #end-of-line-invisible %%every bar is numbered.!!!
  %% remove previous line to get barnumbers only at beginning of system.

  >>

  %% Boosey and Hawkes, and Peters, have barlines spanning all staff-groups in a score,
  %% Eulenburg and Philharmonia, like Lilypond, have no barlines between staffgroups.
  %% If you want the Eulenburg/Lilypond style, comment out the following line:
  \layout {
  %#(layout-set-staff-size 14)
  %\context {\Score \consists Span_bar_engraver}
  }
  %\midi{}
  }
}