]> git.donarmstrong.com Git - lilypond.git/blob - Documentation/snippets/unfretted-headword.ly
Merge branch 'lilypond/translation' into staging
[lilypond.git] / Documentation / snippets / unfretted-headword.ly
1 %% DO NOT EDIT this file manually; it is automatically
2 %% generated from LSR http://lsr.dsi.unimi.it
3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
4 %% and then run scripts/auxiliar/makelsr.py
5 %%
6 %% This file is in the public domain.
7 \version "2.15.32"
8
9 \header {
10   lsrtags = "headword"
11
12   texidoc = "
13 Unfretted headword
14
15 "
16   doctitle = "Unfretted headword"
17 } % begin verbatim
18
19 % #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
20
21 %%%
22 %%% les-cinq-pieds:
23 %%% extract for the lilypond documentaton project
24 %%%
25
26 %% Title:       Les cinq pieds
27 %% Composer:    David Séverin
28 %% Date:        Juillet 2007
29 %% Instrument:  Violon Solo
30 %% Dedication:  A mon épouse Lívia De Souza Vidal
31 %% Additional:  avec l'aide de Krzysztof Wagenaar
32
33 %% Statement:
34
35 %% Here by, I, the composer, agree that this extract of my composition
36 %% be in the public domain and can be part of, used and presented in
37 %% the LilyPond Documention Project.
38
39 %% Statement Date: Octber the 9th, 2008
40
41
42 %%%
43 %%% Abbreviations
44 %%%
45
46 db         = \markup { \musicglyph #"scripts.downbow" }
47 dub        = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" } }
48 dubetc     = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" "..." } }
49
50 ub         = \markup { \musicglyph #"scripts.upbow" }
51 udb        = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" } }
52 udbetc     = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" "..." } }
53
54 fermaTa    = \markup \musicglyph #"scripts.ufermata"
55
56 accel   = \markup \tiny \italic \bold "accel..."
57 ritar   = \markup \tiny \italic \bold "ritar..."
58
59 ignore     = \override NoteColumn #'ignore-collision = ##t
60
61
62 %%
63 %% Strings
64 %%
65
66 svib           = \markup \small "s. vib."
67 pvib           = \markup \small "p. vib."
68 mvib           = \markup \small "m. vib."
69 sulp           = \markup \small "s.p."
70 norm           = \markup \small "n."
71
72 quatre         = \markup \teeny "IV"
73
74
75 %%
76 %% Shifting Notes
77 %%
78
79 shift      = \once \override NoteColumn #'force-hshift = #0.9
80 shifta     = \once \override NoteColumn #'force-hshift = #1.2
81 shiftb     = \once \override NoteColumn #'force-hshift = #1.4
82
83
84 %%
85 %% Hairpin
86 %%
87
88 % aniente        = "a niente"
89 aniente        = \once \override Hairpin #'circled-tip = ##t
90
91
92 %%
93 %% Tuplets
94 %%
95
96 tupletbp       = \once \override Staff.TupletBracket #'padding = #2.25
97
98
99 %%
100 %% Flag [Note Head - Stem]
101 %%
102
103 noflag         = \once \override Flag #'style = #'no-flag
104
105 %%%
106 %%% Functions
107 %%%
108
109 #(define-markup-command (colmark layout props args)
110   (markup-list?)
111   (let ((entries (cons (list '(baseline-skip . 2.3)) props)
112        ))
113    (interpret-markup layout entries
114     (make-column-markup
115      (map (lambda (arg)
116            (markup arg))
117       (reverse args))))))
118
119
120 %%%
121 %%% Instruments
122 %%%
123
124 ViolinSolo = \relative c' {
125
126   \voiceOne
127
128   \set Score.markFormatter     =  #format-mark-box-numbers
129   \override Score.VoltaBracket #'font-name                  = #"sans"
130   \override Score.VoltaBracket #'extra-offset               = #'(0 . 1)
131   \override SpacingSpanner     #'uniform-stretching         = ##t
132
133
134   %% Measure 1
135   \time 25/8
136   \mark \default
137   r2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
138   <<
139     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
140     { d2 \open \mf \< ~ \aniente d1  \! \> r4 r ^\markup \colmark { " " \fermaTa } \! }
141   >>
142
143
144   %% Measure 2
145   \time 7/4
146   \set Score.repeatCommands = #'((volta "1) n.      2) s.p."))
147   <<
148     { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
149     { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermaTa } \! }
150   >>
151   \set Score.repeatCommands = #'((volta #f))
152
153
154   %% Measure 3
155   \time 15/4
156   <<
157     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
158     { d2 \open \mf \< ~ d1 ~ d2 \ff  ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
159   >>
160   \break
161
162   %% Measure 4
163   \time 4/4
164   \stemUp
165   \tupletDown
166   \times 2/3 { d4 ^\markup \colmark { \quatre \db \accel } d d }
167   \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
168
169
170
171   %% Measure 5
172   \time 5/4
173   \tupletbp \times 2/3 { d8 \mf \< ^\markup \colmark { \quatre \db \norm } d _\open d }
174   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db \sulp } d _\open d }
175   \tupletbp \times 2/3 { d16 ^\markup \colmark { " " \db \norm } d _\open d d d _\open d }
176   d2 \ff ^\markup \colmark { " " \pvib } \>
177
178
179   %% Measure 6
180   \time 5/8
181   \once \override Beam #'grow-direction = #RIGHT  % \featherDurations #(ly:make-moment 2 3)
182   { d16 \staccato
183     [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
184   }
185   \break
186
187
188   %% Measure 7
189   \time 7/4
190   \tupletbp \times 2/3 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
191   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db } d _\open d }
192   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
193   \times 2/3 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
194   \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~ }
195
196
197   %% Measure 8
198   d4 ^\markup \colmark { " " " " \pvib \norm }
199   deh2 d dih \<
200
201
202   %% Measure 9
203   <<
204     { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
205     { d2 \open ~ d1  ^\markup \colmark { " " " " \mvib } }
206   >>
207   \breathe r4 \!
208
209 }
210
211
212 %%%
213 %%% Score
214 %%%
215
216 \score {
217
218   <<
219     \relative <<
220       \new Staff \ViolinSolo
221     >>
222
223     \override Score.Rest #'transparent = ##t
224     \set Score.defaultBarType          = "empty"
225   >>
226
227   \layout  {
228     indent       = 0.0
229     \context {
230       \Staff
231       \remove "Time_signature_engraver"
232     }
233     \context {
234       \Score
235       \remove "Bar_number_engraver"
236     }
237   }
238 }