10 doctitle = "Unfretted headword"
12 % #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
16 %%% extract for the lilypond documentaton project
19 %% Title: Les cinq pieds
20 %% Composer: David Séverin
22 %% Instrument: Violon Solo
23 %% Dedication: A mon épouse Lívia De Souza Vidal
24 %% Additional: avec l'aide de Krzysztof Wagenaar
28 %% Here by, I, the composer, agree that this extract of my composition
29 %% be in the public domain and can be part of, used and presented in
30 %% the LilyPond Documention Project.
32 %% Statement Date: Octber the 9th, 2008
39 db = \markup { \musicglyph #"scripts.downbow" }
40 dub = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" } }
41 dubetc = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" "..." } }
43 ub = \markup { \musicglyph #"scripts.upbow" }
44 udb = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" } }
45 udbetc = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" "..." } }
47 accel = \markup \tiny \italic \bold "accel..."
48 ritar = \markup \tiny \italic \bold "ritar..."
50 ignore = \override NoteColumn.ignore-collision = ##t
57 svib = \markup \small "s. vib."
58 pvib = \markup \small "p. vib."
59 mvib = \markup \small "m. vib."
60 sulp = \markup \small "s.p."
61 norm = \markup \small "n."
63 quatre = \markup \teeny "IV"
70 shift = \once \override NoteColumn.force-hshift = #0.9
71 shifta = \once \override NoteColumn.force-hshift = #1.2
72 shiftb = \once \override NoteColumn.force-hshift = #1.4
79 % aniente = "a niente"
80 aniente = \once \override Hairpin.circled-tip = ##t
87 tupletbp = \once \override Staff.TupletBracket.padding = #2.25
91 %% Flag [Note Head - Stem]
94 noflag = \once \override Flag.style = #'no-flag
100 #(define-markup-command (colmark layout props args)
102 (let ((entries (cons (list '(baseline-skip . 2.3)) props)
104 (interpret-markup layout entries
115 ViolinSolo = \relative c' {
119 \set Score.markFormatter = #format-mark-box-numbers
120 \override Score.VoltaBracket.font-name = #"sans"
121 \override Score.VoltaBracket.extra-offset = #'(0 . 1)
122 \override SpacingSpanner.uniform-stretching = ##t
128 r2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
130 { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
131 { d2 \open \mf \< ~ \aniente d1 \! \> r4 r ^\markup \colmark { " " \fermata } \! }
137 \set Score.repeatCommands = #'((volta "1) n. 2) s.p."))
139 { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
140 { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermata } \! }
142 \set Score.repeatCommands = #'((volta #f))
148 { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
149 { d2 \open \mf \< ~ d1 ~ d2 \ff ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
157 \tuplet 3/2 { d4 ^\markup \colmark { \quatre \db \accel } d d }
158 \tuplet 3/2 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
164 \tupletbp \tuplet 3/2 { d8 \mf \< ^\markup \colmark { \quatre \db \norm } d _\open d }
165 \tupletbp \tuplet 3/2 { d8 ^\markup \colmark { " " \db \sulp } d _\open d }
166 \tupletbp \tuplet 3/2 { d16 ^\markup \colmark { " " \db \norm } d _\open d d d _\open d }
167 d2 \ff ^\markup \colmark { " " \pvib } \>
172 \once \override Beam.grow-direction = #RIGHT % \featherDurations #(ly:make-moment 2/3)
174 [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
181 \tupletbp \tuplet 3/2 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
182 \tupletbp \tuplet 3/2 { d8 ^\markup \colmark { " " \db } d _\open d }
183 \tupletbp \tuplet 3/2 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
184 \tuplet 3/2 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
185 \tuplet 3/2 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~ }
189 d4 ^\markup \colmark { " " " " \pvib \norm }
195 { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
196 { d2 \open ~ d1 ^\markup \colmark { " " " " \mvib } }
211 \new Staff \ViolinSolo
214 \override Score.Rest.transparent = ##t
215 \set Score.defaultBarType = "-"
222 \remove "Time_signature_engraver"
226 \remove "Bar_number_engraver"