+++ /dev/null
-%******************************************************
-% Inspirational header for Unfretted Strings section %
-% of Lilypond Documentation. This passage is taken %
-% from Ravel's String Quartet. %
-% ****************************************************%
-
-%\version "2.11.61"
-
-#(set-global-staff-size 15)
-\paper{
- ragged-end=##t
- line-width=17\cm
- indent=0\cm
-}
-
-\layout {
- \context { \Score
- \remove "Bar_number_engraver"
- \override PaperColumn #'keep-inside-line = ##t
- \override NonMusicalPaperColumn #'keep-inside-line = ##t
- }
-}
-
-%*************** MACROS ******************%
-
-#(define (octave-up m t)
- (let* ((octave (1- t))
- (new-note (ly:music-deep-copy m))
- (new-pitch (ly:make-pitch
- octave
- (ly:pitch-notename (ly:music-property m 'pitch))
- (ly:pitch-alteration (ly:music-property m 'pitch)))))
- (set! (ly:music-property new-note 'pitch) new-pitch)
- new-note))
-
-#(define (octavize-chord elements t)
- (cond ((null? elements) elements)
- ((eq? (ly:music-property (car elements) 'name) 'NoteEvent)
- (cons (car elements)
- (cons (octave-up (car elements) t)
- (octavize-chord (cdr elements) t))))
- (else (cons (car elements) (octavize-chord (cdr elements ) t)))))
-
-#(define (octavize music t)
- (if (eq? (ly:music-property music 'name) 'EventChord)
- (ly:music-set-property! music 'elements (octavize-chord
-(ly:music-property music 'elements) t)))
- music)
-
-octaves = #(define-music-function (parser location arg mus) (integer? ly:music?)
- (music-map (lambda (x) (octavize x arg)) mus))
-
-%\relative c' { d e \octaves #-1 { \times 2/3 {f g c }}} % this is an example of the macro in practice
-
-%*********************************************************************
-% This is a sweet macro by Mark Polesky to make the 4th-string
-% indication look like it did in the original score
-%********************************************************************
-#(define-markup-command (No layout props n) (string?)
- (define (format-char c)
- (let ((s (string c)))
- (if (number? (string->number s))
- (markup #:hspace 0.125 #:number s #:hspace 0.125)
- (markup #:hspace 0 #:fontsize 2 s))))
- (define (format-string s i)
- (let ((n (string-length s)))
- (if (= n 0)
- (markup #:null)
- (markup (format-char (string-ref s i))
- (if (= (+ i 1) n)
- (markup #:null)
- (format-string s (+ i 1)))))))
- (let ((i (string-length n)))
- (interpret-markup layout props
- (markup
- #:concat (
- #:concat (
- #:fontsize 3 "4"
- #:hspace 0.5
- #:override '(baseline-skip . 0.825)
- #:override '(direction . 1)
- #:dir-column (
- #:fontsize 2 #:center-align "."
- #:fontsize 1 #:center-align "e"
- )
- )
- #:hspace 0.75
- #:concat (
- (format-string n 0)
- #:fontsize 2 ""
- )
- )
- )
- )
- )
-)
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
-
-
-poco = \markup { \italic { \fontsize #+2.0 "poco" }}
-apoco = \markup { \italic { \fontsize #+2.0 "a" }}
-menovivo = \markup { \bold { \fontsize #+3.0 { "Poco meno vivo"} } }
-pocorit = \markup { \bold { \fontsize #+3.0 { "poco rit."} } }
-pocodim = \markup { \italic { \fontsize #+2.0 "un poco dim." }}
-
-vlnOne = \relative c''' {
- \key f \major
- \time 4/4
- \set Staff.midiInstrument = "violin"
-% \override TupletNumber #'stencil = ##f
- \override TupletBracket #'bracket-visibility = ##f
- \set tupletSpannerDuration = #(ly:make-moment 1 4)
-
- \once \override TextScript #'extra-offset = #'( -3.8 . 0.5 )
- es4^\apoco
- \once \override TextScript #'extra-offset = #'( -1.0 . -0.8 )
- \times 2/3 { c8(^\poco d es) } es4 \times 2/3 { c8( d es) } | % 1
- es4\ff\< \times 2/3 { c8( d es) } es4 \times 2/3 { c8( d es)\! } | % 2
- \grace { a,,8[( a'\fff]^\menovivo } a'4) g8( a) d,4 c8( d) | % 3
- a4 g8( a) d,4 c8( d) | % 4
- a4 g8( a) d,8^\pocorit r8 r4 | % 5
- ais16(\p\< e' ais e') e16(\f\> ais, e ais,)\! ais8 r r4 | % 6
-}
-
-vlnTwo = \relative c' {
- \key f \major
- \time 4/4
- \set Staff.midiInstrument = "violin"
-% \override TupletNumber #'stencil = ##f
- \override TupletBracket #'bracket-visibility = ##f
- \set tupletSpannerDuration = #(ly:make-moment 1 4)
- \times 2/3 { \octaves #1 {fis8 fis fis fis fis fis fis fis fis fis fis fis }} | % 1
- \times 2/3 { \octaves #1 {fis8\ff\< fis fis fis fis fis fis fis fis fis fis fis\! }} |% 2
- <ais, e' ais e'>16\fff( ais' e ais,) ais16( e' ais e') e16( ais, e ais,) ais16( e' ais e') | % 3
- e16( ais, e ais,) ais16( e' ais e') e16( ais, e ais,) ais16( e' ais e') | % 4
- e16( ais, e ais,)
- \set subdivideBeams = ##t
- \set Score.beatLength = #(ly:make-moment 1 8)
- ais16( e') e( ais,)
- d4^\markup \No #"Corde"
- \once \override TextScript #'extra-offset = #'( -5.5 . 4.4 )
- c8(_\markup { \italic { \fontsize #+1.0 "vibrato" }} d) | % 5
- \set subdivideBeams = ##f
- a2 ~ a8 g( c d) % 6
-}
-vlnTwoDyn = {
- s1*4
- s2 s4\f\< s8. s16\! |
- s16 s16\> s8 s2 s8 s16 s32 s32\!
-
-}
-
-vla = \relative c'' {
- \key f \major
- \time 4/4
- \clef "alto"
- \set Staff.midiInstrument = "viola"
- \override Stem #'length = #9.5
- bes4:32 a4:32 gis4:32 a4:32 | % 1
- bes4:32 a4:32 gis4:32 a4:32\! | % 2
-\tweak #'extra-offset #'(-1.3 . -0.0)
-% \clef "treble"
- \revert Stem #'length
- \acciaccatura { a8 } a'4\fff g8( a) d,4 c8( d) \clef "alto" | %3
- a4 g8( a) d,4 c8( d) | % 4
- a4 g8 a <e ais>2:32 | % 5
- <e ais>1:32 | % 6
-}
-
-vlaDyn = {
- s1 | s2\ff\< s4 s8 s16\! s32 s64 \clef "treble" s64 |
- s1*2 | s2 s4\f\< s8 s16 s32 s32\! | % 3-5
- s16 s16\> s8 s2 s8 s16 s32 s32\! | %6
-
-}
-
-vc = \relative c' {
- \key f \major
- \time 4/4
- \clef "bass"
- \set Staff.midiInstrument = "cello"
- \override Stem #'length = #9.5
- c4:32 d4:32 es4:32 d4:32 | % 1
- c4:32 d4:32 es4:32 d4:32\! | % 2
- \revert Stem #'length
- \set subdivideBeams = ##t
- \set Score.beatLength = #(ly:make-moment 1 8)
- <fis,, cis'>16\fff( <cis' ais'>) <cis ais'>( <fis, cis'>) % 3
- <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>) % 3
- <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) % 3
- <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) | % 3
- <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>) % 4
- <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>) % 4
- <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) % 4
- <fis c'>16( <c' ais'>) <c ais'>( <fis, c'>) | % 4
- <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>) % 5
- <fis cis'>16( <cis' ais'>) <cis ais'>( <fis, cis'>) fis2^\( ~ | % 5
- fis4 g c,\) r4 % 6
-}
-vcDyn = {
- s1 | s2\ff\< s4 s8. s16\! | % 1-2
- s1*2 % 3-4
- s2 s4\f\< s8 s16 s32 s32\! | % 5
- s4\> s4 s4\! s4 | % 6
-}
-
-
-%%%%%%%%%%%%%%%% Score Block %%%%%%%%%%%%%%%%%%%%%%
-
-\score {
-
- << % creates new grand staff
- \new StaffGroup = "strings" <<
- \context Staff = "violinOne" \vlnOne
- \context Staff = "violinTwo" <<
- \context Voice = "violin 2" { \vlnTwo }
- \context Voice = "violin 2 dynamics" { \vlnTwoDyn }
- >>
- \new Staff = "viola" <<
- \context Voice = "viola" { \vla }
- \context Voice = "viola dynamics" { \vlaDyn }
- >>
- \new Staff = "cello" <<
- \context Voice = "cello" { \vc }
- \context Voice = "cello dynamics" { \vcDyn }
- >>
- >> % end of "strings" staffgroup
-
- >> % end of grand staff
-
- \layout {
- \context {
- \Score
- \override TimeSignature #'stencil = ##f
- \override BarNumber #'padding = #3
- \override RehearsalMark #'padding = #2
- skipBars = ##t
- } % context \Score \overrides end
- } % layout end
-
- \midi { }
-
-} % score end
-