Jonathan
Here's your score with my slight mods. Thanks again
for doing this so promptly. It should appear in the
2.11 docs tomorrow.
Trevor
----- Original Message -----
From: "Jonathan Kulp" <[EMAIL PROTECTED]>
To: "Trevor Daniels" <[EMAIL PROTECTED]>
Cc: "Kieren MacMillan" <[EMAIL PROTECTED]>; "Lilypond-User List"
<lilypond-user@gnu.org>
Sent: Tuesday, October 07, 2008 12:03 PM
Subject: Re: Headword for unfretted-strings
Oh man, I really don't know about the copyright. If it was published in
1905, then it's in p.d. in the U.S. If I'm not mistaken, the pdf I
downloaded from the International Music Library Score Project was made
from a Dover score, and I think those are always made from public domain
stuff. If there's any hesitation to include it, then I could do a
fragment of something older. Even if we can't use the Ravel, it was a fun
diversion from the big orchestral score I've been trudging through and I
learned a number of things I hadn't known how to do before :).
I don't really know how to deal with the staff spacing and was just going
to look at the docs for guidance when I had some more time.
Glad you're pleased with it, Trevor. Could you email me the code with the
time sig removed? I've never figured out how to do this except by making
it transparent, which looks ugly b/c there's a blank space. I want to see
how you did it.
Jon
Trevor Daniels wrote:
Jonathan Kulp wrote Tuesday, October 07, 2008 5:04 AM
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.
Wow! That was quick! I make a request last thing
at night, go to bed, and there it is before breakfast!
It looks great! Unfortunately it would get too long
if you added any more bars. I've added the correct midi
instruments (strings sound poor, but a piano sounded
worse on this piece!) I've also removed the time
signature as you suggested, but I've done nothing
about the staff spacing. Any suggestions for this?
I'll add it to the docs so we can see how it looks.
I'm not sure about the copyright position though :(
Valentin's happy, but maybe others will not be. We
already have Ravel's sonatine (1905) in Keyboards,
so maybe these few bars are OK too.
Many thanks again.
Trevor
--
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
\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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
