Documentation/snippets/new/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 \header {
  25   lsrtags = "headwords"
  26   texidoc = ""
  27   doctitle = "headword"
  28 }
  29
  30
  31 \version "2.13.36"
  32 #(set-global-staff-size 15)
  33
  34 %%%
  35 %%% Abreviations
  36 %%%
  37
  38 db         = \markup { \musicglyph #"scripts.downbow" }
  39 dub        = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" } }
  40 dubetc     = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" "..." } }
  41
  42 ub         = \markup { \musicglyph #"scripts.upbow" }
  43 udb        = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" } }
  44 udbetc     = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" "..." } }
  45
  46 fermaTa    = \markup \musicglyph #"scripts.ufermata"
  47
  48 accel   = \markup \tiny \italic \bold "accel..."
  49 ritar   = \markup \tiny \italic \bold "ritar..."
  50
  51 ignore     = \override NoteColumn #'ignore-collision = ##t
  52
  53
  54 %%
  55 %% Strings
  56 %%
  57
  58 svib           = \markup \small "s. vib."
  59 pvib           = \markup \small "p. vib."
  60 mvib           = \markup \small "m. vib."
  61 sulp           = \markup \small "s.p."
  62 norm           = \markup \small "n."
  63
  64 quatre         = \markup \teeny "IV"
  65
  66
  67 %%
  68 %% Shifting Notes
  69 %%
  70
  71 shift      = \once \override NoteColumn #'force-hshift = #0.9
  72 shifta     = \once \override NoteColumn #'force-hshift = #1.2
  73 shiftb     = \once \override NoteColumn #'force-hshift = #1.4
  74
  75
  76 %%
  77 %% Hairpin
  78 %%
  79
  80 % aniente        = "a niente"
  81 aniente        = \once \override Hairpin #'circled-tip = ##t
  82
  83
  84 %%
  85 %% Tuplets
  86 %%
  87
  88 tupletbp       = \once \override Staff.TupletBracket #'padding = #2.25
  89
  90
  91 %%
  92 %% Flag [Note Head - Stem]
  93 %%
  94
  95 noflag         = \once \override Stem #'flag-style = #'no-flag
  96
  97 %%%
  98 %%% Functions
  99 %%%
 100
 101 #(define-markup-command (colmark layout props args)
 102   (markup-list?)
 103   (let ((entries (cons (list '(baseline-skip . 2.3)) props)
 104        ))
 105    (interpret-markup layout entries
 106     (make-column-markup
 107      (map (lambda (arg)
 108            (markup arg))
 109       (reverse args))))))
 110
 111
 112 %%%
 113 %%% Instruments
 114 %%%
 115
 116 ViolinSolo = \relative c' {
 117
 118   \voiceOne
 119
 120   \set Score.markFormatter     =  #format-mark-box-numbers
 121   \override Score.VoltaBracket #'font-name                  = #"sans"
 122   \override Score.VoltaBracket #'extra-offset               = #'(0 . 1)
 123   \override SpacingSpanner     #'uniform-stretching         = ##t
 124
 125
 126   %% Measure 1
 127   \time 25/8
 128   \mark \default
 129   r2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
 130   <<
 131     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
 132     { d2 \open \mf \< ~ \aniente d1  \! \> r4 r ^\markup \colmark { " " \fermaTa } \! }
 133   >>
 134
 135
 136   %% Measure 2
 137   \time 7/4
 138   \set Score.repeatCommands = #'((volta "1) n.      2) s.p."))
 139   <<
 140     { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
 141     { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermaTa } \! }
 142   >>
 143   \set Score.repeatCommands = #'((volta #f))
 144
 145
 146   %% Measure 3
 147   \time 15/4
 148   <<
 149     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
 150     { d2 \open \mf \< ~ d1 ~ d2 \ff  ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
 151   >>
 152   \break
 153
 154   %% Measure 4
 155   \time 4/4
 156   \stemUp
 157   \tupletDown
 158   \times 2/3 { d4 ^\markup \colmark { \quatre \db \accel } d d }
 159   \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
 160
 161
 162
 163   %% Measure 5
 164   \time 5/4
 165   \tupletbp \times 2/3 { d8 \mf \< ^\markup \colmark { \quatre \db \norm } d _\open d }
 166   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db \sulp } d _\open d }
 167   \tupletbp \times 2/3 { d16 ^\markup \colmark { " " \db \norm } d _\open d d d _\open d }
 168   d2 \ff ^\markup \colmark { " " \pvib } \>
 169
 170
 171   %% Measure 6
 172   \time 5/8
 173   \once \override Beam #'grow-direction = #RIGHT  % \featherDurations #(ly:make-moment 2 3)
 174   { d16 \staccato
 175     [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
 176   }
 177   \break
 178
 179
 180   %% Measure 7
 181   \time 7/4
 182   \tupletbp \times 2/3 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
 183   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db } d _\open d }
 184   \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
 185   \times 2/3 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
 186   \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~ }
 187
 188
 189   %% Measure 8
 190   d4 ^\markup \colmark { " " " " \pvib \norm }
 191   deh2 d dih \<
 192
 193
 194   %% Measure 9
 195   <<
 196     { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
 197     { d2 \open ~ d1  ^\markup \colmark { " " " " \mvib } }
 198   >>
 199   \breathe r4 \!
 200
 201 }
 202
 203
 204 %%%
 205 %%% Score
 206 %%%
 207
 208 \score {
 209
 210   <<
 211     \relative <<
 212       \new Staff \ViolinSolo
 213     >>
 214
 215     \override Score.Rest #'transparent = ##t
 216     \set Score.defaultBarType          = "empty"
 217   >>
 218
 219   \layout  {
 220     indent       = 0.0
 221     \context {
 222       \Staff
 223       \remove "Time_signature_engraver"
 224     }
 225     \context {
 226       \Score
 227       \remove "Bar_number_engraver"
 228     }
 229   }
 230 }