From 2961b4758018bf1cbe3324de83b58400a9681438 Mon Sep 17 00:00:00 2001 From: fred Date: Sun, 24 Mar 2002 20:11:36 +0000 Subject: [PATCH] lilypond-0.1.62 --- Documentation/man/lilypond.pod | 10 +- input/Makefile | 2 +- input/test/Makefile | 4 + lily/main.cc | 17 +- mutopia/Makefile | 2 +- mutopia/standchen.ly | 875 +++++++++++++++------------------ 6 files changed, 426 insertions(+), 484 deletions(-) diff --git a/Documentation/man/lilypond.pod b/Documentation/man/lilypond.pod index 9338fd8f79..9ba489dc1c 100644 --- a/Documentation/man/lilypond.pod +++ b/Documentation/man/lilypond.pod @@ -65,15 +65,11 @@ Add F to the search path for input files. Make incompatible mudela version non-fatal. -=item B<--no-postscript, -P>, +=item B<--find-quarts, -Q>, -Don't generate embedded PostScript (or MetaFont) symbols, but resort to -less beautiful fixed-size versions. +Warn about melodic intervals larger than a fourth. Useful for +converting absolute octave mode stuff to relative octaves. -LilyPond uses PostScript for variable symbols where possible. (For some -of these symbols runtime MetaFont source will be genarated too. These are -not used unless you also include the appropriate TeX file too. See -F.) =back diff --git a/input/Makefile b/input/Makefile index 4167e225f9..b74c0c32a3 100644 --- a/input/Makefile +++ b/input/Makefile @@ -9,6 +9,6 @@ SUBDIRS=test bugs include $(depth)/make/Mutopia.make -WWW_examples=twinkle-pop praeludium-fuga-E cadenza twinkle +examples=twinkle-pop praeludium-fuga-E cadenza twinkle include $(depth)/make/WWW.make diff --git a/input/test/Makefile b/input/test/Makefile index b03bae72a4..9fa614ef2e 100644 --- a/input/test/Makefile +++ b/input/test/Makefile @@ -6,4 +6,8 @@ depth = ../.. # +examples = font20 + include $(depth)/make/Mutopia.make + +include $(depth)/make/WWW.make diff --git a/lily/main.cc b/lily/main.cc index 2049462714..bd5c6276de 100644 --- a/lily/main.cc +++ b/lily/main.cc @@ -24,6 +24,7 @@ bool version_ignore_global_b = false; bool no_paper_global_b = false; bool no_timestamps_global_b = false; +bool find_quarts_global_b = false; String default_outname_base_global = "lelie"; int default_count_global; @@ -45,6 +46,7 @@ Long_option_init theopts[] = { {0, "no-paper", 'M'}, {0, "dependencies", 'd'}, {0, "no-timestamps", 'T'}, + {0, "find-quarts", 'Q'}, {0, "ignore-version", 'V'}, {0,0,0} }; @@ -58,17 +60,17 @@ usage () "\n" "Options:\n" " -D, --debug enable debugging output\n" - " -d, --dependencies write dependency files for every output\n" + " -d, --dependencies write Makefile dependencies for every input file\n" + " -Q, --find-quarts show all intervals bigger than a quart\n" " -I, --include=DIR add DIR to search path\n" " -i, --init=FILE use FILE as init file\n" " -h, --help this help\n" - " -w, --warranty show warranty and copyright\n" + " -M, --no-paper produce midi output only\n" " -o, --output=FILE set FILE as default output\n" " -t, --test switch on experimental features\n" - " -M, --no-paper produce midi output only\n" - " -V, --ignore-version ignore mudela version\n" - " -T, --no-timestamps don't timestamp the output\n" + " -V, --ignore-version ignore mudela version\n" + " -w, --warranty show warranty and copyright\n" "\n" "GNU LilyPond was compiled with the following settings:\n") #ifdef NDEBUG @@ -85,8 +87,6 @@ usage () "\n"; ; - - } void @@ -160,6 +160,9 @@ main (int argc, char **argv) notice (); exit (0); break; + case 'Q': + find_quarts_global_b = true; + break; case 'I': path.push (oparser.optional_argument_ch_C_); break; diff --git a/mutopia/Makefile b/mutopia/Makefile index dc989a75a2..acb5a44fc0 100644 --- a/mutopia/Makefile +++ b/mutopia/Makefile @@ -10,7 +10,7 @@ depth = .. SUBDIRS = J.S.Bach Coriolan EXTRA_DISTFILES += TODO -examples=standje gallina +examples=standchen gallina # diff --git a/mutopia/standchen.ly b/mutopia/standchen.ly index 2a407932f0..03148d90a0 100644 --- a/mutopia/standchen.ly +++ b/mutopia/standchen.ly @@ -1,519 +1,458 @@ \header{ -filename = "standchen.ly"; -title = "St\"andchen (Serenade)\\\``Leise flehen meine Lieder''"; -opus = "D. 957 No. 4"; -composer = "Franz Schubert (1797-1828)\\\ \hfill Text by Ludwig Rellstab (1799-1860)"; -enteredby = "JCN"; -copyright = "public domain"; +filename = "standchen.ly"; +title = "St\"andchen"; +subtitle = "(Serenade)\\\``Leise flehen meine Lieder''"; +opus = "D. 957 No. 4"; +composer = "Franz Schubert (1797-1828)" + "Text by Ludwig Rellstab (1799-1860)"; +enteredby = "JCN"; +copyright = "public domain"; } %{ - Tested Features: multivoice, accents, lyrics, chords, piano music, + Tested Features@ multivoice, accents, lyrics, chords, piano music, multiple \paper{}s in one \score %} -\include "paper20.ly" \version "0.1.10"; -commands = \melodic{ - \skip 2.*4; - \bar "|:"; - \skip 2.*24; -% volta1 - \skip 2.*8; -% volta2 - \bar ":|"; - \skip 2.*22; - \bar "|."; - } - -melodie = \melodic{ - \meter 3/4; - \clef "violin"; - \key bes; +$vocal_verse1 = \melodic{ \octave c'; - \duration 8; - r \pp < [ d 'a-| > f-| < d 'a-| > f-| < d 'a-| ] > | -%%2 - r < [ d 'bes-| > f-| < d 'bes-| > f-| < d 'bes-| ] > | -%%3 - \textstyle "italic"; - r_"simile" < [ d 'bes > e < d 'bes > e < d 'bes ] >| - \textstyle "roman"; -%%4 - r < [ 'a cis > e < 'a cis > e < 'a cis ] > | -%%5 - [2/3 a() bes a ]1/1 d'4. a | -%%6 - [2/3 g() a g ]1/1 d'4 g r | - -%%7 - a4.^> g [2/3 g() f e ]1/1 | -%%8 - f2 r4 | -%%9 - < { a'4.() g' [2/3 g'( f' )e' ]1/1 } - { cis'4. e'_"dolce" \[2/3 e' \] } > | -%%10 - < f'2. d'2. > | -%%11 - [2/3 a () bes a ]1/1 f'4. a | -%%12 - [2/3 g() a g ]1/1 e'4. d' | -%%13 - c'4. bes [2/3 bes() a g ]1/1 | -%%14 - a2 r - < { d'() c'4. g [2/3 bes a g ]1/1 } - { f \p () e4._"dolce" bes \[2/3 g \] } > | -%%16 - < a2. f2. > | -%%17 - \textstyle "italic"; - [ a8._"cresc." cis'16 ] f'4. e' - \textstyle "roman";| -%%18 - [ d'8. a16 ] f4. d | -%%19 -%#% c'\grace\stemup - [2/3 bes () a bes ]1/1 d'4. bes | -%%20 - a2. | -%%21 -%#% a\grace - [2/3 g() fis g ]1/1 bes4.^> g | -%%22 - f!2. | -%%23 - [ a8. \mf cis'16 ] f'4. e' | -%%24 - [ d'8. a16 ] fis4. d | -%%25 - [2/3 b \mf() ais b ]1/1 d'4. b | -%%26 - < a2. fis2. > | -%%27 - [2/3 e' \f() dis' e' ]1/1 g'4. cis' | -%%28 - < d'2. fis2. > | -%#%\volta1 -%%29 - < { bes2( [ d'8.() )bes16 ] } - { g2 \mf [ bes8. g16 ] } > | -%%30 - < { a4. [ a-. a-. a-. ] } - { fis4. [ fis-.( fis-. )fis-. ] } > | -%%31 - < { a4. [ a-. a-. a-. ] } - { g4. [ cis-.( e-. )g-. ] } > | -%%32 - < a2 fis2 \pp > < a4 fis4 > | -%%33 - < { b2( [ d'8.() )b16 ] } - { g2 [ b8. g16 ] } > | -%%34 - < { a4. [ a-. a-. a-. ] } - { fis4. [ fis-.( fis-. )fis-. ] } > | -%%35 - < { a4. [ a-. a-. a-. ] } - { g4. [ cis-.( e-. )g-. ] } > | -%%36 - < a2. fis2. > | -%#%\volta2 -%%37 - [ a8. a16 ] [ cis'8. cis'16 ] [ e'8. e'16 ] | -%%38 - d'4() cis'4 r4 | -%%39 -%#% > a4. [ cis' e'8. >! d'16 ] | - a4. \> [ cis' e'8. \! d'16 ] | -%%40 - cis'2 r4 | -%%41 - < fis'4. \> cis'4. \f > e' [2/3 e'() d' \! cis' ]1/1 | -%%42 - [ b8. cis'16 ] d'4^> b r | -%%43 - - [ b8. \f cis'16 ] d'4^> b r | -%%44 - [ b8. \> cis'16 ] d'4^> b \! r | -%%45 - [2/3 b \p () ais b ]1/1 d'4. b | -%%46 - | -%%47 - [2/3 e' \f() dis' e' ]1/1 g'4.^> cis' | -%%48 - \textstyle "italic"; - < - { fis2.( - %\group "+1"; - \stemdown )f2. } - { d'2. ( \stemup - ) d'4 r4_"decresc." d'4 } - > - \textstyle "roman"; | -%%50 - < bes2. e2. > | -%%51 - < a2. cis2. > | -%%52 - < fis2 d2 > < a4 fis4 \pp > | -%%53 - - < bes2 g2 > < [ d'8.^> bes8. > < bes16 g16 ] > | -%%54 - < { a4. [ a-. a-. a-. ] } - { fis4. [ fis-.( fis-. )fis-.] } > | -%%55 - < { a4. [ a-. a-. a-. ] } - { g4. [ cis-.( e-. )g-. ] } > | -%%56 - \textstyle "italic"; - < a2. fis2._"dim." > - \textstyle "roman"; | -%%57 - < a2. fis2. > | -%%58 - < a2.^\fermata fis2. > | -%#%\tighten + % ugh: treble/bass +% \clef treble; +% \clef violin; + [/3 g8( )as] g \] c'4. g8 | + [/3 f8( )g] f \] c'4 f8 r | + g4.-> f8 [/3 f( )es] d \] | + es2 r4 | + % ugh: a whole should be a measure + %r1 | + r2. | + r2. | + [/3 g8( )as] g \] es'4. g8 | + [/3 f8( )g] f \] d'4. c'8 | + bes4. as8 [/3 as( )g] f \] | + g2 r4 | + r2. | + r2. | + g8. b16 es'4. d'8 | + c'8. g16 es4. c8 | + % [/3 as\grace( bes ] ) + [/3 as8( )g] as \] c'4. as8 | + g2. | + %[/3 f\grace( g] ) + [/3 f8( )e] f \] as4. f8 | + es!2. | + g8. b16 es'4. d'8 | + c'8. g16 e4. c8 | + % [/3 a\grace( b] ) + [/3 a!8( ) gis] a \] c'4. a8 | + g!2. | + % [/3 a\grace( b] ) + [/3 d'8\f cis'] d' \] f'4. b8 | + c'!2. | } -begeleiding = \melodic{ - \meter 3/4; - \clef"bass"; - \key bes; +$vocal_through = \melodic{ \octave c'; - \duration 2; - 'd r4 | -%%2 - ''bes r4 | - -%%3 - ''g r4 | - -%%4 - ''a r4 | -%%5 -\duration 8; - \multi 2 < { \stemup - [ 'f 'a d 'a d 'a ] - [ 'd 'e 'g 'e 'g 'e ] - [ 'cis 'e 'g 'e 'g 'e ] - [ 'd 'a d 'a d 'a ] - } - { \stemdown - 'd2 r4 - ''bes2 r4 - ''a2 r4 - 'd2 r4 - } > -%%9 - \stemboth - [ 'a e g e g e ] | -%%10 - [ 'd 'a d 'a d 'a ] | -%%11 - \multi 2 < - { \stemup - [ 'f 'a d 'a d 'a ] - [ 'd 'e 'g 'e 'g 'e ] - [ 'e 'g 'bes 'g 'bes 'g ] - [ 'a c f c f c ] - } { \stemdown - 'd2 r4 - ''bes2 r4 - 'c2 r4 - 'f2 r4 } - > -%%15 - \stemboth - [ 'c 'g 'bes 'g 'bes 'g ] | -%%16 - [ ''f 'c 'f 'c 'f 'c ] | - \multi 2 < - { \stemup - [ ''a 'e 'g 'e 'g 'e ][ 'd 'a d 'a d 'a ] - [ ''bes 'f 'bes 'f 'bes 'f ][ ''f 'c 'f 'c 'f 'c ] } - { \stemdown - ''a2 r4 - 'd2 r4 - ''bes2 r4 - ''f2 r4 - } > -%%21 - \stemboth - < [ 'e 'c > 'g c 'g c 'g ] | -%%22 - [ 'f 'a c 'a 'f 'c ] | - \multi 2 < { - \stemup - [ ''a 'e 'g 'e 'g 'e ] - [ 'd 'fis 'a 'fis 'a 'fis ] - [ ''g 'd 'b 'd 'b 'd ] - [ 'd 'a d 'a d 'a ] - } - {\stemdown - ''a2 r4 - 'd2 r4 - ''g2 r4 - 'd2 r4 - } - > - \stemboth - < [ 'cis ''a > 'e 'a 'e 'a 'e ] | -%%28 - [ 'd 'a d 'a d 'a ] | -%%29 - [ 'd 'g 'bes 'g 'bes 'g ] | -%#%\volta1 -%%30 - [ 'd 'fis 'a 'fis 'a 'fis ] | -%%31 - [ ''a 'e 'a 'e 'a 'e ] | -%%32 - [ 'd 'fis 'a 'fis 'a 'fis ] | -%%33 - [ 'd 'g 'b 'g 'b 'g ] | -%%34 - [ 'd 'fis 'a 'fis 'a 'fis ] | -%%35 - [ ''a 'e 'a 'e 'a 'e ] | -%%36 - [ 'd 'fis 'a 'fis 'a 'fis ] | -%#%\volta2 -%%37 - [ ''a 'e 'g 'e ''bes^> 'e ] | -%%38 - [ ''a < e cis 'a > < e cis 'a > < e cis 'a > < e cis 'a > < e cis 'a ] > | -%%39 - [ ''a 'e 'g 'e ''bes^> 'e ] | -%%40 - [ ''a < e cis 'a > < e cis 'a > < e cis 'a > < e cis 'a > < e cis 'a ] > | -%%41 - [ ''ais 'e 'fis 'e 'fis 'e ] | -%%42 - < [ 'd ''b > 'fis 'b 'fis 'b 'fis ] | -%%43 - < [ 'e ''b > 'g 'b 'g 'b 'g ] | -%%44 - < [ 'd ''b > 'fis 'b 'fis 'b 'fis ] | -%%45 - \multi 2 < { \stemup - [ ''g 'd 'b 'd 'b 'd ] - [ 'd 'a d 'a d 'a ] - } { - \stemdown - ''g2 r4 - 'd2 r4 - } > - -%%47 - \stemboth - < [ 'cis ''a > 'e 'a 'e 'a 'e ] | -%%48 - [ 'd 'fis 'a 'fis 'a 'fis ] | -%%49 - [ 'd 'a d 'a d 'a ] | -%%50 - [ ''g 'e 'g 'e 'g 'e ] | -%%51 - [ ''a 'e 'g 'e 'g 'e ] | -%%52 - [ ''d 'd 'fis 'd 'fis 'd ] | -%%53 - [ 'd 'g 'bes 'g 'bes 'g ] | -%%54 - [ 'd 'fis 'a 'fis 'a 'fis ] | -%%55 - [ ''a 'e 'g 'e 'g 'e ] | -%%56 - [ ''d ''a 'd ''a 'd ''a ] | -%%57 - [ ''d ''a 'd ''a 'd ''a ] -%%58 - < 'd2.^\fermata ''d2. > | - } - - -tekstI = \lyric{ - \meter 3/4; - \duration 4; - _ _ _ - _ _ _ - _ _ _ - _ _ _ + g8. g16 b8. b16 d'8. d16 | + c'4 b r | + g4. b8 d'8. c'16 | + b2 r4 | + e'4. d'8 [/3 d'( )c'] b \] | + a8. b16 c'4-> a8 r | + r2. | + r2. | + % 4 bars copied from end verse 1 + % [/3 a\grace( b] ) + [/3 a!8( ) gis] a \] c'4. a8 | + g!2. | + % [/3 a\grace( b] ) + [/3 d'8\f cis'] d' \] f'4. b8 | + c'!2. ~ | + c'4 r c' | + as2. | + g | + es2 r4 | +} + +$lyric_verse1 = \lyric{ % 5 - \[2/3 Lei- se8 \] fleh-4. en8 - \[2/3 mei- ne8 \] Lie- der8 _8 - Durch4. die8 \[2/3 Nacht zu8 \] - dir;2 _ - _ _ _ - _ _ _ + \[/3 Lei-4 se8 \] fleh-4. en8 | + \[/3 mei-4 ne8 \] Lie-4 der8 _8 | + Durch4. die8 \[/3 Nacht4 zu8 \] | + dir;2 _4 | + _4 _ _ | + _ _ _ | % 11 - \[2/3 In den8 \] stil-4. len8 - \[2/3 Hain her-8 \] nie-4. der,8 - Lieb4. chen,8 \[2/3 komm zu8 \] - mir!2 _ - _ _ _ - _ _ _ - + \[/3 In4 den8 \] stil-4. len8 | + \[/3 Hainr4 her-8 \] nie-4. der,8 | + Lieb4. chen,8 \[/3 komm4 zu8 \] | + mir!2 _4 | + _4 _ _ | + _ _ _ | % 17 - Fl\"us-8. ternd16 schlan-4. ke8 - Wip-8. fel16 rau-4. schen8 - \[2/3 In des8 \] Mon-4. des8 - Licht;2. - _ _ _ - _ _ _ - -% 23 - Des8. Ver-16 r\"a-4. ters8 - feind-8. lich16 Lau-4. schen8 - \[2/3 F\"urch- te,8 \] Hol-4. de,8 - nicht.2. - _ _ _ - _ _ _ - -% volta 1 -% 29 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - -% volta 2 -% 37 - La\ss8. auch16 dir8. die16 Brust8. be-16 - we- gen, _ - Lieb-4. chen,8 h\"o-8. re16 - mich!2 _ - Be-8. bend16 harr' ich8 _8 - dir8. ent-16 ge- gen!8 _8 - \[2/3 Komm, be-8 \] gl\"u4. cke8 - mich!2. - _ _ _ _ _ _ -% 47 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ -% 57 - _ _ _ _ _ _ - + Fl\"us-8. ternd16 schlan-4. ke8 | + Wip-8. fel16 rau-4. schen8 | + \[/3 In4 des8 \] Mon-4. des8 | + Licht;2. | + _4 _ _ | + _4 _ _ | +% 23 + Des8. Ver-16 r\"a-4. ters8 | + feind-8. lich16 Lau-4. schen8 | + \[/3 F\"urch-4 te,8 \] Hol-4. de,8 | + nicht,2. | + \[/3 f\"urch-4 te,8 \] Hol-4. de,8 | + nicht.2. | } - -tekstII = \lyric{ - \meter 3/4; - \duration 4; - _ _ _ - _ _ _ - _ _ _ - _ _ _ + +$lyric_verse2 = \lyric{ % 5 - \[2/3 H\"orst die8 \] Nach-4. ti-8 - \[2/3 gal- len8 \] schla- gen?8 _8 - Ach!4. sie8 \[2/3 fleh- en8 \] - dich,2 _ - _ _ _ - _ _ _ + \[/3 H\"orst4 die8 \] Nach-4. ti-8 + \[/3 gal-4 len8 \] schla-4 gen?8 _8 + Ach!4. sie8 \[/3 fleh-4 en8 \] + dich,2 _4 + _4 _ _ + _4_ _ % 11 - \[2/3 Mit der8 \] T\"o-4. ne8 - \[2/3 s\"u\ss- en8 \] Kla-4. gen8 - Fleh-4. en8 \[2/3 sie f\"ur8 \] - mich.2 _ - _ _ _ - _ _ _ + \[/3 Mit4 der8 \] T\"o-4. ne8 + \[/3 s\"u\ss-4 en8 \] Kla-4. gen8 + Fleh-4. en8 \[/3 sie4 f\"ur8 \] + mich.2 _4 + _4_ _ + _4_ _ % 17 Sie-8. ver-16 stehn4. des8 Bus-8. ens16 Seh-4. nen,8 - \[2/3 Ken- nen8 \] Lieb-4. es-8 + \[/3 Ken-4 nen8 \] Lieb-4. es-8 + schmerz,2. + \[/3 Ken-4 nen8 \] Lieb-4. es-8 schmerz,2. - _ _ _ - _ _ _ % 23 R\"uh-8. ren16 mit4. den8 Sil-8. ber-16 t\"o-4. nen8 - \[2/3 Jed- es8 \] wei-4. che8 + \[/3 Jed-4 es8 \] wei-4. che8 Herz.2. - _ _ _ - _ _ _ -% volta 1 -% 29 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - -% volta 2 + \[/3 Jed-4 es8 \] wei-4. che8 + Herz.2. +} + +$lyric_through = \lyric{ % 37 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ -% 47 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ -% 57 - _ _ _ _ _ _ + La\ss8. auch16 dir8. die16 Brust8. be-16 | + we-4 gen, _ | + Lieb-4. chen,8 h\"o-8. re16 | + mich!2 _4 | + Be-8. bend16 harr'4 ich8 _8 | + dir8. ent-16 ge-4 gen!8 _8 | + \[/3 Komm,4 be-8 \] gl\"u4. cke8 | + mich!2. | + \[/3 Komm,4 be-8 \] gl\"u4. cke8 | + mich!2. | + _2 be-4 | + gl\"u-2. | + cke2. | + mich!2 _4 | +} + +$treble_intro = \melodic{ + \octave c'; + \clef violin; + % ugh: i'd like to type this! + %r8\pp [<'g-. c-.> <'g-. c-.> <'g-. c-.>] | + r8\pp <['g-. c-.> <'g-. c-.> <'g-. c-.]> | + r8 <['as-. c-.> <'as-. c-.> <'as-. c-.]> | + r8 <['as-. c-.> <'as-. c-.> <'as-. c-.]> | + r8 <['g-. 'b-.> <'b-. d-.> <'g-. 'b-.> <'b-. d-.> <'g-. 'b-.]> | + \break; } -$treble_staff = \type Staff = treble< - \commands - \melodie +$treble_verse1 = \melodic{ + \octave c'; +% \clef violin; + r8 <['g c> <'g c> <'g c]> | + r8 <['f c> <'f c> <'f c]> | + r8 <['f 'g 'b> <'g 'b d> <'f 'g 'b> <'g 'b d> <'f 'g 'b]> | + r8 <['es 'g c> <'g c es> <'es 'g c> <'g c es> <'es 'g c]> | + <)f'8 d'> <[/3 f' d'> | + | + r8 <['g c> <'g c> <'g c]> | + r8 <['f c> <'f c> <'f c]> | + r8 <['f 'as 'bes> <'as 'bes d> <'f 'g 'bes> <'g 'bes d> <'f 'g 'bes]> | + r8 <['es 'g 'bes> <'g 'bes es> <'es 'g 'bes> <'g 'bes es]> + <{ es'( | )bes4. as8}{ c'( | )d4.( )f8 } > + < [/3 f as> | + | + r8 <['f 'g> <'g 'b> <'f 'g> <'g 'b> <'f 'g]> | + r8 <['es 'g> <'g c> <'es 'g> <'g c> <'es 'g]> | + r8\pp <['es 'as c> <'as c es> <'es 'as c> <'as c es> <'es 'as c]> | + r8 <['es 'g 'bes> <'g 'bes 'es> <'es 'g 'bes> <'g 'bes 'es> <'es 'g 'bes]> | + % [/3 as\grace( bes ) + [/3 as8(( g )as]1/1 c'4.-> ) as8 | + g2. | + r8 <['f 'g> <'g 'b> <'f 'g> <'g 'b> <'f 'g]> | + r8 <['e 'g> <'g c> <'e 'g> <'g c> <'e 'g]> | + r8 <['f 'a c> <'a c f> <'f 'a c> <'a c f> <'f 'a c]> | + r8 <['e 'g c> <'g c e> <'e 'g c> <'g c e> <'e 'g c]> | + <{[/3 f'8\f( e' f']1/1 a'4. )f'8 } {\[/3 f e f \] a4. f8 } > | + r4 | +} + +$treble_eentje = \melodic{ + \octave c'; + <[as8.->( c'> <)f16 )as]> | + <[e8-. g-.(> | + <['b8-. g-.(> | + | + <[a8.( c'> <)f16 )a]> | + <[e8-. g-.(> | + <['b8-. g-.(> | + | +} + +$treble_through = \melodic{ + \octave c'; + r2. | + % lily: 221: warning: Junking request: Span_dynamic_req: the \> + <['g8.\< g> <'g16 g> <'b8. b> <\!'b16\> b16> | + % lily: 222: warning: Can't find cresc to end. + < { c4( )'b } { c'4( )b } > \!r | +% ugh +% <'g4. g> <'b8 b> <[d8.-> d'->> c'16] | + <'g4. g> <'b8 b> [d'8.-> c'16] | +% ugh, ugh: connecting chords + < { d2.\f( )a2} { e2. ~ e2 } { b2. c2 }> r4 | + < + { + \voiceone + [a8. b16] c'4->( )a8 r | + [a8. b16] c'4->( )a8 r | + } + { + \voicetwo + | + | + } + > + % 4 bars copied from end verse1 + r8 <['f\p 'a c> <'a c f> <'f 'a c> <'a c f> <'f 'a c]> | + r8 <['e 'g c> <'g c e> <'e 'g c> <'g c e> <'e 'g c]> | + <{[/3 f'8\f( e' f']1/1 a'4. )f'8 } {\[/3 f e f \] a4. f8 } > | + r4 | + r4 | + r4 | + <'b2 b> r4 | + | + + % four copied from begin eentje + <[as8.->( c'> <)f16 )as]> | + <[e8-. g-.(> | + <['b8-. g-.(> | + \textstyle "italic"; + | + <'g2. e g> | + <'g2.-\fermata e g> | +} + +$bass_intro = \melodic{ + \octave c; + \clef bass; + <'c2 c> r4 | + <''as2 'as> r4 | + <''f2 'f> r4 | + <''g2 'g> r4 | +} + +$bass_verse1 = \melodic{ + \octave c; +% \clef bass; + <'c2 c> r4 | + <''as2 'as> r4 | + <''g2 'g> r4 | + <'c2 c> r4 | + <''g8 'g> <[g d'> | + <'c8 c> <[g c'> | + <'c2 c> r4 | + <''as2 'as> r4 | + <''bes2 'bes> r4 | + <''es2 'es> r4 | + ''bes8 <['bes f> <'bes f> <'bes f]> | + ''es8 <['bes es> <'bes es> <'bes es]> | + <''g2 'g> r4 | + <'c2 c> r4 | + <''as2 'as> r4 | + <''es2 'es> r4 | + <''bes8 'bes> <[f bes> | + <''es8 'es> <[es g bes> | + <''g2 'g> r4 | + <'c2 c> r4 | + <''f2 'f> r4 | + <'c2 c> r4 | + <''g8 'g> <[d g> | + 'c8 <[c e g> | +} + +$bass_eentje = \melodic{ + \octave c; + <'c8 c> <[c f as!> | + 'c8 <[c e g> | + <''g8 'g> <[d g> | + 'c8 <[e g> | + <'c8 c> <[c f a> | + 'c8 <[c e g> | + <''g8 'g> <[d g> | + 'c8 <[e g> | +} + +$bass_through = \melodic{ + \octave c; + <''g8 'g> <['g 'b d> <'b d f> <'g 'b d> <'as!-> b-> d->> <'b d f]> | + <''g8 'g> <['g d> <'g d> <'as-> b-> d->> <'b d f]> | + % copied + <''g8 'g> <['g d> <'g d> <'as-> b-> d->> <'b d f]> | + <''g8 'g> <['g d e> <'g d> <'gis-> 'b-> d->> <'b d f]> | + <''gis8 'gis> <[d e> | + <''a8 'a> <[c e> | + <''a8 'a> <['a d f> <'a d f> <'a d f]> | + <''a8 'a> <['a c e> <'a c e> <'a c e]> | + % 4 bars copied from end verse1 + <''f2 'f> r4 | + <'c2 c> r4 | + <''g8 'g> <[d g> | + 'c8 <[c e g> | + + <'c8 c> <[c es! g> | + <''f8 'f> <[d f> | + <''g8 'g> <[d f> | + 'c8 <[c e> | + 'c8 <[c f> | + 'c8 <[c e> | + ''g8 <['g d> <'g d> <'g d]> | + % copied from two bars back + 'c8 <[c e> | + 'c8 <[c e> | + <'c2._\fermata 'g c> | +} + +global = \melodic{ + \meter 3/4; + \key bes es as; + \skip 4 * 12; + \break; + \skip 4 * 234; + \bar "|."; +} + + +$lyric_four = \lyric{ + _4 _ _ + _ _ _ + _ _ _ + _ _ _ +} + +lyrics = \melodic{ + \meter 3/4; +% \skip 4 * 12; + \$lyric_four + \$lyric_verse1 +% \skip 4 * 24; + \$lyric_four + \$lyric_four + \$lyric_verse2 + \$lyric_through +} + +$lyric_staff = \type Lyrics = lyric< + \$lyrics > + +vocals = \melodic{ + \skip 4 * 12; + \$vocal_verse1 + \skip 4 * 24; + \$vocal_verse1 + \$vocal_through +} + +$vocal_staff = \type Staff = vocal< + \property Staff.instrument = "alto sax" + \global + \$vocals +> + +% treble = \melodic{ +treble = { + \$treble_intro + \$treble_verse1 + \$treble_eentje + \$treble_verse1 + \$treble_through +} + +$treble_staff = \type Staff = treble< + \global + \treble +> + +bass = \melodic{ + \$bass_intro + \$bass_verse1 + \$bass_eentje + \$bass_verse1 + \$bass_through +} $bass_staff = \type Staff = bass< - \commands - \begeleiding + \global + \bass > - + $grand_staff = \type Grand_staff< \$treble_staff \$bass_staff > -$lyric_staff = \type Lyrics = lyric< - \tekstI - \tekstII -> +a4 = \paper{ + gourlay_maxmeasures = 7.; + linewidth= 193.\mm; +Score = \translator { + \type Score_engraver; -themusic = < - \$lyric_staff - \$grand_staff -> + \consists "Timing_engraver"; + \consists "Bar_column_engraver"; + \consists "Bar_number_engraver"; + \consists "Span_score_bar_engraver"; + \consists "Score_priority_engraver"; + \consists "Priority_horizontal_align_engraver"; + \consists "Vertical_align_engraver"; + + + \accepts "Staff_group"; + \accepts "Staff"; + \accepts "Rhythmic_staff"; + \accepts "Lyrics"; + \accepts "Grand_staff"; +} +} \score{ - \themusic + < + \$vocal_staff + \$lyric_staff + \$grand_staff + > + \paper{ \a4 } \midi{ \tempo 4 = 54; } - \paper{ - \paper_twenty - % 20pt music uses whole pagewidth - % ja Vette Pech. Koop maar een A3 printer - % huh? [jcn] - linewidth= 193.\mm; -% arithmetic_multiplier = 7.\pt; - - gourlay_maxmeasures = 9.; - \output "standchen-20.out"; - } - \paper{ - % 16pt mustn't use whole page width - linewidth= 160.\mm; -% arithmetic_multiplier = 6.\pt; -% gourlay_maxmeasures = 9.; - \output "standchen-16.out"; - } } + + + -- 2.39.5