Documentation/snippets/unfretted-headword.ly

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