]> git.donarmstrong.com Git - lilypond.git/commitdiff
patch::: 1.3.150.jcn3
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 26 Apr 2001 21:03:54 +0000 (23:03 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 26 Apr 2001 21:03:54 +0000 (23:03 +0200)
1.3.150.jcn3
============

* ly2dvi: reverted footer change that broke mutopia endfooter.

* Standchen revision (found four new bugs).

* Allow multiple multiply for durations, eg: 'R1 * 3/4 * 10'.

* Bugfix for direct PostScript output.

14 files changed:
CHANGES
Documentation/topdocs/INSTALL.texi
Documentation/windows/lily-wins.texi
VERSION
input/bugs/accents.ly [new file with mode: 0644]
input/bugs/nest-core.ly [new file with mode: 0644]
input/bugs/rest-melisma.ly [new file with mode: 0644]
input/bugs/triplet.ly [new file with mode: 0644]
lily/parser.yy
make/redhat.spec.in
make/suse.spec.in
mutopia/F.Schubert/standchen.ly
ps/lilyponddefs.ps
scripts/ly2dvi.py

diff --git a/CHANGES b/CHANGES
index 45c28df75c90be002f7882c189a339d2212041cb..8d2052caa5f330ade077aaac787f4ccf44514444 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,14 @@
+1.3.150.jcn3
+============
+
+* ly2dvi: reverted footer change that broke mutopia endfooter.
+
+* Standchen revision (found four new bugs).
+
+* Allow multiple multiply for durations, eg: 'R1 * 3/4 * 10'.
+
+* Bugfix for direct PostScript output.
+
 1.3.150.jcn2
 ============
 
index 93b47818253b41f9b100f0aaaf598bffe1f976bd..d03a80ac917f9b55ef4beef881286fe41ed6e315 100644 (file)
@@ -315,11 +315,12 @@ sources.  You can make the rpm by issuing
 @end example 
 
 For running on a Red Hat system you need these packages: guile, tetex,
-tetex-dvips, libstdc++, python, ghostscript.
+tetex-latex, tetex-dvips, libstdc++, python, ghostscript.
 
 For compilation on a Red Hat system you need these packages, in addition
 to the those needed for running: glibc-devel, gcc-c++, libstdc++-devel,
-guile-devel, flex, bison, texinfo, tetex-devel, groff, libgr-progs.
+guile-devel, flex, bison, texinfo, tetex-devel, groff,
+libgr-progs.
 
 @subsection SuSE
 
@@ -327,9 +328,9 @@ You can also compile them yourself.  A spec file is in
 @file{make/out/suse.spec}. This file is distributed along with the
 sources.
 
-You must have the following packages: guile tcsh tetex te_latex te_mpost
-libpng python gpp libgpp gettext autoconf netpbm libnetpb gs_serv gs_lib
-gs_fonts guile
+You must have the following packages: guile tcsh tetex te_latex te_kpath
+te_mpost libpng python gpp libgpp gettext autoconf netpbm libnetpb
+gs_serv gs_lib gs_fonts guile
 
 @subsection Mandrake
 
index aeacfcd9ab5981a8a045f8ee5fa4a795cce071d7..8dfbd89387b25badbc745ec48cb428640e7feb1d 100644 (file)
@@ -14,7 +14,7 @@
 Until now, installing LilyPond on Windows was
 @uref{http://mail.gnu.org/pipermail/help-gnu-music/2001-April/000620.html,
 almost} a dull process that could easily be @uref{
-ftp://appel.lilypond.org/pub/gnu-windows/cygwin-1.1.7/bin/tar/lily-install-0.6-i686-cygwin.bin.tar.gz,
+ftp://appel.lilypond.org/pub/gnu-windows/cygwin-1.1.7/bin/tar/lily-install-0.7-1.tar.gz,
 automated} and scripted.  This meant that you would have more time left
 for actual work, and we all know that's not what computers were designed
 for.
diff --git a/VERSION b/VERSION
index 3451c621ea631677ccd4d31d732daca0521b0ad9..2072f2c8f7fa0cf0a57dfc4f2aab0309ab672a80 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=150
-MY_PATCH_LEVEL=jcn2
+MY_PATCH_LEVEL=jcn3
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/input/bugs/accents.ly b/input/bugs/accents.ly
new file mode 100644 (file)
index 0000000..1712266
--- /dev/null
@@ -0,0 +1,12 @@
+\score {
+  \context Staff \notes\relative c''<
+    \context Voice=one {
+      \voiceOne
+      e2->
+    }
+    \context Voice=two {
+      \voiceTwo
+      f,2->
+    }
+  >
+}
\ No newline at end of file
diff --git a/input/bugs/nest-core.ly b/input/bugs/nest-core.ly
new file mode 100644 (file)
index 0000000..c8ebfe3
--- /dev/null
@@ -0,0 +1,8 @@
+\header{
+texidoc="running this through ly2dvi, or with -Hheader dumps core"
+tagline="{"
+}
+
+\score {
+  \notes c
+}
\ No newline at end of file
diff --git a/input/bugs/rest-melisma.ly b/input/bugs/rest-melisma.ly
new file mode 100644 (file)
index 0000000..3d2aafb
--- /dev/null
@@ -0,0 +1,19 @@
+\header {
+texidoc="slur or long note on other staffs fool lily into extending melisma"
+}
+\score {
+  <
+    \addlyrics
+      \notes {
+       \property Staff.automaticMelismata= ##t
+       c4 () c r c
+      }
+      \context Lyrics \lyrics { foo __ bar }
+    \context Staff=foolMelismata \notes{
+      c4 ( c c ) c
+    }  
+    \context Staff=foolMelismata \notes{
+      c1
+    }  
+  >  
+}
\ No newline at end of file
diff --git a/input/bugs/triplet.ly b/input/bugs/triplet.ly
new file mode 100644 (file)
index 0000000..9992897
--- /dev/null
@@ -0,0 +1,10 @@
+\header {
+texidoc="manual beam override is ignored in first triplet"
+}
+
+\score {
+  \context Voice \notes\relative c'' {
+    \times 2/3 { < [ a8 c > < a c > < a c ] > }
+    \times 2/3 < { [ a8 a a ] } { c c c ] } >
+  }
+}
index 043a658fcff27c91f8719b7514afa3a2c80a6e8d..eacdc63aa8b7ca18f18f8f6d32188d5cc7c149f7 100644 (file)
@@ -8,6 +8,13 @@
   (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
            Jan Nieuwenhuizen <janneke@gnu.org>
 */
+
+/*
+  Two shift/reduce problems:
+    -
+    -
+ */
+
 #include <ctype.h>
 #include <iostream.h>
 
@@ -1593,10 +1600,10 @@ multiplied_duration:
        steno_duration {
                $$ = $1;
        }
-       | steno_duration '*' bare_unsigned {
+       | multiplied_duration '*' bare_unsigned {
                $$ = unsmob_duration ($$)->compressed ( $3) .smobbed_copy ();
        }
-       | steno_duration '*' FRACTION {
+       | multiplied_duration '*' FRACTION {
                Moment m (gh_scm2int (gh_car ($3)), gh_scm2int (gh_cdr ($3)));
 
                $$ = unsmob_duration ($$)->compressed (m).smobbed_copy ();
index f61dcdb229c2b69fe971c0e03d1ebebcb3af8fd6..5a7a7163e3191f516f9ba6ad7f7460786b96fd49 100644 (file)
@@ -12,6 +12,8 @@ URL: http://www.cs.uu.nl/~hanwen/lilypond
 # rpm: 4.0: broken for -ta builds: rpm doesn't look in tarball for xpm
 # Icon: @package@-icon.xpm
 BuildRoot: /tmp/lilypond-install
+# add lots of Buildreq: flex, bison, tetex, tetex-devel, tetex-latex, texinfo
+# better prereqs: tetex-latex, python, (mpost?) etc.
 Prereq: tetex
 
 # use keywords: music notation software
index fd57a54bc48267506311533cd41fa5e8d244ee25..fbd7e425ba6fd30d3ffc0c79fca7b16964f22047 100644 (file)
@@ -25,6 +25,8 @@ URL: http://www.lilypond.org/
 # rpm: 4.0: broken for -ta builds: rpm doesn't look in tarball for xpm
 # Icon: lilypond-icon.xpm
 BuildRoot: /tmp/lilypond-install
+# add lots of Buildreq: tetex-kpath, te_mpost, bison
+# better prereqs: tetex-latex, python, (mpost?) etc.
 Prereq: tetex python
 
 # use keywords: music notation software
index f20941e907543666781a5c983f39af9962d41efb..54a19767ca832ccac9dfa0808e5f6c11546296e0 100644 (file)
@@ -13,7 +13,7 @@ instrument = "Piano"
   poet = "Text by Ludwig Rellstab (1799-1860)"
   enteredby = "JCN"
   copyright = "public domain"
-  instrument = \instrument
+  instrument = \instrument
 
   % mutopia headers.
   mutopiatitle = "Standchen"
@@ -30,15 +30,15 @@ instrument = "Piano"
   copyright = "Public Domain"
   maintainer = "Jan Nieuwenhuizen"
   maintainerEmail = "janneke@gnu.org"
-  lastupdated =         "2001/Mar/26"
-  mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small
+  lastupdated =         "2001/Apr/26"
+  mutopiapublicdomain = "\\parbox{\\hsize}{\\thefooter\\quad\\small
     \\\\This music is part of the Mutopia project,
     \\texttt{http://www.mutopiaproject.org/}\\\\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.}"
  tagline = \mutopiapublicdomain
- footer = "Mutopia-2001/03/26-xx"
+ footer = "Mutopia-2001/04/26-xx"
 } 
 
 \version "1.3.146"
@@ -64,16 +64,14 @@ vocalVerse =  \notes\relative c''{
        R2. |
        g8. b16 es4. d8 |
        c8. g16 es4. c8 |
-       % CHECK
-       % \grace { as'16 bes } \times 2/3 { [ )as8( )g] as } c4. as8 |
-       \grace { as'16( bes } \times 2/3 { [ )as8( )g] as } c4. as8 |
+       \grace { [ as'32( bes ] } \times 2/3 { [ )as8( )g] as } c4. as8 |
        g2. |
-       \grace { f16( g } \times 2/3 { [ )f8( )e] f } as4. f8 |
+       \grace { [ f32( g ] } \times 2/3 { [ )f8( )e] f } as4. f8 |
   
        es!2. |
        g8. b16 es4. d8 |
        c8. g16 e4. c8 |
-       \grace { a'16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
+       \grace { [ a'32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
        g!2. |
        \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
        c!2. |
@@ -89,10 +87,11 @@ vocalThrough =  \notes\relative c{
        a8. b16 c4-> a8 r |
        R2. |
        R2. |
-       \grace { a16( b } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
+       \grace { [ a32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 |
        g!2. |
        \times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
        c!2. ~ |
+       % bug: slur on other staff fools lily into extending melisma
        c4 r c |
        as2. |
        g |
@@ -100,43 +99,43 @@ vocalThrough =  \notes\relative c{
 }
 
 lyricVerseOne =  \lyrics{
-       Lei- se fleh- en mei- ne Lie- der
-       Durch die Nacht zu dir 
-       In den stil- len Hain her- nie- der
-       Lieb- chen, komm zu mir! 
+       Lei -- se fle -- hen mei -- ne Lie -- der
+       durch die Nacht zu dir;
+       in den stil -- len Hain her nie -- der,
+       Lieb -- chen, komm zu mir! 
        
-       Fl\"us- ternd schlan- ke Wip- fel rau- schen
-       In des Mon- des Licht,
-       In des Mon- des Licht
+       Fl\"us -- ternd schlan -- ke Wip -- fel rau -- schen
+       in des Mon -- des Licht,
+       in des Mon -- des Licht;
 
-       Des Ver- r\"a- ters feind- lich Lau- schen
-       F\"urch- te, Hol- de, nicht,
-       F\"urch- te, Hol- de, nicht.
+       des Ver -- r\"a -- ters feind -- lich Lau -- schen
+       f\"urch -- te, Hol -- de, nicht,
+       f\"urch -- te, Hol -- de, nicht.
 }
        
 lyricVerseTwo =  \lyrics{
-       H\"orst die Nach- ti- gal- len schla- gen? 
-       Ach! sie fleh- en dich, 
-       Mit der T\"o- ne s\"u- "\ss en" Kla- gen
-       Fleh- en sie f\"ur mich. 
+       H\"orst die Nach -- ti -- gal -- len schla -- gen?
+       ach! sie fle -- hen dich, 
+       mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen
+       fle -- hen sie f\"ur mich. 
        
-       Sie- ver- "steh'n" des Bus- ens Seh- nen
-       Ken- nen Lieb- es- schmerz,
-       Ken- nen Lieb- es- schmerz.
+       Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen,
+       ken -- nen Lieb -- es -- schmerz,
+       ken -- nen Lieb -- es -- schmerz,
 
-       R\"uh- ren mit den Sil- ber- t\"o- nen
-       Jed- es wei- che Herz,
-       Jed- es wei- che Herz.
+       r\"uh -- ren mit den Sil -- ber -- t\"o -- nen
+       jed -- es wei -- che Herz,
+       jed -- es wei -- che Herz.
 }
 
 lyricThrough =  \lyrics{
-       La\ss auch dir die Brust be- we- gen 
-       Lieb- chen, h\"o- re mich! 
-       Be- bend harr' ich dir ent- ge- gen! 
+       La\ss auch dir die Brust be -- we -- gen 
+       Lieb -- chen, h\"o -- re mich! 
+       be -- bend harr' ich dir ent -- ge -- gen! 
        
-       Komm, be- gl\"uk- ke mich!
-       Komm, be- gl\"uk- ke mich, __ 
-       Be- gl\"uk- ke mich!
+       komm, be -- gl\"uk -- ke mich!
+       komm, be -- gl\"uk -- ke mich, __ 
+       be -- gl\"uk -- ke mich!
 }
 
 trebleIntro =  \notes\relative c{
@@ -144,7 +143,6 @@ trebleIntro =  \notes\relative c{
        r8 <as-. c-.> <c-. es-.> <as-. c-.> <c-. es-.> <as-. c-.> |
        r8 <as-. c-.> <c-. d-.> <as-. c-.> <c-. d-.> <as-. c-.> |
        r8 <g-. b-.> <b-. d-.> <g-. b-.> <b-. d-.> <g-. b-.> |
-       \break
 }
 
 trebleVerseOne =  \notes\relative c{
@@ -154,15 +152,21 @@ trebleVerseOne =  \notes\relative 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> |
        <g''4.( b,> <)f8 d>
-       \times 2/3 { < [ f( d> <es c> <)d b] > } |
+       % manual beam override bug
+       %\times 2/3 { < [f( d> <es c> <)d b] > } |
+       \times 2/3 < { [ f( es )d ] } { d c b } > |
        %10
        <c2. es> |
        r8 <g, c> <c es> <g c> <c es> <g c> |
        r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
-       r8 <f as bes> <as bes d> <f g bes> <as bes d> <f g bes> |
-       r8 <es g bes> <g bes es> <es g bes> <g bes es> 
-       <{ es'( )  d4.() f8}{ c' | bes4.  as8 } > 
-       \times 2/3 { < [f( as> <es g> <)d f] > } |
+       r8 <f as bes> <as bes d> <f g bes> <as bes d> <f as bes> |
+       % manual beam override bug
+       % r8 < [ es g bes> <g bes es> <es g bes> <g bes es ] > 
+       r8 < { [ es g es g ] } { g bes g bes } { bes es bes es } >
+       <{ es'( )  d4.() f8}{ c' | bes4.  as8 } >
+       % manual beam override bug
+       % \times 2/3 { < [f( as> <es g> <)d f] > } |
+       \times 2/3 < { [ f( es )d ] } { as g f } > |
        %16
        <es2. g> |
        r8 <f, g> <g b> <f g> <g b> <f g> |
@@ -170,30 +174,31 @@ trebleVerseOne =  \notes\relative c{
        r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
        %20
        r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
-       \grace { as'16( bes } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
+       \property Voice.Slur \override #'attachment = #'(stem . stem)
+       \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 |
+       \property Voice.Slur \revert #'attachment
        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> |
-       \times 2/3 <
-         { [ f'8\f( e f]  }
-         {  f' e f } >
+       \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
        < {a4.- > )f8}  { a'4. f8 }  > |
 }
 
 trebleEentje =  \notes \relative c'{
        \stemBoth
-       <e2 e'> <e4 g>|
-       <f2\mf as!(> <as8.->( c> <)f16 )as> |
+       <e2 e'> r4 |
+       <f2\mf as!\(> <as8.->( c> <f16 \))as> |
+       % urg: slurs with staccati are ugly
        <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
        <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        <e2 g> <e4\pp g> |
-       <f2 a(> <a8. c> <f16 )a> |
-       <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+       <f2 a\(> <a8.( c> <f16 \))a> |
+       <e4.\( g> <e8-.( g-.> <e-. g-.> <e-. \))g-.> |
        <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        %60
-       <e2. g> |
+       <e2 g> r4 |
 }
 
 trebleThrough =  \notes \relative c'{
@@ -206,12 +211,15 @@ trebleThrough =  \notes \relative c'{
 
        <g4. g'> <b8 b'> [<d'8.-> d,-> > c16] |
        %65
-       < { d,2.\f a'2} { e2. ~ e2 } { b'2. c,2 }> r4 |
+       < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 |
        \context Staff < 
                \context Voice=one {
                        \voiceOne
-                       a8. b16 c4-> () a8 r |
-                       a8. b16 c4-> () a8 r |
+                       %urg
+                       %a8. b16 c4-> () a8 r |
+                       a8. b16 c4^> () a8 r |
+                       %a8. b16 c4-> () a8 r |
+                       a8. b16 c4^> () a8 r |
                }
                \context Voice=two {
                        \voiceTwo
@@ -224,17 +232,16 @@ trebleThrough =  \notes \relative c'{
        r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
        %70
        r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
-       \times 2/3 < { [ f'8\f( e f] }
-          {  f' e f }>
+       \times 2/3 < { [ f'8\f( e f] } {  f' e f } >
        < { a4.-> )f8 } { a'4. f8 } > |
-       <e2 e'> r4 |
-       <es!2 es'! > r4 |
-       \property Voice . TextItem \override #'font-style = #'italic
-       <d2_"decresc." d'> r4 |
-       \property Voice . TextItem \revert #'font-style
+       <e2. e'> |
+       <es!2. es'! > |
+       \property Voice . TextScript \override #'font-shape = #'italic
+       <d2._"decresc." d'> |
+       \property Voice . TextScript \revert #'font-shape
 
        %75
-       <b2 b'> r4 |
+       <b2. b'> |
        <c2 c'> <e4\pp g> |
 
        % four copied from begin eentje
@@ -243,9 +250,9 @@ trebleThrough =  \notes \relative c'{
        <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
        %80
 
-       \property Voice . TextItem \override #'font-style = #'italic
+       \property Voice . TextScript \override #'font-shape = #'italic
        <e2._"dim." g> |
-       \property Voice . TextItem \revert #'font-style
+       \property Voice . TextScript \revert #'font-shape
 
        <g,2. e' g> |
        <g2.-\fermata e' g> |
@@ -311,7 +318,7 @@ bassThrough =  \notes\relative c{
        <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
        % copied
        <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
-       <g,8 g'> [<g' d' e> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
+       <g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
        %65
        <gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
        <a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
@@ -331,7 +338,7 @@ bassThrough =  \notes\relative c{
        c,8 [<c' e> <e g> <c e> <e g> <c e>] |
        c,8 [<c' f> <f as> <c f> <f as> <c f>] |
        c,8 [<c' e> <e g> <c e> <e g> <c e>] |
-       <g,8 g'> [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+       g,8 [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
        %80
        c,8 [<c' e> <e g> <c e> <e g> <c e>] |
        c,8 [<c' g> <e c> <c g> <e c> <c g>] |
@@ -341,13 +348,21 @@ bassThrough =  \notes\relative c{
 global =  \notes{
        \time 3/4 
        \key es \major
-       \skip 4 * 12
+       \skip 1 * 3/4 * 4
        \break
-       \skip 4 * 234
+       \skip 1 * 3/4 * 25
+       \break
+       \skip 1 * 3/4 * 6
+       \break
+       \skip 1 * 3/4 * 41
+       \break
+       \skip 1 * 3/4 * 6
        \bar "|."
 }
 
 allLyrics = \lyrics {
+       % maybe should be bigger by default, in grob-description.scm ?
+       \property Lyrics . LyricText \override #'font-relative-size = #1
        \lyricVerseOne
        \lyricVerseTwo
        \lyricThrough
@@ -357,22 +372,24 @@ lyricStaff = \context Lyrics {
        \allLyrics
 }
                
-vocals = \context Voice {
+vocals = \context Voice \notes {
        \clef treble
        % certainly no auto-beaming for vocals
        \property Voice.noAutoBeaming = ##t
        \property Staff.automaticMelismata= ##t
 
        \dynamicUp
-       \skip 4 * 12 
+       % duh 1 != 3/4
+       R1 * 3/4 * 4
        \vocalVerse 
-       \skip 4 * 24 
+       R1 * 3/4 * 8
        \vocalVerse
        \vocalThrough
+       R1 * 3/4 * 6
 }
 
 vocalStaff =  \context Staff = vocal<
-         \property Staff.instrument = "synth voice"
+         \property Staff.midiInstrument = "synth voice"
          \global
          \vocals
 >
@@ -388,6 +405,7 @@ treble =  {
 }
 
 trebleStaff =  \context Staff = treble< 
+        \property Staff.midiInstrument = "acoustic grand"
        \global
        \treble
 >
@@ -401,6 +419,7 @@ bass =  {
 }
 
 bassStaff =  \context Staff = bass<
+        \property Staff.midiInstrument = "acoustic grand"
        \global
        \bass
 >
@@ -431,7 +450,17 @@ grandStaff =  \context PianoStaff <
                        \lyricStaff 
                \grandStaff
        >
-       \paper {  }
+       \paper {
+               % arg, if it weren't for the mutopia margins, this would
+               % fit on three a4 pages, like the original
+               % Mandatory Mutopia settings:
+               textheight = 270.0\mm
+               linewidth = 180.0\mm
+
+               \translator {
+                       \HaraKiriStaffContext
+               }
+       }
        \midi{
                \tempo 4 = 54
        }
index 899b0f0061a9504fb3e69b52a13296ae008fc88b..49c77c451d08bc4ff6e547f556743e8e19c5be14 100644 (file)
 {
        dup base-line-skip gt {
                /line-height exch def
-       } if
+       }
+       {
+               pop /line-height base-line-skip def
+       } ifelse
        line-y top-margin sub base-line-skip lt {
                showpage
                /line-y vsize top-margin sub def
index 68af7f25323f1c1d8b590e99f769939916770779..bc5284e2c918d864783274a6603b30ae445b44a9 100644 (file)
@@ -535,11 +535,16 @@ lily output file in TFILES after that, and return the Latex file constructed.  '
                first = 0
 
        s = s + r'''
-% I do not see why we want to clobber the footer here
-\vfill\hfill\parbox{\textwidth}{\mbox{}\makelilypondtagline}
-%\makeatletter
-%\renewcommand{\@oddfoot}{\parbox{\textwidth}{\mbox{}\makelilypondtagline}}%
-%\makeatother
+%% I do not see why we want to clobber the footer here
+%% \vfill\hfill\parbox{\textwidth}{\mbox{}\makelilypondtagline}
+%% Well, maybe you don't submit music to mutopia?
+%% I would not object to this kind of change, but I don't know how
+%% to get the last mutopia tagline right (ie: no footer on last page)
+%% Please check that mutopia footers and endfooter are OK before changing
+%% this again. -- jcn
+\makeatletter
+\renewcommand{\@oddfoot}{\parbox{\textwidth}{\makelilypondtagline}}%
+\makeatother
 '''
        s = s + '\\end{document}'