From 6ce2bcbe780ee19563e10cabfd4f1a9a2b8e882c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 14 Jul 2002 16:27:24 +0000 Subject: [PATCH] move mutopia subdirectory --- GNUmakefile.in | 3 +- .../mutopia}/E.Satie/GNUmakefile | 3 +- .../E.Satie/petite-ouverture-a-danser.ly | 0 .../mutopia}/F.Schubert/GNUmakefile | 4 +- .../mutopia}/F.Schubert/standchen.ly | 0 input/mutopia/GNUmakefile | 9 + .../mutopia}/J.S.Bach/GNUmakefile | 7 +- .../J.S.Bach/Petites-Preludes/GNUmakefile | 0 .../J.S.Bach/Petites-Preludes/header.ly | 0 .../J.S.Bach/Petites-Preludes/preludes-1.ly | 0 .../J.S.Bach/Petites-Preludes/preludes-2.ly | 0 .../J.S.Bach/Petites-Preludes/preludes-3.ly | 0 .../J.S.Bach/Petites-Preludes/preludes-4.ly | 0 .../J.S.Bach/Petites-Preludes/preludes-5.ly | 0 .../J.S.Bach/Petites-Preludes/preludes-6.ly | 0 .../Petites-Preludes/preludes-score.ly | 0 .../J.S.Bach/baerenreiter-sarabande.ly | 173 ++++++++++ .../mutopia}/J.S.Bach/wtk1-fugue1.ly | 0 .../mutopia}/J.S.Bach/wtk1-fugue2.ly | 0 .../mutopia}/J.S.Bach/wtk1-prelude1.ly | 0 input/mutopia/W.A.Mozart/GNUmakefile | 10 + input/mutopia/W.A.Mozart/mozart-hrn-3.ly | 40 +++ .../mutopia/W.A.Mozart/mozart-hrn3-allegro.ly | 167 ++++++++++ .../W.A.Mozart/mozart-hrn3-allegro.midi | 1 + input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly | 69 ++++ .../mutopia/W.A.Mozart/mozart-hrn3-romanze.ly | 93 ++++++ input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly | 194 +++++++++++ input/mutopia/claop.py | 306 ++++++++++++++++++ 28 files changed, 1068 insertions(+), 11 deletions(-) rename {mutopia => input/mutopia}/E.Satie/GNUmakefile (86%) rename {mutopia => input/mutopia}/E.Satie/petite-ouverture-a-danser.ly (100%) rename {mutopia => input/mutopia}/F.Schubert/GNUmakefile (87%) rename {mutopia => input/mutopia}/F.Schubert/standchen.ly (100%) create mode 100644 input/mutopia/GNUmakefile rename {mutopia => input/mutopia}/J.S.Bach/GNUmakefile (55%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/GNUmakefile (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/header.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-1.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-2.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-3.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-4.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-5.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-6.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/Petites-Preludes/preludes-score.ly (100%) create mode 100644 input/mutopia/J.S.Bach/baerenreiter-sarabande.ly rename {mutopia => input/mutopia}/J.S.Bach/wtk1-fugue1.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/wtk1-fugue2.ly (100%) rename {mutopia => input/mutopia}/J.S.Bach/wtk1-prelude1.ly (100%) create mode 100644 input/mutopia/W.A.Mozart/GNUmakefile create mode 100644 input/mutopia/W.A.Mozart/mozart-hrn-3.ly create mode 100644 input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly create mode 100644 input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi create mode 100644 input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly create mode 100644 input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly create mode 100644 input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly create mode 100644 input/mutopia/claop.py diff --git a/GNUmakefile.in b/GNUmakefile.in index 5ecb4bbfcf..0da6f9ad5e 100644 --- a/GNUmakefile.in +++ b/GNUmakefile.in @@ -12,8 +12,7 @@ SUBDIRS = buildscripts scripts flower lily \ mf ly tex ps scm \ python po make intl \ debian $(builddir)/stepmake \ - Documentation input \ - mutopia + Documentation input # SCRIPTS = configure aclocal.m4 autogen.sh diff --git a/mutopia/E.Satie/GNUmakefile b/input/mutopia/E.Satie/GNUmakefile similarity index 86% rename from mutopia/E.Satie/GNUmakefile rename to input/mutopia/E.Satie/GNUmakefile index f6330d6e9b..fecc9eade1 100644 --- a/mutopia/E.Satie/GNUmakefile +++ b/input/mutopia/E.Satie/GNUmakefile @@ -1,6 +1,5 @@ -# -depth = ../.. +depth = ../../.. examples=petite-ouverture-a-danser LOCALSTEPMAKE_TEMPLATES=ly mutopia diff --git a/mutopia/E.Satie/petite-ouverture-a-danser.ly b/input/mutopia/E.Satie/petite-ouverture-a-danser.ly similarity index 100% rename from mutopia/E.Satie/petite-ouverture-a-danser.ly rename to input/mutopia/E.Satie/petite-ouverture-a-danser.ly diff --git a/mutopia/F.Schubert/GNUmakefile b/input/mutopia/F.Schubert/GNUmakefile similarity index 87% rename from mutopia/F.Schubert/GNUmakefile rename to input/mutopia/F.Schubert/GNUmakefile index 610767a2ca..f0add85f77 100644 --- a/mutopia/F.Schubert/GNUmakefile +++ b/input/mutopia/F.Schubert/GNUmakefile @@ -1,6 +1,4 @@ -# - -depth = ../.. +depth = ../../.. examples=standchen mutopia-examples=standchen diff --git a/mutopia/F.Schubert/standchen.ly b/input/mutopia/F.Schubert/standchen.ly similarity index 100% rename from mutopia/F.Schubert/standchen.ly rename to input/mutopia/F.Schubert/standchen.ly diff --git a/input/mutopia/GNUmakefile b/input/mutopia/GNUmakefile new file mode 100644 index 0000000000..94cc0a2f02 --- /dev/null +++ b/input/mutopia/GNUmakefile @@ -0,0 +1,9 @@ +depth = ../.. + +LOCALSTEPMAKE_TEMPLATES=ly mutopia +EXTRA_DIST_FILES += claop.py +SUBDIRS = J.S.Bach F.Schubert E.Satie W.A.Mozart + +include $(depth)/make/stepmake.make + + diff --git a/mutopia/J.S.Bach/GNUmakefile b/input/mutopia/J.S.Bach/GNUmakefile similarity index 55% rename from mutopia/J.S.Bach/GNUmakefile rename to input/mutopia/J.S.Bach/GNUmakefile index abe32c9c53..e752a4ace6 100644 --- a/mutopia/J.S.Bach/GNUmakefile +++ b/input/mutopia/J.S.Bach/GNUmakefile @@ -1,13 +1,12 @@ -# mutopia/J.S.Bach/GNUmakefile +# input/mutopia/J.S.Bach/GNUmakefile -depth = ../.. +depth = ../../.. SUBDIRS = Petites-Preludes EXTRA_DIST_FILES= - LOCALSTEPMAKE_TEMPLATES=ly mutopia -examples=wtk1-fugue2 +examples=wtk1-fugue2 baerenreiter-sarabande include $(depth)/make/stepmake.make diff --git a/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile b/input/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/GNUmakefile rename to input/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile diff --git a/mutopia/J.S.Bach/Petites-Preludes/header.ly b/input/mutopia/J.S.Bach/Petites-Preludes/header.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/header.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/header.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly similarity index 100% rename from mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly rename to input/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly diff --git a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly new file mode 100644 index 0000000000..7acd483dfd --- /dev/null +++ b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly @@ -0,0 +1,173 @@ + +%% #(set! point-and-click line-column-location) + +\header { + title = "Solo Cello Suite II" + piece ="Sarabande" + composer = "J.S.Bach" + editor = "August Wenzinger" + source= "B\\\"arenreiter Urtext" + + texidoc = "The B\\\"arenreiter edition of the Cello Suites is the +most beautifully typeset piece of music in our collection of music (we +both own one. It is also lovely on French Horn). This piece does not +include articulation, but it does follows the same beaming and +linebreaking as the printed edition. This is done in order to +benchmark the quality of the LilyPond output. + +As of lilypond 1.5.42, the spacing and beam quanting is almost +identical. + +There are two tweaks in this file: a line-break was forced before +measure 25, we get back the linebreaking of Baerenreiter. The stem +direction is forced in measure 24. The last beam of that measure is up +in Baerenreiter because of context. We don't detect that yet. + +Note that the Barenreiter edition contains a few engraving +mistakes. The second line begins with measure 6 (but prints 5). The |: +half way in measure 13 has been forgotten. + " +} + + +\version "1.5.49" + + +sarabandeA = \context Voice \notes \relative c { + \property Staff.NoteCollision \set #'merge-differently-dotted = ##t + < { d8. e16 e4.-\trill d16 e } \\ + { d4 a2 } > + f4. [e8 d c] | + [bes g'] [f e16(f] [g a bes)d,] | + cis4.-\trill [b8 a g] | + + %% check spacing without accs: + %% c4.-\trill [bes8 a g] | + + < { d'8. e16 f4.-\trill d16 e | + f4. [d8 e f] } + \\ + { a2 } > | + %%5 + + g8 bes16()a c()bes a()g d'8 f, | + < e4.-\trill + \\ > + [d8 c bes] + %%8 + < { f'8 g16()a a4. g16()f | + g8 a16()bes bes4. c16()d } + \\ + { a,4 r8 bes4 } + > | + + %% 11 + [e,8 f] [c, g'] [f' e] | + f4 f,2 | + < { a'4 a4.-\trill bes8 + c bes16 a } \\ + { [f8 es] es4. r8 d4 } > + + fis8.-\trill es16 d8 c | + [bes g'] + [a, fis'] + [es' d] | + %%16 + < bes4.-\trill d, g, > [a8 g f!] | + e bes a f' g a | + d, as g es' f g | + [cis, bes'] [a g16 f] [e!8 f16 d] | + cis8 e16 a a,8. g'16 f8()e | + %%21 + < { d e16()f f4. e16()d | + e8 f16()g g4. a16()bes | + a8 cis16 d d,8 e16 f32 g f8-\trill e16()d } \\ + { bes4 g2 | + g4 s8 | + r r g, a4 } > + | + \stemUp + d4 d,16 a'( b cis d e f )g | + \stemBoth + \break + %%25 + < { a16(b c)b c4. b16()a | + b cis d cis d4. e16()f | } + \\ + { f,4 fis4. s8 | + gis4. } > + \voiceOne + d16(cis)d f, + [a,8 e'] + \oneVoice + [d' cis] | + d4 d,,2 | +} + + +sarabande = \context Staff \notes< + \apply #voicify-music \sarabandeA + +> + +\version "1.5.49" + +sarabandeCelloGlobal = \notes{ + \time 3/4 + \key f \major + \clef bass + \repeat "volta" 2 { + s2.*12 + } \repeat "volta" 2 { + s2.*16 + } +} + +sarabandeCelloScripts = \notes{ +} + +sarabandeCelloStaff = \context Staff < + \sarabande + \sarabandeCelloGlobal + \sarabandeCelloScripts +> + +% size perversions +smallerPaper = \paper { + \translator { \StaffContext + fontSize = #-1 + StaffSymbol \override #'staff-space = #0.8 + } + \translator { \ScoreContext + SpacingSpanner \override #'spacing-increment = #0.96 + } + + indent = 5.6 \mm + linewidth = 146.8 \mm +} + +baerPaper = \paper { + indent = 7. \mm + linewidth =183.5 \mm + interscoreline=4.0\mm + \translator { + \ScoreContext +% System \override #'molecule-callback = #box-grob-molecule + } +} + + +\score{ + \sarabandeCelloStaff + \paper{ + \baerPaper + } + \midi{ \tempo 4 = 40 } + \header{ + opus= "" + piece ="Sarabande" } +} + +%%% Local variables: +%%% LilyPond-indent-level:2 +%%% End: diff --git a/mutopia/J.S.Bach/wtk1-fugue1.ly b/input/mutopia/J.S.Bach/wtk1-fugue1.ly similarity index 100% rename from mutopia/J.S.Bach/wtk1-fugue1.ly rename to input/mutopia/J.S.Bach/wtk1-fugue1.ly diff --git a/mutopia/J.S.Bach/wtk1-fugue2.ly b/input/mutopia/J.S.Bach/wtk1-fugue2.ly similarity index 100% rename from mutopia/J.S.Bach/wtk1-fugue2.ly rename to input/mutopia/J.S.Bach/wtk1-fugue2.ly diff --git a/mutopia/J.S.Bach/wtk1-prelude1.ly b/input/mutopia/J.S.Bach/wtk1-prelude1.ly similarity index 100% rename from mutopia/J.S.Bach/wtk1-prelude1.ly rename to input/mutopia/J.S.Bach/wtk1-prelude1.ly diff --git a/input/mutopia/W.A.Mozart/GNUmakefile b/input/mutopia/W.A.Mozart/GNUmakefile new file mode 100644 index 0000000000..3a3bea4a15 --- /dev/null +++ b/input/mutopia/W.A.Mozart/GNUmakefile @@ -0,0 +1,10 @@ +# + +depth = ../.. + +examples=mozart-hrn-3 +LOCALSTEPMAKE_TEMPLATES=ly mutopia + +include $(depth)/make/stepmake.make + + diff --git a/input/mutopia/W.A.Mozart/mozart-hrn-3.ly b/input/mutopia/W.A.Mozart/mozart-hrn-3.ly new file mode 100644 index 0000000000..ffe03e19ae --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn-3.ly @@ -0,0 +1,40 @@ +\header{ + title = "Konzert Nr. 3 Es dur" + subtitle = "f\\\"ur Horn und Orchester" + composer = "Wolfgang Amadeus Mozart (1756-1792)" + enteredby = "HWN" + opus = "KV 447" + + copyright = "public domain" + instrument = "Horn in F" + editor = "Henri Kling" + mutopiatitle = "Horn Concerto 3" + mutopiacomposer = "W.A.Mozart" + mutopiaopus = "KV447" + style = "classical" + maintainer = "hanwen@cs.uu.nl" + maintainerEmail = "hanwen@cs.uu.nl" + maintainerWeb = "http://www.cs.uu.nl/~hanwen/" + lastupdated = "2002/May/21" + source = "Edition Breitkopf 2563" + footer = "Mutopia-2002/05/21-25" + + tagline = "\\parbox{\hsize}{\\thefooter\\quad\\small This music is part of the Mutopia project, \\texttt{http://sca.uwaterloo.ca/Mutopia/}. It has been typeset and placed in the public domain by " + \maintainer + ". Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}" + +} +%{ + +This is the Mozart 3 for horn. It's from an Edition Breitkopf EB +2563, edited by Henri Kling. Henri Kling (1842-1918) was a horn +virtuoso that taught in Geneva. + +%} + +\version "1.5.57" + +\include "mozart-hrn3-defs.ly" +\include "mozart-hrn3-allegro.ly" +\include "mozart-hrn3-romanze.ly" +\include "mozart-hrn3-rondo.ly" + + diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly new file mode 100644 index 0000000000..1bf3435eb1 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly @@ -0,0 +1,167 @@ +\version "1.5.49" +\include "mozart-hrn3-defs.ly" + +allegro = + \notes + \relative c' +{ + \time 4/4 + \key c \major + \partial 4 + r4 + | + R1*4 + c'2^"Tutti" g + c, r + R1*1 + r8 [g' g g] [g g e c] + g'4 g, r2 + R1*18 + r2 r4^"Solo" g'4 | + \mark "A" + e'4. () c8 [f (d c )b ] + [b()c] g4 r8 [g c e] + g2. [g16( f e )f] + dis4 () e4 r8 [c8-. c-. c-.] + c4.( [d16 e] f4 ) e + a,( d g,) c + d-. d-. \grace e16( [)d8. c16 d8. e16] + c4 r r2 + R1*3 + c,2 ~ [c8 e g c] + [c b ] b4 r2 + [c,8 () e g c] [e()g e c] + [c()b] b4 r2 + c4.( g8 e'4.) c8 + [g'()d ] d4 r4 d + [d8 () c] c4.( [d16 e] [d8 )c] + [c8(-\trill )b] b4 r2 | + d2( ~ [d8 e16 d] [c8 )b] | + [b()a] a4 r8 [a a a] + a4( cis e )g + \grace { \longgrace g16( \endlonggrace } + [ )fis8( e16 )d] d4-. r2 | + \mark "B" + R1*3 + r2 r4 [d8(_#`(,italic-bf "con espressione") )b ] + [a( )g d'( )b] [a( )g e'( )c ] + [b8( )a] a4 r4 [a8 a] + [a( \< b c \!cis\> ] d4 \! )c + [ais8() b] r8 \cresc b [b()c] r c + [cis ()d] r4 r2 + \endcresc g,1\f ~ g2 ~ [g8 a16 b] [c()d e c] + %% 64 + f4-. d-. b-. g-. + R1 + + c,2\p e4 g c \cresc e g4. e8 | + \endcresc d4.-\f [e16 fis] [g () fis e d] [c() b a g] + + < a1(-\trill + { s2 \grace{ [g16 a] } } > + \mark "C" + )g4 r r2 + R1*15 + \mark "D" + bes2-\mf d4 f + g,2~ [g8 g' es c]| + bes4( )a4. [c8( d )es] + cis4()d r8 [bes (c )d] + es2 () d4 r + es2 () d4 r + [c8( g' es )c] bes4()c + c4.( cis8 )d4 r + R1*2 + es1~es1| + e! + d + c + c, + e' + e, + c'2 [b8( a gis )a] + [gis8 e gis b ] e4 r | + r8 [e, a c] dis4 r + r8 [e, a c] dis4 r + r8 [e, g b] e4 r + r8 [fis, b dis] fis4 r + r8 [gis, b d] f4 r + r8 [g, b d_\ritenuto ] f4 r + \mark "E" + R1*8 + r2 r8 [g, g g] + e'4.() c8 [f( d c )b] + [b()c] g4 r8 [g c e] | + g2. [g16( f e )f] + dis4()e r8 [c-. c-. c-.] + c4.( [d16 e] f4 )e + a, ( d g, )c + d d + \grace { e8( } + [)d8. c16 d8. e16] + c4 r r2 + \mark "F" + R1*3 + c,2~[c8 e g c] + [c8()b] b4 r2 + [c,8 e g c ] [e ()g e c] + [c()b] b4 r2 + c2 (bes )a [a8(b c )cis] + d2( ~ [d8 e16 d] \grace { \longgrace d16( \endlonggrace } [)c8 b16 )c] + \grace { \longgrace c16 \endlonggrace }[ b8( a16 )g] g4 r2 | + R1*3 + r2 r4 [g'8()e] + \mark "G" + [d()c g'()e] [d()c a'()f] + [e()d] d4 r [d8 d] + d4(~ [d16 e d )e] [g8() f e d] | + c4 r r2 + R1 + c1 ~ + c | + [c8-. c-.] r c-. [cis()d] r\cresc d-. | + [dis()e] r e-. [e()f] r f-. | + g4-.-\f\endcresc e-. c-. bes-. | + g-.\ff e-. c-. r | + a'2 ~ [a8_""_#`(,italic-bf "sempre " (dynamic "f")) b16 c] [d( e d )e] + + + f4. () d8 [f8 ()d f d] + [c (e] )g2 \grace { \longgrace f16( \endlonggrace } [)e8( d16 )c] + + < d1-\trill ( + { s2 \grace { [c16 d] } } > + + ) c4 r r2 + R1 | + \mark "H" + \times 2/3 { [ c8 b a ] } \times 2/3 { [ g a b] } + \times 2/3 { [ c d e] } \times 2/3 { [ f e d] } | + \times 2/3 { [ c b a ] } \times 2/3 { [ g a b] } + \times 2/3 { [ c d e] } \times 2/3 { [ f e d] }| + c4 \times 2/3 { r8 [g'()e]} c4 \times 2/3 { r8 [e () c]} | + g4 \times 2/3 { r8 [c8() g] } \times 2/3 { [ e ()g e-. ] } \times 2/3 { [c () e c-.] }| + g4 r8 g'\f [a b c d]| + + < d1(-\trill + { s2 \grace { [c16 d] } } > + )c4 r r2 + R1*3 + + c4.^\fermata_"Cadenza ad lib." () d8 d4.-\trill^\fermata ( [c16 )d] + c4 r r2 + R1*8 + r4 [c8.^"tutti"-\f c16] c4 c + c [c,8. c16] c4 c| + c2 r2 \bar "|." + +} + + +\score +{ + \notes { \transpose bes \allegro } + \paper{ } + \header { piece = "allegro" opus = "" } + \midi{ \tempo 4=90 } +} diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi new file mode 100644 index 0000000000..dc1c0aa073 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi @@ -0,0 +1 @@ +MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM \ No newline at end of file diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly new file mode 100644 index 0000000000..d453e8fad9 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly @@ -0,0 +1,69 @@ + + +% #(set! point-and-click line-column-location) + +longgrace = \property Voice.Stem \override #'flag-style = #'() +endlonggrace = \property Voice.Stem \revert #'flag-style +ritenuto = \textscript #'(italic "rit.") + +\version "1.5.49" + +#(define italic-bf '((font-shape . italic) (font-series . bold))) + +%% burp +%% the very idea of a style sheet, is that it's easy to override +#(define (set-style! sheet name style) + (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style)) + +#(define my-sheet (make-style-sheet 'paper20)) +#(set-style! my-sheet 'mark-letter '((font-family . roman) + (font-series . bold) + (font-shape . upright) + (font-relative-size . 3))) + +cresc = \notes { + \commandspanrequest \start "crescendo" + \property Voice.crescendoText = #`(,italic-bf "cresc.") + \property Voice.crescendoSpanner = #'dashed-line +} + +%% +%% TODO: a better mechanism for tweaking Grace settings. +%% + +startGraceMusic = \sequential { + \startGraceMusic + \property Voice.Beam \override #'space-function + = #(lambda (beam mult) (* 0.8 0.8)) + \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48)) +} + +stopGraceMusic= \sequential { + \property Voice.Beam \revert #'thickness + \property Voice.Beam \revert #'space-function + \stopGraceMusic +} + +\paper{ + \stylesheet #my-sheet + \translator { + \ScoreContext + skipBars = ##t + midiInstrument = #"french horn" + %% try to mimic Breitkopf + RehearsalMark \override #'padding = #1 + MultiMeasureRest \override #'padding = #0.5 + MultiMeasureRest \override #'number-threshold = #1 + + Beam \override #'thickness = #0.6 + Beam \override #'space-function = #(lambda (beam mult) 0.8) + Slur \override #'beautiful = #0.3 + } + \translator { + \StaffContext + MinimumVerticalExtent = #'(-4.5 . 4.5) + } + indent = 10. \mm + linewidth = 189. \mm + +} diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly new file mode 100644 index 0000000000..ca6fb662d7 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly @@ -0,0 +1,93 @@ + +\version "1.5.49" +\include "mozart-hrn3-defs.ly" + +romanze = \notes \relative c' { + \key f \major + \time 2/2 + \property Score.skipBars = ##t + + c'4.( _#'(italic (dynamic "p") " con molto espressione") + )f8 a,4 a + [bes8( c d bes] )g4 r8 g + a r bes r c r [d()bes] + a2( [)g8 a( bes )b] + c4. () f8 a,4 a | + % 6 + [bes8 (c d) bes] g4 r8 c, + [c8( e g )bes] [a( c f ) d] + c r e r f r r4 + \mark "A" + R1*8 + g4.\mf f8 [e d c bes] + % 18 + [bes( a d )c] c4 r + R1*2 + g'4. f8 [e d c bes] + [bes (a d ) c] c4 r + R1 + % 25 + [c16 ( d c )d] [e ( f e )f] [g()e c-. c-.] [f()d b-. b-.] + [c16\p () d c )d] [e ( f e )f] [g()e c-. c-.] [f()d b-. b-.] + [c8 \< c, c c] [c c c \! c ] + \mark "B" + c1\f + R1*9 + f'4.(\p )d8 b4 r8 g + g'4.() e8 c4 r8 cis | + % 39 + d4(~ [d16 e d )e] [f8 () d f() d] + c2()b4 r + R1*4 + e4. ()g8 c,4 ()cis + [d8( e f )d] b4 r8 g + [c ()e g g] [g( f e )d] + c4( + \grace { \longgrace e16 \endlonggrace } + [d8. )c16 \< ] [c8 c-.( c-. \! )c-.] + \mark "C" + + %% this is a trick to get the sfp-s to align. + \property Voice.Hairpin \override #'transparent = ##t + des1\sfp \> \! + g,1\sfp \> \! + c\sfp \> \! + c,\sfp + \property Voice.Hairpin \revert #'transparent + R1*3 + r8 [c-\p c c] c2~ + [c8 c' c c] c2~ + [c8 \< e( g f] [e \! d \> c bes] + \mark "D" + \! )a4 r r2 + R1*3 + c4.-\p () f8 a,4 a | + [bes8 (c d) bes] g4 r8 c, + [c8( e g )bes] [a( c f ) d] + c r e r f4 r4 + R1*3 + r2 r4 r8 c,8 + [c8( e g )bes] [a( c f ) d] + c r e r f4 r4 + g,1 + c,2 c4. c8 + [c8( e g )bes] [a( c f ) d] + c r e r f4 r4 % -. ? + + R1 + c8-. r e-. r f4 r4 + + % Finish with F if played separately + c8-.( r c,-. r ) c4 r4| + \bar "|." +} + + + +\score +{ + \notes { \transpose bes \romanze } + \header { piece = "romanze" opus = "" } + \midi{ \tempo 4 = 70 } + \paper{} +} diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly new file mode 100644 index 0000000000..95e7298451 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly @@ -0,0 +1,194 @@ +\version "1.5.49" + +% \include "mozart-hrn3-defs.ly" + +rondotheme = \notes \relative c' { + [c'8 c c] [c c c] + c4( cis8 )d r g, + [d'8 d d] [d d d] + d4( dis8 )e r c | + [c()d e] [f g a] + [g ()e c] c4 d8 + e4()d8 e4()f8 + e4.()d8 r r | +} + +lipbreaker = \notes \relative c' +{ + r8 [g'-. g-.] [c()e g,-.] + [c()e g,-.] [c()e g,-.] + [c c, c] [c c c] + [c c c] [c c c] +} + +rightsixteenth = { \property Voice.stemLeftBeamCount = 1 + \property Voice.stemRightBeamCount = 2 } +leftsixteenth = { \property Voice.stemLeftBeamCount = 2 + \property Voice.stemRightBeamCount = 1 } +bothsixteenth = { \property Voice.stemLeftBeamCount = 2 + \property Voice.stemRightBeamCount = 2 } + +rondo = \notes \relative c' +{ + \partial 8 + \time 6/8 + \key c \major + + g'8-\p | + + \rondotheme + + R2.*13 | + r8 r^\fermata d [d e f] + [g ()e c-.] [d()e d-.] + c4 c8 [d e f] + [g()e c-.] [d()e d-.] + c4 r8 r4 r8 | + R2.*7 + \mark "A" + c4.\p \grace { e16( } [)d8 c d] + c4 r8 r4 r8 + e4. \grace g16( [)f8 e f] + e4 r8 r4 r8 + g4. e4 c8 + g2.~ + [g8 a b] [c d e ] + e4.()d8 r r + R2.*4 + e2.~ | + [e8 d c] [c b a] + d2.~ + [d8 c b] [b a g] + g'4()e8 b4()cis8 + \mark "B" + d4 r8 r4 r8 + R2.*3 | + r8 [d-. d-.] [d()g d-.] + [d()g d-.] [d d d] + [d()g] r r4 r8 + R2.*1 + \lipbreaker + c4 r8 [c' d e] + d4()g8 [c, d e] + d4 r8 r4 r8 + R2. | + r4 r8 [c-. d-. e-.] + d4()g8 [c, d e] + [d()g fis] [e d c] + [b () e d] [c b a] + \mark "C" + g4 r8 r4 r8 + R2. | + % + r8 [g-\f g] [g( )b b-.] + [b()d d-.] [d()g g-.] + g2.~ + [g8 \> a g] [f e d] + < \rondotheme + { \! s8-\p } > + + R2.*12 + r4 r8 r4 c8 + \mark "D" + c4 f8 c4 a8 + a4.~a4 a8 + bes4 c8 d4 bes8 + g4. ~ g8 r r + R2.*3 + r4 r8 r4 c8 + a4. c + f ~ [f8. \rightsixteenth e16( \bothsixteenth d )c] + bes4 g8 e4 g8 + c,4. ~ c8 r r + R2.*3| + r4 r8 r4 c'8 + b4()c8 b4()c8 + bes4. ~ bes4 g8 + a4 () c8 f4 () b,8 + d4. () c8 r r + R2.*3| + r4 r8 r4 c'8 + b4()c8 b4()c8 + bes4. ~ bes4 g8 + a4 c8 [f () d b!] + d4. () c8 r r + \mark "E" + R2.*9 | + \lipbreaker + [c8 c' c] c4.~ + [c8 c d] [e e fis] + g4 r8 r4 r8 + R2. + r8 [g, g] [g g g] | + es'4. ~ [es8 d c] + b4 r8 r4 r8 + R2. | + r8 [g g] [g g g] + es'4. ~ [es8 d c] + \cresc b4. c4. d4. e4. + \mark "F" + \endcresc + + f2.\f ~ | + f4 r8 r4 r8 + r8 [g,\> g] [g g g] + + % Edition breitkopf says a-flat (silly!) + [fis g gis] + [a bes \! b] + + %% EB does the slur in the Rondo differently from the 1st adn 2nd time. + %% why. Should check with MS. + < \rondotheme + { s8-\p } > + R2.*7 + \mark "G" + R2.*4 + c,4.\mf c4 c8 + c4. e4 c8 + g'4. g4 g8 + g4. g,4 g8 + c4 r8 r4 r8 + r4 r8 r4 g'8 + [c ()e g,-.] [c ()e g,-.] + [c ()e g,-.] [c ()e g,-.] + \mark "H" + \cresc g'2. bes,2. + a4. [b16 c d e f g] + a4. f4 d8 + [\endcresc c8\f g' e] [c g e] + [ c e' c] [g e c] + g4 r8 [g''8 e c] + + + < d2.(-\trill + { s2 \grace { [c16 d] } } > + + + )c4 r8 r4 r8 + R2.*5 + r8 r8^\fermata d8\p [d e f] + [g ()e c] [d()e d] + \cresc [c c c] [d e f] + [g()e c] [d()e d] + \endcresc c4\f r8 r4 r8 + R2.*5 + [c8\f c, c] [c c c] + c4 r8 c4 r8 + + %This is technically incorrect, since we started with an 8th + % upstep, but both eulenburg and EB do this as well. + c4 r8 r4 r8 \bar "|." +} + + + + + +\score +{ + \notes { \transpose bes \rondo } + \header { piece = "rondo" opus = "" } + \midi{ \tempo 4 = 100 } + \paper { } +} diff --git a/input/mutopia/claop.py b/input/mutopia/claop.py new file mode 100644 index 0000000000..cae831896d --- /dev/null +++ b/input/mutopia/claop.py @@ -0,0 +1,306 @@ +import sys + + +copyright = """copyright 1992. Peter Wallin. Verbatim redistribution +permitted """ + + + +""" + +This file produces the Score for CLA(O)P II -- a piece by +Peter Wallin (pwallin@post8.tele.dk). + +The score produced by this file is +copyright 1992. Peter +Wallin. Verbatim redistribution permitted + + + + +From: Rune Zedeler +Sender: lilypond-devel-admin@gnu.org +To: LilyPond Devel +Subject: CLA(O)P II +Date: Wed, 12 Jun 2002 02:14:05 +0200 + +The concert went well. +I talked to the composer and he agreed to include the score in lilypond +as long as his name was maintained and as long as he kept the copyrights +- that is people are not allowed to make changes to the score. + +I think including CLA(O)P II is a Good Thing because it stress tests +lilypond very well. This is also why I think that including only an +excerpt from it is stupid. +I am not sure how the inclusion should be. +The raw lilypond file is 750k; gzip'ed 40k. +Alternatively one could include the generating c-file into lilypond. +Or perhaps we should just wait till I manage to redo it in scheme... :-) + +-Rune + +""" + + + +#//set to 1, 385 to typeset the whole score +start_measure =1 +no_measures = 385 +voices = 48 + +durs = ["16","8","8.","4"] +grund = [ + "x x x x xx x", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x ", + + "x x x xx xx ", + "x xx xx x xx xx ", + "x xx x xx xx x xx xx x x", + + "x x xx xx x ", + "xx xx x xx xx x ", + "xx x xx xx x xx xx x xx ", + + "x xx xx x x ", + "x xx x xx xx x x", + "x x xx xx x xx xx x xx x", + + "xx xx x x x ", + "xx x xx xx x xx ", + "x xx xx x xx xx x xx xx ", + + "x xx x x x x", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x ", + + "xx x x x xx ", + "x xx xx x xx xx ", + "x xx x xx xx x xx xx x x", + + + "x x x x xx x", + "xx xx x xx xx x ", + "xx x xx xx x xx xx x xx ", + + "x x x xx xx ", + "x xx x xx xx x x", + "x x xx xx x xx xx x xx x", + + "x x xx xx x ", + "xx x xx xx x xx ", + "x xx xx x xx xx x xx xx ", + + "x xx xx x x ", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x ", + + "xx xx x x x ", + "x xx xx x xx xx ", + "x xx x xx xx x xx xx x x", + + "x xx x x x x", + "xx xx x xx xx x ", + "xx x xx xx x xx xx x xx ", + + "xx x x x xx ", + "x xx x xx xx x x", + "x x xx xx x xx xx x xx x", + + "x x x x xx x", + "xx x xx xx x xx ", + "x xx xx x xx xx x xx xx ", + + "x x x xx xx ", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x " +] + +accents = '' +accstr = '' + + +def stemme(st) : + adr = [0] * (385*16) + pos = st*48+44 + + for i in range(0,100): + adr[384*16-i*28] = ord ('X') + + for k in range(0,48): + if k: + for j in range(0,8): + adr[pos] = 0 + pos += 1 + + for j in range(0,4): + for c in grund[k]: + if c ==' ' : + adr[pos] = 0 + else: + adr[pos] = 3-j+ord ('a') + pos += 1 + + for i in range(0,385*16): + ac = accents[48*4+i-((48+24-st)%48)*4] + if ac: + adr[i]=ac + + return adr + + +def print1(ch) : + accstr="" + if ch >= ord('A') and ch <=ord('D'): + ch += ord('a')-ord('A') + accstr="->" + + namestr = '' + cr = chr (ch) + + if cr=='a': + namestr="a" + elif cr=='b': + namestr="b" + elif cr=='c': + namestr="d'" + elif cr=='d': + namestr="e'" + elif cr=='X': + namestr="\\property Staff.NoteHead \\override #'style = #'cross c'" + accstr="-^ \\property Staff.NoteHead \\revert #'style" + else: + print 'foo', cr, chr(ch), ch == 'd', "A%sA" % cr + raise 'foo' + + return (namestr,accstr) + + +namestr = '' +accstr = '' + +def print4(ptr): + val = reduce (lambda x,y : x|y, ptr) +# sys.stderr.write ('%d ' % val) + if not val: + sys.stdout.write ("r4 ") + else: + dur=-1 + + global namestr + global accstr + if ptr[0]==0: + sys.stdout.write ("~") + (namestr, accstr) = print1(val) + + for c in ptr: + if c==0: + dur += 1 + else: + if dur>=0: + sys.stdout.write( "%s%s%s " % (namestr,durs[dur],accstr)) + (namestr, accstr) = print1(c) + dur=0 + + sys.stdout.write( "%s%s%s "% (namestr,durs[dur],accstr)) + + + +def print8(ptr) : + val = reduce (lambda x,y : x|y, ptr) + if val: + print4(ptr[0:4]) + print4(ptr[4:8]) + else: + sys.stdout.write ("r2 ") + + +def print16(ptr): + val = reduce (lambda x,y : x|y, ptr) + if val: + print8(ptr[0:8]) + print8(ptr[8:16]) + else: + sys.stdout.write("R1 ") + +accents = [0] *(500*16) +for i in range(0,32): + pos=i*12*16+4*48 + accents[pos]=ord('D') + if(i<31) : + if(i>0): + accents[pos+4*12]=ord('A') + accents[pos+4*23]=ord('C') + accents[pos+4*35]=ord('B' ) + + +sys.stdout.write ('%%{\n %s \n %%}' % copyright) +sys.stdout.write (r""" +\include "paper11.ly" + +\header { + title = "CLA(O)P II" + composer = "Peter Wallin (1992-93)" + copyright = "Copyright (1992-93) Peter Wallin, verbatim redistribution permitted" +} + + +""") + + + + + +for st in range(1,voices+1): + str=stemme(st) + ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A')) + sys.stdout.write( """ + +stemme%s = \\notes {\n\\clef percussion +\\property Staff.instrument = \"%d\"\n +\\property Staff.instr = \"%d\"\n +\\property Score.currentBarNumber = #%d\n""" % (ststr,st,st,start_measure)) + + for i in range(start_measure-1, start_measure-1+no_measures): + print16(str[i*16:i*16+16]) + sys.stdout.write (" |\n") + + sys.stdout.write ("\\bar\"|.\" }\n") + + +sys.stdout.write (r""" +\score { + \notes < + \property Score.BarNumber \override #'padding = #2.5 + \property Score.autoBeamSettings \override + #'(end * * * *) = #(make-moment 1 4) + \property Score.skipBars = ##t + \context StaffGroup < + \property StaffGroup.Stem \override #'direction = #1 +""") + + +for st in range(1,voices+1): + ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A')) + ststr = 'stemme' + ststr + sys.stdout.write (r"""\context Staff="%s" \%s +""" % (ststr,ststr)) + +sys.stdout.write (r"""> + > + \paper { + linewidth = 26.0\cm + indent = 0 + textheight = 38.0\cm + %hsize = 30.0 \cm + %vsize = 42.0 \cm + + \translator { + \StaffContext + StaffSymbol \override #'line-count = #3 + minimumVerticalExtent = #'(-3 . 3) + } + } + +} +""") -- 2.39.2