LilyPond wiki

Unfretted headword: Difference between revisions

← Older editNewer edit →
VisualWikitext
m New category
m Format to avoid overlong lines; remove unused macros
Line 1: Line 1:
Unfretted headword
Unfretted headword.


<lilypond version="2.24" full>
<lilypond version="2.24">
% #!lilypond lcp-extract.ly -*- coding: utf-8; -*-
% David Séverin
% Les cinq pieds (2007)
% for violon solo
% (this extract is in the public domain)


%%%
% Abbreviations
%%% les-cinq-pieds:
db = \markup { \musicglyph "scripts.downbow" }
%%% extract for the lilypond documentaton project
dub = \markup { \musicglyph "scripts.downbow" " "
%%%
                \musicglyph "scripts.upbow" }
dubetc = \markup { \musicglyph "scripts.downbow" " "
                  \musicglyph "scripts.upbow" "..." }


%% Title: Les cinq pieds
ub = \markup { \musicglyph "scripts.upbow" }
%% Composer: David Séverin
udb = \markup { \musicglyph "scripts.upbow" " "
%% Date: Juillet 2007
                \musicglyph "scripts.downbow" }
%% Instrument: Violon Solo
udbetc = \markup { \musicglyph "scripts.upbow" " "
%% Dedication: A mon épouse Lívia De Souza Vidal
                  \musicglyph "scripts.downbow" "..." }
%% Additional: avec l'aide de Krzysztof Wagenaar


%% Statement:
accel = \markup \tiny \italic \bold "accel..."
ritar = \markup \tiny \italic \bold "ritar..."


%% Here by, I, the composer, agree that this extract of my composition
% Strings
%% be in the public domain and can be part of, used and presented in
svib = \markup \small "s. vib."
%% the LilyPond Documention Project.
pvib = \markup \small "p. vib."
mvib = \markup \small "m. vib."
sulp = \markup \small "s.p."
norm = \markup \small "n."


%% Statement Date: Octber the 9th, 2008
quatre = \markup \teeny "IV"


% Shifting Notes
shift = \once \override NoteColumn.force-hshift = #0.9
shifta = \once \override NoteColumn.force-hshift = #1.2


%%%
% Hairpin
%%% Abbreviations
aniente = \once \override Hairpin.circled-tip = ##t
%%%


db        = \markup { \musicglyph "scripts.downbow" }
% Tuplets
dub        = \markup { \line { \musicglyph "scripts.downbow" " " \musicglyph "scripts.upbow" } }
tupletbp = \once \override Staff.TupletBracket.padding = #2.25
dubetc    = \markup { \line { \musicglyph "scripts.downbow" " " \musicglyph "scripts.upbow" "..." } }


ub        = \markup { \musicglyph "scripts.upbow" }
% Functions
udb        = \markup { \line { \musicglyph "scripts.upbow" " " \musicglyph "scripts.downbow" } }
#(define-markup-command (colmark layout props args) (markup-list?)
udbetc    = \markup { \line { \musicglyph "scripts.upbow" " " \musicglyph "scripts.downbow" "..." } }
  (let ((entries (cons (list '(baseline-skip . 2.3)) props)))
 
    (interpret-markup layout entries
accel  = \markup \tiny \italic \bold "accel..."
                      (make-column-markup (map (lambda (arg)
ritar  = \markup \tiny \italic \bold "ritar..."
                                                  (markup arg))
 
                                                (reverse args))))))
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 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))))))
 
 
%%%
%%% Instruments
%%%


% Instruments
ViolinSolo = \relative c' {
ViolinSolo = \relative c' {
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \override Score.VoltaBracket.font-name = "LilyPond Sans Serif"
  \override Score.VoltaBracket.extra-offset = #'(0 . 1)
  \override SpacingSpanner.uniform-stretching = ##t


   \voiceOne
   \voiceOne


   \set Score.rehearsalMarkFormatter          = #format-mark-box-numbers
   % Measure 1
  \override Score.VoltaBracket.font-name      = "LilyPond Sans Serif"
   \time 25/8 \mark \default
  \override Score.VoltaBracket.extra-offset  = #'(0 . 1)
   r2^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
  \override SpacingSpanner.uniform-stretching = ##t
 
 
  %% Measure 1
   \time 25/8
  \mark \default
   r2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
   <<
   <<
     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \svib } \shifta e1 } \\
     { \shift d2\glissando^\markup \colmark { \quatre \dubetc \svib }
     { d2 \open \mf \< ~ \aniente d1 \! \> r4 r ^\markup \colmark { " " \fermata } \! }
      \shifta e1 } \\
     { d2\open\mf\< ~ \aniente d1\!\>
      r4 r\!^\markup \colmark { " " \fermata } }
   >>
   >>


 
   % Measure 2
   %% Measure 2
   \time 7/4
   \time 7/4
   \set Score.repeatCommands = #'((volta "1) n.      2) s.p."))
   \set Score.repeatCommands = #'((volta "1) n.      2) s.p."))
   <<
   <<
     { \shift d2 \glissando ^\markup \colmark { \quatre \udbetc } \shifta e1 } \\
     { \shift d2\glissando^\markup \colmark { \quatre \udbetc }
     { d2 \open \mf \< ~ d1 \! \> ~ d4 ^\markup \colmark { " " \fermata } \! }
      \shifta e1 } \\
     { d2\open\mf\< ~ d1\!\> ~ d4\!^\markup \colmark { " " \fermata } }
   >>
   >>
   \set Score.repeatCommands = #'((volta #f))
   \set Score.repeatCommands = #'((volta #f))


 
   % Measure 3
   %% Measure 3
   \time 15/4
   \time 15/4
   <<
   <<
     { \shift d2 \glissando ^\markup \colmark { \quatre \dubetc \pvib \norm } \shifta e1 \glissando d2 } \\
     { \shift d2\glissando^\markup \colmark { \quatre \dubetc \pvib \norm }
     { d2 \open \mf \< ~ d1 ~ 2 \ff ~ d1 \> ~ d2 ^\markup \colmark { " " " " \svib } ~ d4 \pp}
      \shifta e1\glissando d2 } \\
     { d2\open\mf\< ~ d1 ~ d2\ff ~ d1\> ~
      d2^\markup \colmark { " " " " \svib } ~ d4\pp }
   >>
   >>
   \break
   \break


   %% Measure 4
   % Measure 4
   \time 4/4
   \time 4/4 \stemUp \tupletDown
  \stemUp
  \tupletDown
   \tuplet 3/2 { d4 ^\markup \colmark { \quatre \db \accel } d d }
   \tuplet 3/2 { d4 ^\markup \colmark { \quatre \db \accel } d d }
   \tuplet 3/2 { d4 ^\markup \colmark { " " \db " " \sulp } d d }
   \tuplet 3/2 { d4 ^\markup \colmark { " " \db \sulp } d d }


 
   % Measure 5
 
   %% Measure 5
   \time 5/4
   \time 5/4
   \tupletbp \tuplet 3/2 { d8 \mf \< ^\markup \colmark { \quatre \db \norm } d _\open d }
   \tupletbp \tuplet 3/2 {
   \tupletbp \tuplet 3/2 { d8 ^\markup \colmark { " " \db \sulp } d _\open d }
    d8\mf\<^\markup \colmark { \quatre \db \norm } d_\open d }
   \tupletbp \tuplet 3/2 { d16 ^\markup \colmark { " " \db \norm } d _\open d d d _\open d }
   \tupletbp \tuplet 3/2 {
   d2 \ff ^\markup \colmark { " " \pvib } \>
    d8^\markup \colmark { " " \db \sulp } d_\open d }
 
   \tupletbp \tuplet 3/2 {
    d16^\markup \colmark { " " \db \norm } d_\open d d d_\open d }
   d2\ff\>^\markup \colmark { " " \pvib }


   %% Measure 6
   % Measure 6
   \time 5/8
   \time 5/8
   \once \override Beam.grow-direction = #RIGHT % \featherDurations 2/3
   \once \override Beam.grow-direction = #RIGHT % \featherDurations 2/3
   { d16 \staccato
   d16-.[ d-. d-. d-. d-. d-. d-. d-. d-. d-.]
    [ d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato d \staccato]
  }
   \break
   \break


 
   % Measure 7
   %% Measure 7
   \time 7/4
   \time 7/4
   \tupletbp \tuplet 3/2 { d16 ^\markup \colmark { \quatre } d _\open d d d _\open d }
   \tupletbp \tuplet 3/2 {
   \tupletbp \tuplet 3/2 { d8 ^\markup \colmark { " " \db } d _\open d }
    d16^\markup \colmark { \quatre } d_\open d d d_\open d }
   \tupletbp \tuplet 3/2 { d8 ^\markup \colmark { " " \db " " \sulp } d _\open d }
   \tupletbp \tuplet 3/2 {
   \tuplet 3/2 { d4 ^\markup \colmark { \quatre \db \ritar \norm } d d }
    d8^\markup \colmark { " " \db } d_\open d }
   \tuplet 3/2 { d4 ^\markup \colmark { " " \db " " \sulp } d d \ppp ~ }
   \tupletbp \tuplet 3/2 {
    d8^\markup \colmark { " " \db " " \sulp } d_\open d }
   \tuplet 3/2 { d4^\markup \colmark { \quatre \db \ritar \norm } d d }
   \tuplet 3/2 { d4^\markup \colmark { " " \db " " \sulp } d d\ppp ~ }


  % Measure 8
  d4^\markup \colmark { " " " " \pvib \norm } deh2 d dih \<


   %% Measure 8
   % Measure 9
  d4 ^\markup \colmark { " " " " \pvib \norm }
  deh2 d dih \<
 
 
  %% Measure 9
   <<
   <<
     { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
     { \shift d2\glissando^\markup \colmark { \quatre } \shifta e1 } \\
     { d2 \open ~ d1 ^\markup \colmark { " " " " \mvib } }
     { d2\open ~ d1^\markup \colmark { " " " " \mvib } }
   >>
   >>
   \breathe r4 \!
   \breathe r4\!
 
}
}
%%%
%%% Score
%%%


\score {
\score {
   <<
   <<
     \relative c' <<
     \new Staff \relative c' \ViolinSolo
      \new Staff \ViolinSolo
    >>
 
     \hide Score.Rest
     \hide Score.Rest
     \set Score.measureBarType = ""
     \set Score.measureBarType = ""
   >>
   >>


   \layout {
   \layout {
    indent      = 0.0
     \context {
     \context {
       \Staff
       \Staff
Line 221: Line 151:
}
}


\paper { tagline = ##f }
\paper {
  system-system-spacing.padding = 5
}
</lilypond>
</lilypond>


[[Category:Contemporary notation]]
[[Category:Headword]]
[[Category:Headword]]
[[Category:Instrument-specific]]
[[Category:Included in the official documentation]]
[[Category:Included in the official documentation]]
[[Category:Snippet]]
[[Category:Snippet]]
Retrieved from "https://wiki.lilypond.community/wiki/Unfretted_headword"