Documentation/snippets/unfretted-headword.ly

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