input/manual/unfretted-headword.ly

   1 % #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
   2
   3 %%%
   4 %%% les-cinq-pieds:
   5 %%% extract for the lilypond documentaton project
   6 %%%
   7
   8 %% Title:       Les cinq pieds
   9 %% Composer:    David Séverin
  10 %% Date:        Juillet 2007
  11 %% Instrument:  Violon Solo
  12 %% Dedication:  A mon épouse Lívia De Souza Vidal
  13 %% Additional:  avec l'aide de Krzysztof Wagenaar
  14
  15 %% Statement:
  16
  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.
  20
  21 %% Statement Date: Octber the 9th, 2008
  22
  23
  24 \version "2.11.61"
  25
  26
  27 %%%
  28 %%% Abreviations
  29 %%%
  30
  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" "..." } }
  34
  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" "..." } }
  38
  39 fermaTa    = \markup \musicglyph #"scripts.ufermata"
  40
  41 accel   = \markup \tiny \italic \bold "accel. ..."
  42 ritar   = \markup \tiny \italic \bold "ritar. ..."
  43
  44 ignore     = \override NoteColumn #'ignore-collision = ##t
  45
  46
  47 %%
  48 %% Strings
  49 %%
  50
  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."
  56
  57 quatre         = \markup \teeny "IV"
  58
  59
  60 %%
  61 %% Shifting Notes
  62 %%
  63
  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
  67
  68
  69 %%
  70 %% Hairpin
  71 %%
  72
  73 % aniente        = "a niente"
  74 aniente        = \once \override Hairpin #'circled-tip = ##t
  75
  76
  77 %%
  78 %% Tuplets
  79 %%
  80
  81 tupletbp       = \once \override Staff.TupletBracket #'padding = #2.25
  82
  83
  84 %%
  85 %% Flag [Note Head - Stem]
  86 %%
  87
  88 noflag         = \once \override Stem #'flag-style = #'no-flag
  89
  90 %%%
  91 %%% Functions
  92 %%%
  93
  94 #(define-markup-command (colmark layout props args)
  95   (markup-list?)
  96   (let ((entries (cons (list '(baseline-skip . 2.3)) props)
  97        ))
  98    (interpret-markup layout entries
  99     (make-column-markup
 100      (map (lambda (arg)
 101            (markup arg))
 102       (reverse args))))))
 103
 104
 105 %%%
 106 %%% Paper
 107 %%%
 108
 109 #(set-global-staff-size 20)
 110 %#(set-default-paper-size "a4" 'landscape)
 111
 112 \paper {
 113   between-system-padding = 9
 114 }
 115
 116
 117 %%%
 118 %%% Header
 119 %%%
 120
 121 \header {
 122   meter       = "lentement"
 123 }
 124
 125
 126 %%%
 127 %%% Instruments
 128 %%%
 129
 130 ViolinSolo = \relative c' {
 131
 132   \voiceOne
 133
 134   \set Score.markFormatter     =  #format-mark-box-numbers
 135   \override Score.VoltaBracket #'font-name                  = #"sans"
 136   \override Score.VoltaBracket #'extra-offset               = #'(0 . 1)
 137   \override SpacingSpanner     #'uniform-stretching         = ##t
 138
 139
 140   %% Measure 1
 141   \time 11/4
 142   \mark \default
 143   r2 ^\markup \colmark { \italic "fatigué" } r4
 144   <<
 145     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
 146     { d2 \open \mf \< ~ \aniente d1  \! \> r4 r ^\markup \colmark { " " \fermaTa } \! }
 147   >>
 148
 149
 150   %% Measure 2
 151   \time 7/4
 152   \set Score.repeatCommands = #'((volta "¹) n.      ²) s.p."))
 153   <<
 154     { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
 155     { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermaTa } \! }
 156   >>
 157   \set Score.repeatCommands = #'((volta #f))
 158
 159
 160   %% Measure 3
 161   \time 15/4
 162   <<
 163     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
 164     { d2 \open \mf \< ~ d1 ~ d2 \ff  ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
 165   >>
 166
 167
 168   %% Measure 4
 169   \time 4/4
 170   \stemUp
 171   \tupletDown
 172   \times 2/3 { d4 ^\markup \colmark { \quatre \db \accel } d d }
 173   \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
 174   \break
 175
 176
 177   %% Measure 5
 178   \time 5/4
 179   \tupletbp \times 2/3 { d8 \mf \< ^\markup \colmark { \quatre \db " " \norm } d _\open d }
 180   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " "\sulp } d _\open d }
 181   \tupletbp \times 2/3 { d16 ^\markup \colmark { " " \db " " \norm } d _\open d d d _\open d }
 182   d2 \ff ^\markup \colmark { " " " " \pvib } \>
 183
 184
 185   %% Measure 6
 186   \time 5/8
 187   \once \override Beam #'grow-direction = #RIGHT  % \featherDurations #(ly:make-moment 2 3)
 188   { d16 \staccato
 189     [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
 190   }
 191
 192
 193   %% Measure 7
 194   \time 7/4
 195   \tupletbp \times 2/3 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
 196   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db } d _\open d }
 197   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
 198   \times 2/3 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
 199   \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~ }
 200
 201
 202   %% Measure 8
 203   d4 ^\markup \colmark { " " " " \pvib \norm }
 204   deh2 d dih \<
 205
 206
 207   %% Measure 9
 208   <<
 209     %% \override Glissando #'style = #'trill
 210     { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
 211     { d2 \open ~ d1  ^\markup \colmark { " " " " \mvib } }
 212   >>
 213   \breathe r4 \!
 214
 215 }
 216
 217
 218 %%%
 219 %%% Score
 220 %%%
 221
 222 \score {
 223
 224   <<
 225     \relative c' <<
 226       \new Staff {
 227         \set Staff.midiInstrument = "violin"
 228         \ViolinSolo
 229       }
 230     >>
 231     \override Score.Rest #'transparent = ##t
 232     \set Score.defaultBarType          = "empty"
 233   >>
 234
 235   \layout  {
 236     indent = 0.0
 237     \context {
 238       \Staff
 239       \remove "Time_signature_engraver"
 240       \remove "Bar_number_engraver"
 241     }
 242   }
 243   \midi { }
 244 }