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:
+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
============
1.3.150.jcn2
============
@end example
For running on a Red Hat system you need these packages: guile, tetex,
@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,
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.
@file{make/out/suse.spec}. This file is distributed along with the
sources.
@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
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{
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.
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.
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=150
MAJOR_VERSION=1
MINOR_VERSION=3
PATCH_LEVEL=150
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
--- /dev/null
+\score {
+ \context Staff \notes\relative c''<
+ \context Voice=one {
+ \voiceOne
+ e2->
+ }
+ \context Voice=two {
+ \voiceTwo
+ f,2->
+ }
+ >
+}
\ No newline at end of file
--- /dev/null
+\header{
+texidoc="running this through ly2dvi, or with -Hheader dumps core"
+tagline="{"
+}
+
+\score {
+ \notes c
+}
\ No newline at end of file
--- /dev/null
+\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
--- /dev/null
+\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 ] } >
+ }
+}
(c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
(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>
#include <ctype.h>
#include <iostream.h>
steno_duration {
$$ = $1;
}
steno_duration {
$$ = $1;
}
- | steno_duration '*' bare_unsigned {
+ | multiplied_duration '*' bare_unsigned {
$$ = unsmob_duration ($$)->compressed ( $3) .smobbed_copy ();
}
$$ = 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 ();
Moment m (gh_scm2int (gh_car ($3)), gh_scm2int (gh_cdr ($3)));
$$ = unsmob_duration ($$)->compressed (m).smobbed_copy ();
# rpm: 4.0: broken for -ta builds: rpm doesn't look in tarball for xpm
# Icon: @package@-icon.xpm
BuildRoot: /tmp/lilypond-install
# 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
Prereq: tetex
# use keywords: music notation software
# rpm: 4.0: broken for -ta builds: rpm doesn't look in tarball for xpm
# Icon: lilypond-icon.xpm
BuildRoot: /tmp/lilypond-install
# 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
Prereq: tetex python
# use keywords: music notation software
poet = "Text by Ludwig Rellstab (1799-1860)"
enteredby = "JCN"
copyright = "public domain"
poet = "Text by Ludwig Rellstab (1799-1860)"
enteredby = "JCN"
copyright = "public domain"
- instrument = \instrument
+ % instrument = \instrument
% mutopia headers.
mutopiatitle = "Standchen"
% mutopia headers.
mutopiatitle = "Standchen"
copyright = "Public Domain"
maintainer = "Jan Nieuwenhuizen"
maintainerEmail = "janneke@gnu.org"
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
\\\\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"
R2. |
g8. b16 es4. d8 |
c8. g16 es4. c8 |
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 |
- \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 |
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. |
g!2. |
\times 2/3 { [ d'8\f( )cis] d } f4. b,8 |
c!2. |
a8. b16 c4-> a8 r |
R2. |
R2. |
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. ~ |
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
}
lyricVerseOne = \lyrics{
}
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{
}
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{
}
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{
}
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-.> |
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-.> |
}
trebleVerseOne = \notes\relative c{
}
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>
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'> |
%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> |
%16
<es2. g> |
r8 <f, g> <g b> <f g> <g b> <f g> |
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> |
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> |
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
< {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> |
<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
<f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
%60
}
trebleThrough = \notes \relative c'{
}
trebleThrough = \notes \relative c'{
<g4. g'> <b8 b'> [<d'8.-> d,-> > c16] |
%65
<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
\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
}
\context Voice=two {
\voiceTwo
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> |
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 } > |
< { 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
<c2 c'> <e4\pp g> |
% four copied from begin eentje
<c2 c'> <e4\pp g> |
% four copied from begin eentje
<f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
%80
<f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
%80
- \property Voice . TextItem \override #'font-style = #'italic
+ \property Voice . TextScript \override #'font-shape = #'italic
- \property Voice . TextItem \revert #'font-style
+ \property Voice . TextScript \revert #'font-shape
<g,2. e' g> |
<g2.-\fermata e' g> |
<g,2. e' g> |
<g2.-\fermata e' g> |
<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'> <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>] |
%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>] |
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>] |
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>] |
%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>] |
global = \notes{
\time 3/4
\key es \major
global = \notes{
\time 3/4
\key es \major
+ \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 {
\bar "|."
}
allLyrics = \lyrics {
+ % maybe should be bigger by default, in grob-description.scm ?
+ \property Lyrics . LyricText \override #'font-relative-size = #1
\lyricVerseOne
\lyricVerseTwo
\lyricThrough
\lyricVerseOne
\lyricVerseTwo
\lyricThrough
-vocals = \context Voice {
+vocals = \context Voice \notes {
\clef treble
% certainly no auto-beaming for vocals
\property Voice.noAutoBeaming = ##t
\property Staff.automaticMelismata= ##t
\dynamicUp
\clef treble
% certainly no auto-beaming for vocals
\property Voice.noAutoBeaming = ##t
\property Staff.automaticMelismata= ##t
\dynamicUp
+ % duh 1 != 3/4
+ R1 * 3/4 * 4
\vocalVerse
\vocalThrough
\vocalVerse
\vocalThrough
}
vocalStaff = \context Staff = vocal<
}
vocalStaff = \context Staff = vocal<
- \property Staff.instrument = "synth voice"
+ \property Staff.midiInstrument = "synth voice"
}
trebleStaff = \context Staff = treble<
}
trebleStaff = \context Staff = treble<
+ \property Staff.midiInstrument = "acoustic grand"
}
bassStaff = \context Staff = bass<
}
bassStaff = \context Staff = bass<
+ \property Staff.midiInstrument = "acoustic grand"
\lyricStaff
\grandStaff
>
\lyricStaff
\grandStaff
>
+ \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
+ }
+ }
{
dup base-line-skip gt {
/line-height exch def
{
dup base-line-skip gt {
/line-height exch def
+ }
+ {
+ 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
line-y top-margin sub base-line-skip lt {
showpage
/line-y vsize top-margin sub def
-% 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}'
'''
s = s + '\\end{document}'