From: Trevor Daniels Date: Thu, 9 Oct 2008 08:57:16 +0000 (+0100) Subject: Docs: NR 2.3 Unfretted headword X-Git-Tag: release/2.11.62-1~7^2~2^2 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a5e6df5edd4a1ed3771e4b06a9aa0d249841255c;p=lilypond.git 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 0008a6b2e7..0fc7585abc 100644 --- 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 index 0000000000..e4715160c0 --- /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 { } +}