Ok I've put together six bars of the Ravel quartet. File is attached so
you can see it looks like it'll be appropriate. It would be nice to
have a couple of fingerings and bowing indications, but this passage
didn't have any. There are some pizz. and arco and up-bow on the next
system but it would get long if I kept going. Should I go ahead and
include the next few bars?
This still needs some tweaking to make it look like the original
(tighten staff spacing, get rid of the time signature) but otherwise I
like how it looks.
BTW thanks to Mark Polesky for the sweet scheme snippet that I've
adapted to make the indication for 4th string look almost exactly like
the original. He was using it to make stylish movement numbers, but I
tweaked it a bit to make it work for this.
Jon
Kieren MacMillan wrote:
Hi all,
It would be cool to do something more modern if it's in public domain.
Ravel and Debussy are both PD, as are the early Webern that were
published in the U.S. before the 1920s.
Best,
Kieren.
--
Jonathan Kulp
http://www.jonathankulp.com
%******************************************************
% 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
% \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
% \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"
\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"
\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 BarNumber #'padding = #3
\override RehearsalMark #'padding = #2
skipBars = ##t
} % context \Score \overrides end
} % layout end
\midi { }
} % score end
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
