1 % #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
5 %%% extract for the lilypond documentaton project
8 %% Title: Les cinq pieds
9 %% Composer: David Séverin
11 %% Instrument: Violon Solo
12 %% Dedication: A mon épouse Lívia De Souza Vidal
13 %% Additional: avec l'aide de Krzysztof Wagenaar
17 %% Here by, I, the composer, agree that this extract of my composition
18 %% be in the public domain and can be part of, used and presented in
19 %% the Lilypond Documention Project.
21 %% Statement Date: Octber the 9th, 2008
25 #(set-global-staff-size
15)
31 db
= \markup { \musicglyph #"scripts.downbow" }
32 dub
= \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" } }
33 dubetc
= \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" "..." } }
35 ub
= \markup { \musicglyph #"scripts.upbow" }
36 udb
= \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" } }
37 udbetc
= \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" "..." } }
39 fermaT
a = \markup \musicglyph #"scripts.ufermata"
41 accel
= \markup \tiny \italic \bold "accel..."
42 ritar
= \markup \tiny \italic \bold "ritar..."
44 ignore
= \override NoteColumn
#'ignore-collision
= ##t
51 svib
= \markup \small "s. vib."
52 pvib
= \markup \small "p. vib."
53 mvib
= \markup \small "m. vib."
54 sulp
= \markup \small "s.p."
55 norm
= \markup \small "n."
57 quatre
= \markup \teeny "IV"
64 shift
= \once \override NoteColumn
#'force-hshift
= #0.9
65 shifta
= \once \override NoteColumn
#'force-hshift
= #1.2
66 shiftb
= \once \override NoteColumn
#'force-hshift
= #1.4
73 % aniente = "a niente"
74 aniente
= \once \override Hairpin
#'circled-tip
= ##t
81 tupletbp
= \once \override Staff
.TupletBracket
#'padding
= #2.25
85 %% Flag [Note Head - Stem]
88 noflag
= \once \override Stem
#'flag-style
= #'no-flag
94 #(define-markup-command
(colmark layout props args
)
96 (let
((entries
(cons
(list
'(baseline-skip
. 2.3)) props
)
98 (interpret-markup layout entries
109 ViolinSolo
= \relative c' {
113 \set Score
.markFormatter
= #format-mark-box-numbers
114 \override Score
.VoltaBracket
#'font-name
= #"sans"
115 \override Score
.VoltaBracket
#'extra-offset
= #'(0 . 1)
116 \override SpacingSpanner
#'uniform-stretching
= ##t
122 r
2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r
4 r r
8
124 { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
125 { d2 \open \mf \< ~
\aniente d1 \! \> r
4 r
^\markup \colmark { " " \fermaTa } \! }
131 \set Score
.repeatCommands
= #'((volta
"1) n. 2) s.p."))
133 { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
134 { d2 \open \mf \< ~
d1 \! \> ~
d4 ^\markup \colmark { " " \fermaTa } \! }
136 \set Score
.repeatCommands
= #'((volta
#f))
142 { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
143 { d2 \open \mf \< ~
d1 ~
d2 \ff ~
d1 \> ~
d2 ^\markup \colmark { " " " " \svib } ~
d4 \pp}
151 \times 2/3 { d4 ^\markup \colmark { \quatre \db \accel } d d }
152 \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
158 \tupletbp \times 2/3 { d8 \mf \< ^\markup \colmark { \quatre \db \norm } d _\open d }
159 \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db \sulp } d _\open d }
160 \tupletbp \times 2/3 { d16 ^\markup \colmark { " " \db \norm } d _\open d d d _\open d }
161 d2 \ff ^\markup \colmark { " " \pvib } \>
166 \once \override Beam
#'grow-direction
= #RIGHT
% \featherDurations #(ly:make-moment 2 3)
168 [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
175 \tupletbp \times 2/3 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
176 \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db } d _\open d }
177 \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
178 \times 2/3 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
179 \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~
}
183 d4 ^\markup \colmark { " " " " \pvib \norm }
189 { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
190 { d2 \open ~
d1 ^\markup \colmark { " " " " \mvib } }
205 \new Staff
\ViolinSolo
208 \override Score
.Rest
#'transparent
= ##t
209 \set Score
.defaultBarType
= "empty"
216 \remove "Time_signature_engraver"
220 \remove "Bar_number_engraver"