Docs: NR 2.3 Unfretted headword

- try David Séverin's offering

diff --git a/Documentation/user/unfretted-strings.itely b/Documentation/user/unfretted-strings.itely
index 0008a6b2e736a788ac47ea06560db295a6eda03c..0fc7585abc0a8ca5764a52b3aca90e8825fe6ff7 100644 (file)
--- a/Documentation/user/unfretted-strings.itely
+++ b/Documentation/user/unfretted-strings.itely
@@ -11,7 +11,8 @@
 @node Unfretted string instruments
 @section Unfretted string instruments
 
-@lilypondfile[quote]{unfretted-strings-headword.ly}
+@lilypondfile[quote]
+{unfretted-headword.ly}
 
 @cindex orchestral strings
 @cindex strings, writing for

diff --git a/input/manual/unfretted-headword.ly b/input/manual/unfretted-headword.ly
new file mode 100644 (file)
index 0000000..e471516
--- /dev/null
+++ b/input/manual/unfretted-headword.ly
@@ -0,0 +1,244 @@
+% #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
+
+%%%
+%%% les-cinq-pieds:
+%%% extract for the lilypond documentaton project
+%%%
+
+%% Title:      Les cinq pieds
+%% Composer:   David Séverin
+%% Date:       Juillet 2007
+%% Instrument: Violon Solo
+%% Dedication: A mon épouse Lívia De Souza Vidal
+%% Additional: avec l'aide de Krzysztof Wagenaar
+
+%% Statement:
+
+%% Here by, I, the composer, agree that this extract of my composition
+%% be in the public domain and can be part of, used and presented in
+%% the Lilypond Documention Project.
+
+%% Statement Date: Octber the 9th, 2008
+
+
+\version "2.11.61"
+
+
+%%%
+%%% Abreviations
+%%%
+
+db         = \markup { \musicglyph #"scripts.downbow" }
+dub        = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" } }
+dubetc     = \markup { \line { \musicglyph #"scripts.downbow" " " \musicglyph #"scripts.upbow" "..." } }
+
+ub         = \markup { \musicglyph #"scripts.upbow" }
+udb        = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" } }
+udbetc     = \markup { \line { \musicglyph #"scripts.upbow" " " \musicglyph #"scripts.downbow" "..." } }
+
+fermaTa    = \markup \musicglyph #"scripts.ufermata"
+
+accel   = \markup \tiny \italic \bold "accel. ..."
+ritar   = \markup \tiny \italic \bold "ritar. ..."
+
+ignore     = \override NoteColumn #'ignore-collision = ##t
+
+
+%%
+%% Strings
+%%
+
+svib           = \markup \small "s. vib."
+pvib           = \markup \small "p. vib."
+mvib           = \markup \small "m. vib."
+sulp           = \markup \small "s.p."
+norm           = \markup \small "n."
+
+quatre         = \markup \teeny "IV"
+
+
+%%
+%% Shifting Notes
+%%
+
+shift      = \once \override NoteColumn #'force-hshift = #0.9
+shifta     = \once \override NoteColumn #'force-hshift = #1.2
+shiftb     = \once \override NoteColumn #'force-hshift = #1.4
+
+
+%%
+%% Hairpin
+%%
+
+% aniente        = "a niente"
+aniente        = \once \override Hairpin #'circled-tip = ##t
+
+
+%%
+%% Tuplets
+%%
+
+tupletbp       = \once \override Staff.TupletBracket #'padding = #2.25
+
+
+%%
+%% Flag [Note Head - Stem]
+%%
+
+noflag         = \once \override Stem #'flag-style = #'no-flag
+
+%%%
+%%% Functions
+%%%
+
+#(define-markup-command (colmark layout props args)
+  (markup-list?)
+  (let ((entries (cons (list '(baseline-skip . 2.3)) props)
+       ))
+   (interpret-markup layout entries
+    (make-column-markup
+     (map (lambda (arg)
+          (markup arg))
+      (reverse args))))))
+
+
+%%%
+%%% Paper
+%%%
+
+#(set-global-staff-size 20)
+%#(set-default-paper-size "a4" 'landscape)
+
+\paper {
+  between-system-padding = 9
+}
+
+
+%%%
+%%% Header
+%%%
+
+\header {
+  meter       = "lentement"
+}
+
+
+%%%
+%%% Instruments
+%%%
+
+ViolinSolo = \relative c' {
+
+  \voiceOne
+
+  \set Score.markFormatter     =  #format-mark-box-numbers
+  \override Score.VoltaBracket #'font-name                  = #"sans"
+  \override Score.VoltaBracket #'extra-offset               = #'(0 . 1)
+  \override SpacingSpanner     #'uniform-stretching         = ##t
+
+
+  %% Measure 1
+  \time 11/4
+  \mark \default
+  r2 ^\markup \colmark { \italic "fatigué" } r4
+  <<
+    { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
+    { d2 \open \mf \< ~ \aniente d1  \! \> r4 r ^\markup \colmark { " " \fermaTa } \! }
+  >>
+
+
+  %% Measure 2
+  \time 7/4
+  \set Score.repeatCommands = #'((volta "¹) n.      ²) s.p."))
+  <<
+    { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
+    { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermaTa } \! }
+  >>
+  \set Score.repeatCommands = #'((volta #f))
+
+
+  %% Measure 3
+  \time 15/4
+  <<
+    { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
+    { d2 \open \mf \< ~ d1 ~ d2 \ff  ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
+  >>
+
+
+  %% Measure 4
+  \time 4/4
+  \stemUp
+  \tupletDown
+  \times 2/3 { d4 ^\markup \colmark { \quatre \db \accel } d d }
+  \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
+  \break
+
+
+  %% Measure 5
+  \time 5/4
+  \tupletbp \times 2/3 { d8 \mf \< ^\markup \colmark { \quatre \db " " \norm } d _\open d }
+  \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " "\sulp } d _\open d }
+  \tupletbp \times 2/3 { d16 ^\markup \colmark { " " \db " " \norm } d _\open d d d _\open d }
+  d2 \ff ^\markup \colmark { " " " " \pvib } \>
+
+
+  %% Measure 6
+  \time 5/8
+  \once \override Beam #'grow-direction = #RIGHT  % \featherDurations #(ly:make-moment 2 3)
+  { d16 \staccato
+    [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
+  }
+
+
+  %% Measure 7
+  \time 7/4
+  \tupletbp \times 2/3 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
+  \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db } d _\open d }
+  \tupletbp \times 2/3 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
+  \times 2/3 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
+  \times 2/3 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~ }
+
+
+  %% Measure 8
+  d4 ^\markup \colmark { " " " " \pvib \norm }
+  deh2 d dih \<
+
+
+  %% Measure 9
+  <<
+    %% \override Glissando #'style = #'trill
+    { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
+    { d2 \open ~ d1  ^\markup \colmark { " " " " \mvib } }
+  >>
+  \breathe r4 \!
+
+}
+
+
+%%%
+%%% Score
+%%%
+
+\score {
+
+  <<
+    \relative c' <<
+      \new Staff {
+        \set Staff.midiInstrument = "violin"
+        \ViolinSolo
+      }
+    >>
+    \override Score.Rest #'transparent = ##t
+    \set Score.defaultBarType          = "empty"
+  >>
+
+  \layout  {
+    indent = 0.0
+    \context {
+      \Staff
+      \remove "Time_signature_engraver"
+      \remove "Bar_number_engraver"
+    }
+  }
+  \midi { }
+}