Documentation/snippets/new/unfretted-headword.ly

   1 \version "2.19.2"
   2
   3 \header {
   4   lsrtags = "headword"
   5
   6   texidoc = "
   7 Unfretted headword
   8
   9 "
  10   doctitle = "Unfretted headword"
  11 }
  12 % #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
  13
  14 %%%
  15 %%% les-cinq-pieds:
  16 %%% extract for the lilypond documentaton project
  17 %%%
  18
  19 %% Title:       Les cinq pieds
  20 %% Composer:    David Séverin
  21 %% Date:        Juillet 2007
  22 %% Instrument:  Violon Solo
  23 %% Dedication:  A mon épouse Lívia De Souza Vidal
  24 %% Additional:  avec l'aide de Krzysztof Wagenaar
  25
  26 %% Statement:
  27
  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.
  31
  32 %% Statement Date: Octber the 9th, 2008
  33
  34
  35 %%%
  36 %%% Abbreviations
  37 %%%
  38
  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" "..." } }
  42
  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" "..." } }
  46
  47 accel   = \markup \tiny \italic \bold "accel..."
  48 ritar   = \markup \tiny \italic \bold "ritar..."
  49
  50 ignore     = \override NoteColumn.ignore-collision = ##t
  51
  52
  53 %%
  54 %% Strings
  55 %%
  56
  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."
  62
  63 quatre         = \markup \teeny "IV"
  64
  65
  66 %%
  67 %% Shifting Notes
  68 %%
  69
  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
  73
  74
  75 %%
  76 %% Hairpin
  77 %%
  78
  79 % aniente        = "a niente"
  80 aniente        = \once \override Hairpin.circled-tip = ##t
  81
  82
  83 %%
  84 %% Tuplets
  85 %%
  86
  87 tupletbp       = \once \override Staff.TupletBracket.padding = #2.25
  88
  89
  90 %%
  91 %% Flag [Note Head - Stem]
  92 %%
  93
  94 noflag         = \once \override Flag.style = #'no-flag
  95
  96 %%%
  97 %%% Functions
  98 %%%
  99
 100 #(define-markup-command (colmark layout props args)
 101   (markup-list?)
 102   (let ((entries (cons (list '(baseline-skip . 2.3)) props)
 103        ))
 104    (interpret-markup layout entries
 105     (make-column-markup
 106      (map (lambda (arg)
 107            (markup arg))
 108       (reverse args))))))
 109
 110
 111 %%%
 112 %%% Instruments
 113 %%%
 114
 115 ViolinSolo = \relative c' {
 116
 117   \voiceOne
 118
 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
 123
 124
 125   %% Measure 1
 126   \time 25/8
 127   \mark \default
 128   r2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
 129   <<
 130     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
 131     { d2 \open \mf \< ~ \aniente d1  \! \> r4 r ^\markup \colmark { " " \fermata } \! }
 132   >>
 133
 134
 135   %% Measure 2
 136   \time 7/4
 137   \set Score.repeatCommands = #'((volta "1) n.      2) s.p."))
 138   <<
 139     { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
 140     { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermata } \! }
 141   >>
 142   \set Score.repeatCommands = #'((volta #f))
 143
 144
 145   %% Measure 3
 146   \time 15/4
 147   <<
 148     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
 149     { d2 \open \mf \< ~ d1 ~ 2 \ff  ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
 150   >>
 151   \break
 152
 153   %% Measure 4
 154   \time 4/4
 155   \stemUp
 156   \tupletDown
 157   \tuplet 3/2 { d4 ^\markup \colmark { \quatre \db \accel } d d }
 158   \tuplet 3/2 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
 159
 160
 161
 162   %% Measure 5
 163   \time 5/4
 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 } \>
 168
 169
 170   %% Measure 6
 171   \time 5/8
 172   \once \override Beam.grow-direction = #RIGHT  % \featherDurations #(ly:make-moment 2/3)
 173   { d16 \staccato
 174     [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
 175   }
 176   \break
 177
 178
 179   %% Measure 7
 180   \time 7/4
 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 ~ }
 186
 187
 188   %% Measure 8
 189   d4 ^\markup \colmark { " " " " \pvib \norm }
 190   deh2 d dih \<
 191
 192
 193   %% Measure 9
 194   <<
 195     { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
 196     { d2 \open ~ d1  ^\markup \colmark { " " " " \mvib } }
 197   >>
 198   \breathe r4 \!
 199
 200 }
 201
 202
 203 %%%
 204 %%% Score
 205 %%%
 206
 207 \score {
 208
 209   <<
 210     \relative c' <<
 211       \new Staff \ViolinSolo
 212     >>
 213
 214     \hide Score.Rest
 215     \set Score.defaultBarType          = "-"
 216   >>
 217
 218   \layout  {
 219     indent       = 0.0
 220     \context {
 221       \Staff
 222       \remove "Time_signature_engraver"
 223     }
 224     \context {
 225       \Score
 226       \remove "Bar_number_engraver"
 227     }
 228   }
 229 }