--- /dev/null
+% DO NOT EDIT this file manually; it is automatically
+% generated from Documentation/snippets/new
+% Make any changes in Documentation/snippets/new/
+% and then run scripts/auxiliar/makelsr.py
+%
+% This file is in the public domain.
+%% Note: this file works from version 2.14.0
+% #!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
+
+
+\header {
+ lsrtags = "headwords"
+ texidoc = ""
+ doctitle = "headword"
+} % begin verbatim
+
+
+
+\version "2.14.0"
+#(set-global-staff-size 15)
+
+%%%
+%%% 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))))))
+
+
+%%%
+%%% 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 25/8
+ \mark \default
+ r2 ^\markup \colmark { \italic "fatigué" " " \bold "lentement"} r4 r r8
+ <<
+ { \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 "1) n. 2) 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}
+ >>
+ \break
+
+ %% 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 }
+
+
+
+ %% 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]
+ }
+ \break
+
+
+ %% 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
+ <<
+ { \shift d2 \glissando ^\markup \colmark { \quatre } \shifta e1 } \\
+ { d2 \open ~ d1 ^\markup \colmark { " " " " \mvib } }
+ >>
+ \breathe r4 \!
+
+}
+
+
+%%%
+%%% Score
+%%%
+
+\score {
+
+ <<
+ \relative <<
+ \new Staff \ViolinSolo
+ >>
+
+ \override Score.Rest #'transparent = ##t
+ \set Score.defaultBarType = "empty"
+ >>
+
+ \layout {
+ indent = 0.0
+ \context {
+ \Staff
+ \remove "Time_signature_engraver"
+ }
+ \context {
+ \Score
+ \remove "Bar_number_engraver"
+ }
+ }
+}
projects / lilypond.git / blobdiff