From: fred Date: Sun, 24 Mar 2002 20:08:27 +0000 (+0000) Subject: lilypond-0.1.43 X-Git-Tag: release/1.5.59~3281 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5222c3cedfc582830ac5926d3dbc3a07cfcda01a;p=lilypond.git lilypond-0.1.43 --- diff --git a/input/gallina.ly b/input/gallina.ly deleted file mode 100644 index a45ce1d52f..0000000000 --- a/input/gallina.ly +++ /dev/null @@ -1,241 +0,0 @@ -\header{ -title = "La Gallina a 2 violini"; -date = "1637"; -source = "the manuscript of Canzoni overo Sonate Concertate " - "libro terzo, opera duodecima "; -composer = "Tarquinio Merula (1594/95-1665)"; -enteredby = "Mats Bengtsson"; -copyright = "Public Domain "; -} - - -%{ -From mats.bengtsson@s3.kth.seThu Aug 14 02:11:19 1997 -Date: Wed, 13 Aug 1997 18:24:53 +0200 -From: Mats Bengtsson -To: Han-Wen Nienhuys -Subject: Re: brevis? - -[snip] - -Hopefully it could be useful input to future improvements. I've entered the -music directly from the 1637 manuscript and intend to publish it public -domain on for example ftp.gmd.de when finished. You could include it as an -example in the distribution, but in that case I could add a LaTeX title file. -There were no beams in the manuscript so I didn't use them in this edition -either. - - /Mats - - -Tested Features: Note placement, multipart score, figured base, \breve - -%} -%{ - -note: the sharp signs hoovering over the bass part are no mistake, but -part of the basso continuo --HWN - -%} - -\version "0.1.8"; - -vi1=\melodic{ - \meter 4/4; - \octave c''; - - d8 d d d d4 A16 B c A | - B8 G G G16 A B8 G G G16 A | - B8 G G A16 B c4 B | - A8 D G2 Fis4 | - G2 r2 | - r1 | - d8 d d d d4 A16 B c A | - B8 G G G16 A B8 G G G16 A | - B8 G G A16 B c8 e d c | - B G c2 B4 | - c2 r | - r1 | - g8 g g g g4 d16 e f d | - e8 c c c16 d e8 c c c16 d | - e8 c c d16 e f4 e | - d8 G c2 B4 | - c8 G G G16 A B4 G | - r8 G G G16 A B4 G | - r8 E16 Fis G8 G Fis! G G Fis! | - G2 r | - r1 | - r16 d c B A G Fis E D8 d d d16 c | - B8 d d d16 c B8 d d d16 e | - fis4 g2 fis!4 | - r16 g f e d c B A G8 g g g16 f | - e8 g g g16 f e8 g g g16 a | - b4 c'2 b4 | - c'8 g g g16 f e4 d | - r8 g g g16 f e4 d | - r8 d16 A B8 B16 c A2 | - B1 | - \meter 3/2; - r4 d d d d d | - e1. | - r4 c c c c c | - d1. | - r4 d8 c B4 c8 d G4 A8 B | - E1. | - r4 e8 d cis4 d8 e A4 B8 cis! | - Fis1. | - r4 d d d d d | - e e8 d c4 d8 e A4 B8 c | - Fis4 fis8 e d4 e8 fis! B4 c8 d | - G4 g g g g g | - a4 c'8 b a4 b8 c' f4 g8 a | - d4 g g g g g | - a d8 c B4 c8 d A2 | - \meter 4/4; - B1 | - d8 d d d d4 A16 B c A | - B8 G G G16 A B8 G G G16 A | - B8 G c2 B4 | - c2 r | - g8 g g g g4 d16 e f d | - e8 G G G16 A B8 d d d16 e | - fis4 g2 fis!4 | - r16 g f e d c B A G8 g g g16 f | - e2 r8 d d d16 e | - fis a g fis e d c B A8 d d d16 e | - fis4 g2 fis!4 | - \cadenza 1; - g\breve - \bar "|."; -} - -vi2=\melodic{ - \meter 4/4; - \octave c''; - - r1 | r | r | - d8 d d d d4 A16 B c A | - B8 G G G16 A B8 G G G16 A | - B8 G G A16 B c4 B | - A8 D G2 Fis4 | - G2 r2 | - r1 | - g8 g g g g4 d16 e f d | - e8 c c c16 d e8 c c c16 d | - e8 c c d16 e f4 e | - d8 G c2 B4 | - c2 r | - r1 | - g8 g g g g4 d16 e f d | - e2 r8 G G G16 A | - B4 G r8 G G A16 B - c4 B A2 | - G r16 d c B A G Fis E | - D8 d d d16 c B8 d d d16 e | - fis4 g g4. fis!8 | - g2 r | - r16 d c B A G Fis E D8 d d d16 c | - B4 c2 B4 | - c d G2 | - r16 g f e d c B A G8 g g g16 f | - e4 d r8 g g g16 f | - e4 d r8 c16 G B8 B16 c | - A4 G2 Fis4 | - G1 | - \meter 3/2; - r1. | - r4 g8 f e4 f8 g c4 d8 e | - A1. | - r4 a8 g fis4 g8 a d4 e8 fis! | - B1. | - r4 g g g g g | - a1. | - r4 a a a a a | - b d8 c B4 c8 d G4 A8 B | - E4 g8 f e4 f8 g c4 d8 e | - A4 a8 g fis4 g8 a d4 e8 fis! | - B4 b8 a g4 a8 b e4 fis8 g | - c4 A A A A A | - B d8 c B4 c8 d D4 E | - Fis2 G Fis! | - \meter 4/4; - G1 | - r1 | r1 | - g8 g g g g4 d16 e f d | - e8 c c c16 d e8 G G G16 A | - B8 G c2 B4 | - c2 r | - r16 d c B A G Fis E D8 d d d16 c | - B4 c2 B4 | - c8 G G G16 A B d c B A G Fis E | - D8 d d d16 e fis16 a g fis e d c B | - A d c B A G Fis E D4 d | - \cadenza 1; - B\breve - \bar "|."; -} - -bc=\melodic{ - \clef "bass"; - \meter 4/4; - \octave c; - - G2 d^"4 3" | G1 | - g2 c4 G | d1^"3 4 3" | - G1 | g2 c4 G | - d1^"3 4 3" | G | - g2 c4 d | G1^"3 4 3" | - c1 | c2 F4 c | - G1^"3 4 3" | c | - c2 F4 c | G1^"3 4 3" | - c2 G | g G | - c4 G d2^"3 4 3" | G g | - fis g | d1^"3 4 3" | - G2 B | d1^"3 4 3" | - G^"3 4 3" | c4 B c2 | - G1^"3 4 3" | c4 B c g | - c B c G | d1^"3 4 3" | - G1 | - \meter 3/2; - g1. | c | - % 30 - f | d^"\\textsharp" | - g | c | - A | d^"\\textsharp" | - G | c | - d^"\\textsharp" | e | - f | g1 B2 | - d1.^"3 4 3" | - \meter 4/4; - G1 | - g2 fis | g G | - g1^"3 4 3" | c | - G^"3 4 3" | c2 G | - d1^"3 4 3" | G^"3 4 3" | - c2 G | d1^"\\textsharp" ( | - ) d^"3 4 3" | - \cadenza 1; - G\breve - \bar "|."; -} - -\score{ - \type Staff_group < - \vi1 - \vi2 - \bc - > - \paper{ - %linewidth=18.\cm; - \output "gallina.out"; - gourlay_maxmeasures=7.; - } - \midi{ - \tempo 4=90; - } -} - - - - - diff --git a/input/gallina.tex b/input/gallina.tex deleted file mode 100644 index 21bbf4dbd4..0000000000 --- a/input/gallina.tex +++ /dev/null @@ -1,24 +0,0 @@ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% gallina.tex -% Mats Bengtsson, 17/8 1997 -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\documentclass[a4paper]{article} - -\addtolength{\oddsidemargin}{-1cm} -\addtolength{\topmargin}{-1cm} -\setlength{\textwidth}{15cm} -\input lilyponddefs -\input titledefs -\begin{document} - -\title{La Gallina a 2 violini \\ -\normalsize from \textit{Canzoni overo Sonate Concertate - libro terzo, opera duodecima}, 1637} -\composer{Tarquinio Merula (1594/95-1665)} -%\instrument{M\"a\ss ig} % heu -%#%\tempo{M\"a\ss ig} -\makelilytitle -\input{gallina.out} - - -\end{document} diff --git a/input/scsii-menuetto.ly b/input/scsii-menuetto.ly deleted file mode 100644 index 91c488de41..0000000000 --- a/input/scsii-menuetto.ly +++ /dev/null @@ -1,174 +0,0 @@ -\header{ -filename = "scsii-menuetto.ly"; -title = "Cello Suite II"; -subtitle = "Part V"; -instrument = "Menuetto I"; % duh -description = "Cello suite transcribed for Viola"; -source = "?"; -opus = "BWV 1008 no. 5"; -composer = "Johann Sebastian Bach(1685-1750)"; -enteredby = "JCN"; -copyright = "public domain"; -} - -%{ - Tested Features:breaking algorithm, chords, multivoice, accents -%} - -\version "0.1.8"; - -%% Stuff from MPP version -% \lefttitle{Menuetto} -% \tempo{Moderato} -% \metron{4=120} -% -% \key\F % \key is F( f-major ) -% -% \slope{30} % Fool MusiXTeX into 30 / 10 steeper beam -% % because piece is set very tightly - -IImenuetto = \melodic{ -% \property Voice.beamslopedamping = \infinity - \clef"alto"; - \property Staff.instrument = cello - \meter 3/4; - \key bes; - \octave c'; - - \duration 8; - < a2 f2 d2 \f > bes4-. | -%%2 - \textstyle "finger"; % ugh. - - \multi 2 < - { \stemup; [ bes8^"1"( )a8 bes8-. g8-. ] a4-.^"4" } - - { \stemdown; < e8_"2" c8_"4" > } - > | - \stemboth; -%%3 -% \property Voice.beamslopedamping = \normal - < d4 'bes4-. > g4-. [ f8-. e8-. ] | -% \property Voice.beamslopedamping = \infinity -%%4 - \multi 2 < - { \stemup; [ f8( e8 )d8 cis8-. 'b8-. 'a8-. ] } - { \stemdown; 'a } - > | - \stemboth; -%%5 - < a2 f2 d2 > bes!4-. | -%%6 - \multi 2 < - { \stemup; [ bes8 a8 bes8-. g8-. ] } - { \stemdown; e8 } - > - \stemboth; - c'!4-. | -%%7 - < a4-. f4> - < d'4-.-\upbow f4 'bes4 > - < e'4-.-\downbow g4 'g4 > | -%%8 - < cis'2.-\upbow e2. 'a2. > - \bar ":|:"; -%%9 - \clef "violin"; - < e'2 a2 \f > -% \property Voice.beamslopedamping = \normal - [ d'8( e'16 )f'16 ] | -% \property Voice.beamslopedamping = \infinity -%%10 - \multi 2 < - { \stemup; [ e'8( d' cis'_"2" )e' a( )g8 ] } - { \stemdown; g8 } - > | - \stemboth; -%%11 - \multi 2 < - { \stemup; a4( )d'4 cis'4-. } - { \stemdown; f2 e4 } - > | - \stemboth; -%%12 - \multi 2 < - { \stemup; [ g'8^"4"( f' e' )f' d'^"3"( ) c' ] } - { \stemdown; d8 } - > | - \stemboth; -%%13 - \clef "alto"; - \multi 2 < - - { \stemup; bes2 c'4 } - { \stemdown; g4( )f4 e4 }% ugh - > | - \stemboth; -%%14 - \multi 2 < - { \stemup; [ a8 g8 a8 f8 ] } - { \stemdown; f8 } - > - \stemboth; - < d'4-\upbow e4 'bes4 > | -%%15 - < c'4-\downbow f4 'a4 > [ bes8( )a8 g8 a8 ] | -%%16 - [ f( e8 )f a8-. g8-. bes8-. ] | -%%17 - < a2^"0"^\trill fis2_"3" > bes4 | -%%18 - \multi 2 < - { \stemup; [ c'8( )bes8 c' a8 ] } - { \stemdown; es8 } - > - \stemboth; - fis4^\trill | -%%19 - < d'4-\downbow g4 'bes4 > < c'4-\upbow g4 c4 > < [ bes8 d8 > a8 ] | -%%20 - \multi 2 < - { \stemup; [ c'8( bes8 a8 )bes g( )bes8 ] } - { \stemdown; < d8 g8 > } - > | - \stemboth; -%%21 - \multi 2 < - { \stemup; d'4( )cis'4 d'4 } - { \stemdown; g2 f4 } - > | - \stemboth; -%%22 - \multi 2 < - { \stemup; [ g8( )f8 g8 e8 ] f4 } - { \stemdown; cis8 d4 } - > | - \stemboth; -%%23 -% \property Voice.beamslopedamping = \normal - [ 'g8 g8 ] < e4.^\trill 'a4. > d8-\upbow | -% \property Voice.beamslopedamping = \infinity -%%24 - \textstyle "roman"; % ugh - < d2.^"fine" 'a2. 'd2._"3 mins."> - \bar ":|"; -} - -\score{ - \melodic{ - \IImenuetto - } - \paper{ - linewidth= 150.0\mm; - % how does this work? - % why does space not have dim? - arithmetic_basicspace = 3.2; - % how can multiplier have dim? - arithmetic_mulitplier = 9.\pt; - \output "scsii-menuetto.out"; - } - \midi{ - \tempo 4 = 120; - \output "scsii-menuetto.midi"; - } -} diff --git a/input/scsii-menuetto.tex b/input/scsii-menuetto.tex deleted file mode 100644 index d6628ae59f..0000000000 --- a/input/scsii-menuetto.tex +++ /dev/null @@ -1,19 +0,0 @@ -\documentclass{article} %UGH -\usepackage{a4} -\advance\oddsidemargin-15mm -\evensidemargin\oddsidemargin -\advance\textwidth30mm -\begin{document} -\input lilyponddefs -\input titledefs -\def\interscoreline{\vskip6pt} -\title{Solo Cello Suites\normalsize\\[2ex]Suite II} -% \subtitle{Suite II} -\composer{J.\ S.\ Bach} -% \lefttitle{Menuetto} -% \tempo{Moderato} -% \metron{4=120} -\instrument{Menuetto I} % heu -\makelilytitle -\input scsii-menuetto.out -\end{document} diff --git a/input/standchen-16.ly b/input/standchen-16.ly deleted file mode 100644 index 8c0bda8e20..0000000000 --- a/input/standchen-16.ly +++ /dev/null @@ -1,14 +0,0 @@ -\header{ -filename = "standchen.ly"; -title = "St\"andchen (Serenade) \"Leise flehen meine Lieder\""; -opus = "D. 957 No. 4"; -composer = "Franz Schubert (1797-1828)" - "Text by Ludwig Rellstab (1799-1860)"; -enteredby = "JCN"; -description = "A schubert song in 16 pt"; -copyright = "public domain"; -} - -\version "0.1.8"; - -\include "standchen.ly" diff --git a/input/standchen-16.tex b/input/standchen-16.tex deleted file mode 100644 index e22d627ae9..0000000000 --- a/input/standchen-16.tex +++ /dev/null @@ -1,18 +0,0 @@ -\documentclass{article} %UGH -\usepackage{a4} -\advance\oddsidemargin-15mm -\evensidemargin\oddsidemargin -\advance\textwidth30mm - -\input titledefs -%\pagestyle{empty} -\begin{document} -\def\interscoreline{\vskip3mm} -\title{St\"andchen\normalsize\\[2ex](Serenade)} -\composer{Franz Schubert (1797-1828)} -\instrument{M\"a\ss ig} % heu -%#%\tempo{M\"a\ss ig} -\makelilytitle -\input{standchen-16.out} -%\input lelie.tex -\end{document} diff --git a/input/standchen-20.ly b/input/standchen-20.ly deleted file mode 100644 index 0f9dbee368..0000000000 --- a/input/standchen-20.ly +++ /dev/null @@ -1,14 +0,0 @@ -\header{ -filename = "standchen.ly"; -title = "St\"andchen (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"; -description = "A schubert song in 20 pt"; -} -\version "0.1.8"; - -% fool make-website -% \include "standchen.ly"; diff --git a/input/standchen-20.tex b/input/standchen-20.tex deleted file mode 100644 index d295d2f834..0000000000 --- a/input/standchen-20.tex +++ /dev/null @@ -1,22 +0,0 @@ -\documentclass{article} %UGH -\usepackage{a4} - -% -% UGH UGH -\advance\oddsidemargin-30mm -\evensidemargin\oddsidemargin -\advance\textwidth30mm -\addtolength{\textheight}{20mm} -\pagestyle{empty} -\begin{document} -\input lilyponddefs -\input titledefs -\def\interscoreline{\vskip3mm} -\title{St\"andchen\normalsize\\[2ex](Serenade)} -\composer{Franz Schubert (1797-1828)} -\instrument{M\"a\ss ig} % heu -%#%\tempo{M\"a\ss ig} -\makelilytitle -\input{standchen-20.out} -%\input lelie.tex -\end{document} diff --git a/input/standchen.ly b/input/standchen.ly deleted file mode 100644 index 73792caa2d..0000000000 --- a/input/standchen.ly +++ /dev/null @@ -1,508 +0,0 @@ -\header{ -filename = "standchen.ly"; -title = "St\"andchen (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, -multiple \paper{}s in one \score -%} - -\include "paper20.ly" -\version "0.1.8"; - -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; - \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 -} - -begeleiding = \melodic{ - \meter 3/4; - \clef"bass"; - \key bes; - \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; - _ _ _ - _ _ _ - _ _ _ - _ _ _ -% 5 - \[2/3 Lei- se8 \] fleh-4. en8 - \[2/3 mei- ne8 \] Lie- der8 _8 - Durch4. die8 \[2/3 Nacht zu8 \] - dir;2 _ - _ _ _ - _ _ _ -% 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 _ - _ _ _ - _ _ _ - -% 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 - _ _ _ _ _ _ - -} - -tekstII = \lyric{ - \meter 3/4; - \duration 4; - _ _ _ - _ _ _ - _ _ _ - _ _ _ -% 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 _ - _ _ _ - _ _ _ - -% 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 _ - _ _ _ - _ _ _ - -% 17 - Sie-8. ver-16 stehn4. des8 - Bus-8. ens16 Seh-4. nen,8 - \[2/3 Ken- 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 - Herz.2. - _ _ _ - _ _ _ -% volta 1 -% 29 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - -% volta 2 -% 37 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ -% 47 - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ - _ _ _ _ _ _ -% 57 - _ _ _ _ _ _ - -} - -themusic = - < - \type Lyrics < - \tekstI - \tekstII - > - \type Grandstaff < - \melodic < \melodie \commands > - \melodic < \begeleiding \commands > - > - > - - -\score{ - \themusic - \midi{ - \tempo 4 = 54; - } - \paper{ - \paper_twenty - % 20pt music uses whole pagewidth - % ja Vette Pech. Koop maar een A3 printer - % huh? [jcn] - linewidth= 195.\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"; - } -} diff --git a/input/standje.ly b/input/standje.ly deleted file mode 100644 index e6d29fd994..0000000000 --- a/input/standje.ly +++ /dev/null @@ -1,208 +0,0 @@ -\header{ -filename = "standje.ly"; -title = "St\"andchen (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, -multiple \paper{}s in one \score -%} - -\version "0.1.8"; - -$vocal_verse1 = \melodic{ - \octave c'; - % ugh: treble/bass -% \clef treble; - \clef violin; - [2/3 g8( )as] g \] c'4. g8 | - [2/3 f8( )g] f \] c'4 f8 r | - g4.-> f8 [2/3 f( )es] d \] | - es2 r4 | - % ugh: a whole should be a measure - %r1 | - r2. | - r2. | - [2/3 g8( )as] g \] es'4. g8 | - [2/3 f8( )g] f \] d'4. c'8 | - bes4. as8 [2/3 as( )g] f \] | - g2 r4 | - r2. | - r2. | - g8. b16 es'4. d'8 | - c'8. g16 es4. c8 | - % [as3 2\grace( bes3 2\grace] ) - [2/3 as8( )g] as \] c'4. as8 | - g2. | - %[f3 2\grace( g] ) - [2/3 f8( )e] f \] as4. f8 | - es!2. | - g8. b16 es'4. d'8 | - c'8. g16 e4. c8 | - % [a3 2\grace b] ) - [2/3 a!8( ) gis] a \] c'4. a8 | - g!2. | - [2/3 d'8\f cis'] d \] f'4. b8 | - c'2. | - r2. | - r2. | -} - -$lyric_verse1 = \lyric{ -% 5 - \[2/3 Lei-4 se8 \] fleh-4. en8 | - \[2/3 mei-4 ne8 \] Lie-4 der8 _8 | - Durch4. die8 \[2/3 Nacht4 zu8 \] | - dir;2 _4 | - _4 _ _ | - _ _ _ | -% 11 - \[2/3 In4 den8 \] stil-4. len8 | - \[2/3 Hainr4 her-8 \] nie-4. der,8 | - Lieb4. chen,8 \[2/3 komm4 zu8 \] | - mir!2 _4 | - _4 _ _ | - _ _ _ | -% 17 - Fl\"us-8. ternd16 schlan-4. ke8 | - Wip-8. fel16 rau-4. schen8 | - \[2/3 In4 des8 \] Mon-4. des8 | - Licht;2. | - _4 _ _ | - _4 _ _ | -% 23 - Des8. Ver-16 r\"a-4. ters8 | - feind-8. lich16 Lau-4. schen8 | - \[2/3 F\"urch-4 te,8 \] Hol-4. de,8 | - nicht,2. | - \[2/3 f\"urch-4 te,8 \] Hol-4. de,8 | - nicht.2. | - _4 _ _ - _ _ _ -} - -$treble_intro = \melodic{ - \octave c'; - \clef violin; - % ugh: i'd like to type this! - %r8 [<'g-. c-.> <'g-. c-.> <'g-. c-.>] | - r8 <['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-.]> | - -} - -$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'> <[2/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 } > - < [2/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]> | - % [as3 2\grace( bes ) - [2/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]> | - <{[2/3 f'8\f( e f']1/1 a'4. )f'8 } {\[2/3 f e f \] a4. f8 } > | - r4 | -% <{as!2\mf( [c'8. )as16]} {f2 as8( )f}> | - as!2\mf( [c'8. )as16] | - <[e8-.( g-.> <)e8-. 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''> | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | - <'c2 c> r4 | -} - - -global= \melodic {\meter 3 /4; \key bes es as; } - - -\score{ - \melodic< - \type Lyrics { - \meter 3 /4; \skip 4 * 12; \$lyric_verse1 - } - \type Staff { < - \global - { \skip 4 * 12; \$vocal_verse1 } - > } - - % i want a (grand) staff!!! - - \type Grandstaff < - < - \global - { \$treble_intro \$treble_verse1 } - > - < - \global - { \$bass_intro \$bass_verse1 } - > - > - > - \paper{ - % how does this work? - % previously we had the clear 'ideal whole note space' setting? - arithmetic_multiplier = 6.\pt; - % ugh: the *first* (intro) line may only have four measures... - gourlay_maxmeasures = 4.; - } -} - diff --git a/input/wtk1-fugue1.ly b/input/wtk1-fugue1.ly deleted file mode 100644 index e48c55b189..0000000000 --- a/input/wtk1-fugue1.ly +++ /dev/null @@ -1,207 +0,0 @@ -\header{ -filename = "fugue1.ly"; -title = "Fuga a 4"; -description = "Das Wohltemperierte Clavier I, Fuga I (c-major)"; -opus = "BWV 846"; -composer = "Johann Sebastian Bach (1685-1750)"; -enteredby = "Shay Rojansky"; -copyright = "Public Domain"; -} - -%{ - -%} -\version "0.1.8"; - - -global = - \melodic { - \meter 4/4; % should be \meter C - } - -tenor = - \melodic { - \clef "violin"; - \octave c'; - - \stemdown - r8 [c8 d e] [f. g32 f] [e8 a] | - [d g] ~ [g16 a g f] [e f e d] [c d c 'b] | - ['a8 fis] g4 ~ [g8 fis16 e] [f8 d] | - [g f! e d] c r r g ~ | -%% 5 - [g f16 e] f4 ~ [f16 f e8] d4 | - [c8 f] r16 [g f e] [f8 d] g4 ~ | - g4 r4 r2 | - r1 | - r8 [g8 a b] [c'. d'32 c'] [b8 e'] -%% 10 - [a d'] ~ [d'16 e' d' c'] b8 r8 r d | - [e fis] [g. a32 g] [fis8 b e a] ~ | - [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] | - [a gis a b] [gis fis gis a] b8 r8 r4 | - r8 [c8 d e] \stemup [f. g32 f] [e8 a] | -%% 15 - [d g] ~ [g16 a g f] e8 \stemdown [e fis g] ~ | - [g8 fis] [gis8 a] ~ [a g! a b] | - \stemboth - [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] | - [b8 g' cis' d'] [e' cis' d' e' ] | - \stemdown a8 r8 r e [fis g] \stemboth [a. b32 a] | -%% 20 - [g8 c' fis b] ~ [b16 c' b a] \stemdown [g fis e d] \stemboth | - e4 \stemdown d ~ [d16 a g f!] [e g f! a] | - g4 ~ [g16 a bes8] c'4 [d'8 g] | - \stemboth g4. f8 ~ [f e] d4 | - \stemdown e8 a4 g8 ~ [g8 f g a] | -%% 25 - [bes8. c'32 b] [a8 d'] [g c'] ~ [c'16 d' c' bes] | - [a bes a g] [f g f e] d4 ~ [d8. g16] | - a4 r16 [f'16 d'8] e'2 | - } - - -soprane = - \melodic { - \octave c'; - \stemup - r1 | - r2 r8 [g8 a b] | - [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] | - [b g a b] [c' b c' d'] [e' d' e' fis'] [g'8 b] | -%% 5 - [c' a] [d'16 c' b a] [g8. g16] [f e f g] | - [a g a b] c'2 b4 | - \octave c''; - r8 [c8 d e] [f. g32 f] [e8 a] | - [d g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] | - f2 [e8. fis16] g4 ~ -%% 10 - g4 fis [g16 f! e d] [c d c 'b] | - ['a16 c 'b 'a] 'g8 r8 r16 [c16 'b 'a] ['gis8 e] | - [d c16 'b16] ['a 'gis 'a 'b] [c 'fis 'a 'gis] ['b8 'a16 'b] - [c8 f e d] ~ [d c16 'b] ['b8. 'a16] | - 'a4 r4 r2 | -%% 15 - r2 r8 ['g8 'a 'b] | - [c8. d32 c] ['b8 c] [d e] [f!. g32 f!] | - [e8 a d g] ~ [g16 a g f] [e8 a] | - [d8 bes] [a g16 f] [g f g e] [f g g f32 g] | - [a16 cis d g] [e8. d16] d8 r8 r4 | -%% 20 - r2 r4 r8 'g | - ['a 'b] [c. d32 c] ['b8 e 'a d] ~ | - [e16 e d c] ['b c d e] [f g a g] [f e d c] | - 'b4 [c8 d] 'g c4 'b8 | - c4 ['b8 'bes8] 'a d4 c8 | -%% 25 - [d8 e] f4 ~ [f16 a g f] [e f e d] | - c2 r16 ['g32 'a 'b!16 c] [d e f8] ~ | - [f32 c d e f16 g] [a8. b16] | - } - -alt = - \melodic { - \clef "bass"; - \octave c; - - \stemup - r1 | - r | - r | - r8 [g8 a b] [c'. d'32 c'] [b8 e'] | -%% 5 - [a d'] ~ [d'16 e' d' c'] [b8 c' ~ c' bes8] | - [a d' g c'] r16 [a16 b c'] d'4 | - g4 r8 g8 [a b] [c'. d'32 c'] | - [b8 e' a d'] ~ [d'16 e' d' c'!] [b!8 e'] ~ | - e'4 d'4 [c'16 b c' a] [e' d' c' b] | -%% 10 - [c'16 a b c'] [d' c' b a] g4 r4 | - r1 | - r8 [e8 fis gis] [a. b32 a] [gis8 c'] | - [fis b] ~ [b16 c' b a] gis8 a4 gis8 | - a4 r8 g8 [a b] c'. [d'32 c'] | -%% 15 - [b8 e' a d'] ~ [d' g] d'4 | - [c'8 a] e'4 d'8 r8 r4 | - r8 [a8 b cis'] [d'. e'32 d'] [c'!8 f'] | - [b8 e'] ~ [e'16 f' e' d'] cis'8 r8 r4 | - r8 [a8 b cis'] [d'. e'32 d'] [c'!8 fis'] | -%% 20 - [b e'] ~ [e'16 fis' e' d'] c'2 ~ | - [c'16 d' c' b] [a g a fis] [g8 b c' d'] | - [e'. f'32 e'] [d'8 g'] [c' f'] ~ [f'16 g' f' e'] | - d'4 [e'8 d'] ~ [d' g] g4 ~ - [g8 c d e] [f. g32 f] [e8 a] | -%% 25 - [d g] ~ [g16 a g f] [e d e f] [g a bes g] | - [a e f g] [a b c' a] b2 | - c'1 | - } - -bass = - \melodic { - \clef "bass"; - \octave c; - - \stemdown - r1 | - r | - r | - r | -%% 5 - r2 r8 [c8 d e] | - [f. g32 f] [e8 a] [d g] ~ [g16 a g f] | - [e f e d] [c d c 'b] ['a8 d a fis] | - [g16 a bes g] [cis8 d] a4 e4 | - [a16 b c' d'] [c' b a g] c'8 r8 r4 | -%% 10 - r2 r8 ['g8 'a 'b] | - [c. d32 c] ['b8 e] ['a d] ~ [d16 e d c] | - 'b8 e4 d8 c f!4 e8 ~ | - e d4 e8 [f! e16 d] e4 | - 'a4 r4 r2 | -%% 15 - r8 ['g8 'a 'b] [c. d32 c] ['b8 e] | - ['a8 d] ~ [d16 e d c] ['b8 'bes 'a g'] | - ['a8 fis g e] d4 [e8 f!] | - [g8. a32 g] [f8 bes] [e a] ~ [a16 bes a g] | - [f e f d] [g8 a] d2 ~ | -%% 20 - [d16 e d c] ['b 'a 'g 'fis] ['e8 e fis g] ~ | - [g a16 g16] [fis8 d] g2 ~ | - g2 a4 [b8 c'] | - [f16 a g f] [e d c 'b] [c d e f] [g8 'g] | - c1 ~ | -%% 25 - c1 ~ | - c1 ~ | - c1 | - } - - -\score { - \melodic \type Grandstaff < - \multi 2 < - \global - \soprane - \tenor - > - \multi 2 < - \global - \alt - \bass - > - > - - \paper{ - gourlay_maxmeasures =5.; -% castingalgorithme = \Wordwrap - } - \midi { - \tempo 4 = 84; - } -} - -% EOF diff --git a/input/wtk1-fugue2.ly b/input/wtk1-fugue2.ly deleted file mode 100644 index 2d90c2ad90..0000000000 --- a/input/wtk1-fugue2.ly +++ /dev/null @@ -1,191 +0,0 @@ -\header{ -filename = "wohltemperirt.ly"; -title = "Fuga a 3"; -description = "Das Wohltemperierte Clavier I, Fuga II (c-minor)"; -opus = "BWV 847-Fuga"; -source = "Henle's Urtext"; -composer = "Johann Sebastian Bach (1685-1750)"; -enteredby = "HWN and Werner Lemberg"; -copyright = "Public Domain"; -} -%{ - Tested Features: stem direction, multivoice, forced accidentals. -%} - -\version "0.1.8"; - - % should add \need{dutch.ini} for - % correct parsing of note names - -global = - \melodic { - \meter 4/4; % should be \meter C - \keyCminor - \skip 1*31; - \bar "|."; | - } - -dux = - \melodic { - \clef "violin"; - \octave c'; - - \stemdown - r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] | - [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] | - [es c' b a] [g f! es d] [c8 es' d' c'] | - [bes a bes c'] [fis g a fis] | -%% 5 - g4 r16 [c d es] [f g as8~] [as16 d es f] | - [g a bes8~] [bes16 es f g] [as g f es] [d8 c'16 b!] | - % forced accident! - c'4 r4 r8 [f' es' d'] | - r8 [as g f] [g f16 es] [f8 d] | - g4 r8 b [c' c'16 b] [c'8 g] | -%% 10 - as4 r8 a [bes bes16 a] [bes8 f] | - g4 r8 g [as as g f] | - \translator Staff=bass \stemup - \octave c; r8 [as bes c'] r8 [as16 g] [as8 f8] | - [bes8 c' bes as] [bes g f es] | - [f des' c' bes] [c' as g f] | -%% 15 - \translator Staff=treble \stemdown - g8 \octave c'; [g16 fis] [g8 c] [es g16 fis!] [g8 a] | - [d g16 fis] [g8 a!] [c16 d] es4 [d16 c] | - % forced accident! - 'bes8 r8 r16 [d e fis] [g a bes8~] [bes16 e f g] | - [a bes c'8~] [c'16 fis16 g a] [bes8 es!16 d] [es8 'g] | - ['as f16 es] [f8 'a8] ['bes g16 f] [g8 'b] | -%% 20 - [c16 f es d] [c Bes! As G] [F8 as g f] | - [es d es f] [B c d B] | - c4 r8 e8 [f f16 e] [f8 c] | - d4 r8 d8 [es8 es16 d] [es8 Bes] | - c2 ~ [c8 d16 es][ f es f d] | -%% 25 - B8 r8 r B c r r es | - d r r f~ f r r f | - [es as g f] [es d es f] | - [B c d B] [B c] r c | - [f16 d es c]~ [c8 B] c4 r8 e | -%% 30 - f4 r8 f [f es16 d] [es8 | - r r | - } - - -comes = - \melodic { - \octave c''; - \stemup - r1 | - r1 | - r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] | - [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] | -%% 5 - ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a] - ['bes8 g16 f] [g8 'b] [c8 d16 es] f4~ | - [f8 es16 d] [c16 'bes! 'as 'g] ['f8 as g f] - [es d es f] ['b c d 'b] | - [c g16 fis] [g8 d] es4 r8 e8 | -%% 10 - [f f16 e] [f8 c8] d4 r8 d | - [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] | - ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] | - [G16 Es F G] [As Bes c d] [es d c d] [es f g a] | - [bes F G As] [Bes c d e] [f es d es] [ f g a b] | -%% 15 - [c'8 b16 a] [g f! es d] [c8 es d c] | - [Bes A Bes c] [Fis! G A Fis] | - % forced accident - [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 | - r [fis16 e] fis8 r r [G16 F] G8 r8 | - r8 [A16 G] A8 r r [B16 A] B8 r | -%% 20 - r8 [c16 'b] [c8 'g] [As c16 'b] [c8 d] | - [G c16 B] [c8 d] [F16 G] As4 [G16 F] | - [Es8 c16 B] [c8 G] As4 r8 A | - [Bes8 Bes16 A] [Bes8 F8] 'g4 r8 G~ | - [G As16 Bes] [c B c As] F2~ | -%% 25 - [F8 d16 c] [d8 F] [Es es16 d] [es8 G] | - [F f16 es] [f8 As] [G16 f es d] [c B A G] | - [c8 f es d] r [As G F] | - [G F16 Es] [F8 D] [As G] r A | - [B c] [F16 Es D C] C8 [c16 B] [c8 G] | -%% 30 - [As c16 B] [c8 [G8 c16 B] [c8 d] | - [F16 G] As4 [G16 F] E2 | - } - -bassdux = - \melodic { - \clef "bass"; - \octave c'; - r1 | - r | - r | - r | -%% 5 - r | - r1 | - r8 [c16 B] [c8 G] [As c16 B] [c8 d] | - [G c16 B] [c8 d] [F16 G] As4 [G16 F] | - \octave c; [es c' b a] [g f es d] [c d es d] [c Bes! As! G] | - % -> \classic_accidentals -%% 10 - [F bes as g] [f es d c] [Bes c d c] [Bes As G F] | - [Es as g f] [es des c Bes] [As8 c' bes as] | - [g8 f g as] [d es f d] | - [es as g f] [g es d c] | - [d bes as g] [as f es d!] | -%% 15 - es8 r8 r4 r8 [c Bes A] | - r [es d c] [d c16 Bes] [c8 d] | - [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] | - [f d'16 c'] [d'8 fis] g4 r16 [G A B] | - [c16 d es8~] [es16 A Bes c] [d es f8~] [f16 'b c d] | -%% 20 - es8 r r e [f F Es! D] | % -> \classic_accidentals - r [As G F] [G F16 Es] [F8 G] | - [c16 d es d] [c Bes As G] [F bes as g] [f es d c] | - [Bes c d c] [Bes As G F] [Es as g f] [es d c Bes] | - [As Bes c Bes] [As G F Es] [D g f es] [d c B A] | -%% 25 - G4 r4 r16 [G A B] [c d es f] | - [g f as g] [f es d c] [B8 c16 B] [c8 G] | - [As c16 B] [c8 d] [G c16 B] [c8 d] | - [F16 G] As4 [G16 F] Es4 r8 es | - [d c g G] -%% 30 - \multi 2 < - { \stemup c2~ | c1~ | c1 } - { \stemdown C2~ | C1~ | C1 } - > - } - - -\score { - \melodic \type Grandstaff < - \type Staff=treble < - \global - \dux - \comes - > - \type Staff=bass < - \global - \bassdux - > - > - - \paper{ - gourlay_maxmeasures =5.; - - } - \midi { - \tempo 4 = 84; - } -} - -% EOF diff --git a/input/wtk1-prelude1.ly b/input/wtk1-prelude1.ly deleted file mode 100644 index dea0195fa0..0000000000 --- a/input/wtk1-prelude1.ly +++ /dev/null @@ -1,184 +0,0 @@ -\header{ -filename = "prelude1.ly"; -title = "Preludium"; -description = "Das Wohltemperierte Clavier I, Prelude I (c-major)"; -opus = "BWV 846"; -composer = "Johann Sebastian Bach (1685-1750)"; -enteredby = "Shay Rojansky"; -copyright = "Public Domain"; -} - -\version "0.1.8"; - -global = - \melodic { - \meter 4/4; % should be \meter C - } - - -% should do programmable input. - -soprane = - \melodic { - \clef "violin"; - \octave c'; - - \multi 2 < - % Real soprane - {\stemup - r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | - r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] | - r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] | - r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | - r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] | - r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] | - r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] | - r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] | - r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |} - % Tenor - {\stemdown - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - r16 c8. ~ c4 r16 c8. ~ c4 |}> -%% 10 - r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] | - r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] | - r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] | - r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] | - r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] | - r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] | - r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] | - r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] | - r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | - r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] | -%% 20 - r8 ['bes16 c] [e 'bes c e] r8 ['bes16 c] [e 'bes c e] | - r8 ['a16 c] [e 'a c e] r8 ['a16 c] [e 'a c e] | - r8 ['a16 c] [ees 'a c ees] r8 ['a16 c] [ees 'a c ees] | - r8 ['b16 c] [d 'b c d] r8 ['b16 c] [d 'b c d] | - r8 ['g16 'b] [d 'g 'b d] r8 ['g16 'b] [d 'g 'b d] | - r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] | - r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] | - r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | - r8 ['a16 c] [fis 'a c fis] r8 ['a16 c] [fis 'a c fis] | - r8 ['g16 c] [g 'g c g] r8 ['g16 c] [g 'g c g] | -%% 30 - r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] | - r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | - r8 ['g16 'bes] [e 'g 'bes e] r8 ['g16 'bes] [e 'g 'bes e] | - - r8 ['f16 'a] [c f c 'a] [c 'a 'f 'a] ['f 'd 'f 'd] | - r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] | - || - } - -bass = - \melodic { - \clef "bass"; - \octave c; - - \stemdown - c'2 c' | - c' c' | - b b | - c' c' | - c' c' | - c' c' | - b b | - b b | - a a | -%% 10 - \multi 2 < - % Alt - {\stemup - r16 a8. ~ a4 r16 a8. ~ a4 | - r16 b8. ~ b4 r16 b8. ~ b4 | - r16 bes8. ~ bes4 r16 bes8. ~ bes4 | - r16 a8. ~ a4 r16 a8. ~ a4 | - r16 aes8. ~ aes4 r16 aes8. ~ aes4 | - r16 g8. ~ g4 r16 g8. ~ g4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 e8. ~ e4 r16 e8. ~ e4 | -%% 20 - r16 g8. ~ g4 r16 g8. ~ g4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 ees8. ~ ees4 r16 ees8. ~ ees4 | - r16 e!8. ~ e4 r16 e8. ~ e4 | -%% 30 - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - - r16 c8. ~ c4 ~ c2 | - r16 'b8. ~ 'b4 ~ 'b2 | - c1 ||} - - % Bass - {\stemdown - d2 d | - g g | - g g | - f f | - f f | - e e | - e e | - d d | - 'g 'g | - c c | -%% 20 - c c | - 'f 'f | - 'fis 'fis | - 'aes 'aes | - 'g 'g | - 'g 'g | - 'g 'g | - 'g 'g | - 'g 'g | - 'g 'g | -%% 30 - 'g 'g | - 'g 'g | - 'c 'c | - - 'c 'c | - 'c 'c | - 'c1 }> - } - - -\score { - \melodic \type Grandstaff < - < - \global - \soprane - > - < - \global - \bass - > - > - - \paper{ - gourlay_maxmeasures =5.; - } - \midi { - \tempo 4 = 84; - } -} - -% EOF diff --git a/input/wtk1-prelude2.ly.m4 b/input/wtk1-prelude2.ly.m4 deleted file mode 100644 index 98f6c8a309..0000000000 --- a/input/wtk1-prelude2.ly.m4 +++ /dev/null @@ -1,88 +0,0 @@ -%% under construction - -define(preludepattern, `[' $1 $2 $3 $2 `]') -define(preludehalfmeasure, preludepattern($1, $2, $3) - preludepattern($4, $2, $3)) - -define(intromeasure, - preludehalfmeasure($1, $2, $3, $4) - preludehalfmeasure($1, $2, $3, $4)| -) -define(handymeasure, `intromeasure(translit($*,` ', `,'))') - - - -trebleIntro=\melodic { -\octave c'; -handymeasure(c' es d c) -handymeasure(as f e c) -handymeasure(b f es d) -handymeasure(c g f es) -handymeasure(es' as g es) -handymeasure(d' fis e d) -handymeasure(d' g fis d) -handymeasure(c' e d c) -handymeasure(c' f e c) -handymeasure(bes f es d) -handymeasure(bes g f es) -handymeasure(as g f es) -handymeasure(as d c Bes) -handymeasure(g Bes As es) -handymeasure(f c Bes A) -handymeasure(f d c B) -handymeasure(es c B G) -handymeasure(F es d f) -handymeasure(Fis c b es) -handymeasure(es c B G) -handymeasure(fis c B A) -handymeasure(g c B d) -handymeasure(as c B d) -} - -bassIntro = \melodic { -\octave c; -handymeasure(c g f es) -handymeasure(c as g f) -handymeasure(c as g f) -handymeasure(c es d g) -handymeasure(c c' bes as) -handymeasure(c a g fis) -handymeasure(Bes bes a g) -handymeasure(Bes g f e) -handymeasure(As as g f) -handymeasure(As d c f) -handymeasure(G es d g) -handymeasure(c es d As) -handymeasure(d f es as) -handymeasure(es g f as) -handymeasure(es a g f) -handymeasure(d f es as) -handymeasure(c f e as) -preludehalfmeasure(c, es, d, f) -preludehalfmeasure(bes, es, d, f)| -handymeasure(As c b d) -handymeasure(A es d c) -handymeasure(G es d f) -handymeasure(G es d c) -handymeasure(G es d f) -handymeasure(G es d f) -} - - -middlepiece = \melodic -{ - \octave c; - \stemdown - [G B d] - \stemup f [as f ef] [b f d' b'] [as f e f] | - \stemdown [G c es]] - \stemup g [c' g fis g ] [es' c' g' es'] [c' as g as]| - \stemdown [G A fis] - \translator Staff=treble - \stemsboth \octave c'; - c [es c B c] [fis c a fis] [es c B c] | -} - - - -}