Documentation/snippets/unfretted-headword.ly

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