* input/mutopia/W.A.Mozart/mozart-hrn-3.ly: use \book.
* VERSION: release 2.3.0
2004-04-12 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * input/mutopia/J.S.Bach/wtk1-fugue2.ly (bassdux): use \book.
+
+ * input/mutopia/W.A.Mozart/mozart-hrn-3.ly: use \book.
+
+ * VERSION: release 2.3.0
+
* mf/feta-nummer-code.mf: use ascii names for number glyphs.
* buildscripts/mf-to-table.py (parse_logfile): only prepend group-
@item The @code{font-encoding} property can now be used to select
differently encoded fonts. The previous default setting
@code{TeX-text} has been replaced by latin1. LilyPond requires the
-@uref{ec-fonts-mftraced,http://www.lilypond.org/download/fonts/}
-installed to function properly.
+@uref{http://www.lilypond.org/download/fonts/,ec-fonts-mftraced}
+package installed to function properly.
@item The encoding of a file can be switched with
@code{\encoding}. The strings for markup texts are translated
PACKAGE_NAME=LilyPond
MAJOR_VERSION=2
MINOR_VERSION=3
-PATCH_LEVEL=0
+PATCH_LEVEL=1
MY_PATCH_LEVEL=
style = "baroque"
copyright = "Public Domain"
maintainer = "hanwen@cs.uu.nl"
- 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
- lastupdated = "2002/August/19"
+ %% TODO: handle \footer, \head[er] properly
footer = "Mutopia-2002/08/19-6"
+
+ tagline = \markup { \smaller
+ \column <
+ \fill-line < \footer "" >
+ \fill-line < { "This music is part of the Mutopia project, "
+ \typewriter { "http://sca.uwaterloo.ca/Mutopia/" }
+ "." } >
+ \fill-line < { "It has been typeset and placed in the public "
+ "domain by " \maintainer "." } >
+ \fill-line < { "Unrestricted modification and redistribution "
+ "is permitted and encouraged---copy this music "
+ "and share it!" } >
+ >
+ }
+ lastupdated = "2002/August/19"
}
>>
}
+
+\book {
\score {
\notes \context PianoStaff <<
\override Score.TimeSignature #'style = #'C
}
}
+}
+
+\book {
+\score
+{
+ \notes { \transpose c' bes \allegro }
+ \paper{ }
+ \header { piece = "allegro" opus = "" }
+ \midi{ \tempo 4=90 }
+}
+
+
+\score
+{
+ \notes { \transpose c' bes \romanze }
+ \header { piece = "romanze" opus = "" }
+ \midi{ \tempo 4 = 70 }
+ \paper{}
+}
+
+
+\score
+{
+ \notes { \transpose c' bes \rondo }
+ \header { piece = "rondo" opus = "" }
+ \midi{ \tempo 4 = 100 }
+ \paper { }
+}
+
+
+}
}
-
-\score
-{
- \notes { \transpose c' bes \allegro }
- \paper{ }
- \header { piece = "allegro" opus = "" }
- \midi{ \tempo 4=90 }
-}
-
}
-
-\score
-{
- \notes { \transpose c' bes \romanze }
- \header { piece = "romanze" opus = "" }
- \midi{ \tempo 4 = 70 }
- \paper{}
-}
-
c4 r8 r4 r8 \bar "|."
}
-\score
-{
- \notes { \transpose c' bes \rondo }
- \header { piece = "rondo" opus = "" }
- \midi{ \tempo 4 = 100 }
- \paper { }
-}
-
(define-public (make-stencil-boxer line-thick x-padding y-padding callback)
- "Makes a routine that adds a box around the grob parsed as argument"
+ "Makes a routine that adds a box around the grob parsed as argument"
(define (stencil-boxer grob)
- (let*
- (
- (mol (callback grob))
- (x-ext (interval-widen (ly:stencil-extent mol 0) x-padding))
- (y-ext (interval-widen (ly:stencil-extent mol 1) y-padding))
- (x-rule (make-filled-box-stencil (interval-widen x-ext line-thick)
- (cons 0 line-thick)))
- (y-rule (make-filled-box-stencil (cons 0 line-thick) y-ext))
- )
-
- (set! mol (ly:stencil-combine-at-edge mol 0 1 y-rule x-padding))
- (set! mol (ly:stencil-combine-at-edge mol 0 -1 y-rule x-padding))
- (set! mol (ly:stencil-combine-at-edge mol 1 1 x-rule 0))
- (set! mol (ly:stencil-combine-at-edge mol 1 -1 x-rule 0))
-
- mol
- ))
- stencil-boxer
- )
+ (let*
+ (
+ (mol (callback grob))
+ (x-ext (interval-widen (ly:stencil-extent mol 0) x-padding))
+ (y-ext (interval-widen (ly:stencil-extent mol 1) y-padding))
+ (x-rule (make-filled-box-stencil (interval-widen x-ext line-thick)
+ (cons 0 line-thick)))
+ (y-rule (make-filled-box-stencil (cons 0 line-thick) y-ext))
+ )
+
+ (set! mol (ly:stencil-combine-at-edge mol 0 1 y-rule x-padding))
+ (set! mol (ly:stencil-combine-at-edge mol 0 -1 y-rule x-padding))
+ (set! mol (ly:stencil-combine-at-edge mol 1 1 x-rule 0))
+ (set! mol (ly:stencil-combine-at-edge mol 1 -1 x-rule 0))
+
+ mol))
+ stencil-boxer)
(define-public (arg->string arg)
(cond ((number? arg) (ly:inexact->string arg 10))