From 19a382c3d88f6ff7747d7d4ed6f10a733499b1a9 Mon Sep 17 00:00:00 2001 From: Trevor Daniels Date: Tue, 7 Oct 2008 10:02:05 +0100 Subject: [PATCH] Docs: NR 2.3 Unfretted: Add headword --- Documentation/user/unfretted-strings.itely | 2 + input/manual/unfretted-strings-headword.ly | 244 +++++++++++++++++++++ 2 files changed, 246 insertions(+) create mode 100644 input/manual/unfretted-strings-headword.ly diff --git a/Documentation/user/unfretted-strings.itely b/Documentation/user/unfretted-strings.itely index 27bdcd50bc..0008a6b2e7 100644 --- a/Documentation/user/unfretted-strings.itely +++ b/Documentation/user/unfretted-strings.itely @@ -11,6 +11,8 @@ @node Unfretted string instruments @section Unfretted string instruments +@lilypondfile[quote]{unfretted-strings-headword.ly} + @cindex orchestral strings @cindex strings, writing for diff --git a/input/manual/unfretted-strings-headword.ly b/input/manual/unfretted-strings-headword.ly new file mode 100644 index 0000000000..45320c9819 --- /dev/null +++ b/input/manual/unfretted-strings-headword.ly @@ -0,0 +1,244 @@ +%****************************************************** +% 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 + 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 2:32 | % 5 + 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) + 16\fff( ) ( ) % 3 + 16( ) ( ) % 3 + 16( ) ( ) % 3 + 16( ) ( ) | % 3 + 16( ) ( ) % 4 + 16( ) ( ) % 4 + 16( ) ( ) % 4 + 16( ) ( ) | % 4 + 16( ) ( ) % 5 + 16( ) ( ) 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 + -- 2.39.2