lilypond-1.3.27

diff --git a/CHANGES b/CHANGES
index 5904ba5aee93bdb00f50492f3028db13b6e7a5d4..d0896a7d87bf4302832367c9d7754df845ead6b2 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,6 +1,45 @@
-1.3.25.jcn2
+1.3.26.jcn2
 ===========
 
+* Bugfix: font used in volta-spanner calculation.
+
+* Added simple selection list to webpage, inspired by sawmill.
+ 
+* Devised kludge for ascii 5 character font pitches.
+ 
+* Substitutions: interline, 1997,1998, @stack.nl and small typo fixes.
+
+1.3.26.hwn1
+===========
+
+* Plug memory leaks related to Moment:
+  - Spacing_engraver::do_pre_move_processing ()
+  - make_rational ()/make-rational
+  - Paper_column::Paper_column ()
+
+* Plug memory leak in Paper_outputter::output_{String,Real,int}_def()
+
+* Plug memory leak in Score_engraver::set_columns ()
+
+* Plug memory leak in Scheme_hash_table::set()
+
+* Plug memory leak in Score_element::molecule_extent ()
+
+* Bugfix: don't crash if a slur doesn't span anything.
+
+* Bugfix: don't crash if doing beams without a staff symbol.
+
+* Generic element property setting:
+
+       \outputproperty #predicate #'symbol = #value
+
+Will set the element property symbol to value, for any elements that
+return true for PREDICATE.  This allows you to virtually tweak *ANY*
+property of the output. Example in input/test/generic-output-property.ly
+
+1.3.26
+======
+
 * lilypond as as2ly: --help and --version to stdout.  Regular identify 
   to stderr.  This fixes help2man's manpage generation.
 

diff --git a/Documentation/topdocs/index.tely b/Documentation/topdocs/index.tely
index 38360739ad6beec46bc72bab0c8604fa5276bdbc..e87837690fc7b0e12bb4d60d0580abe6b638f875 100644 (file)
--- a/Documentation/topdocs/index.tely
+++ b/Documentation/topdocs/index.tely
@@ -5,13 +5,31 @@
 @node Top, , , (dir)
 @top
 
-
-@unnumberedsec LilyPond -- The GNU Project Music Typesetter
-
+@html
+<p align=center>
+[
+    <a href="#download">Download</a>
+    |
+    <a href="Documentation/out-www/faq.html">FAQ</a>
+    |
+    <a href="Documentation/out-www/index.html">Documentation</a>
+    |
+    <a href="#music">Music archives</a>
+    |
+    <a href="#mailing-lists">Mailing lists</a>
+    |
+    <a href="Documentation/programmer/out-www/regression-test.html">
+    Regression test</a>
+    |
+    <a href="Documentation/out-www/CHANGES.txt">News</a>
+]
+@end html
 
 @html
-<img src="Documentation/pictures/out-www/lelie-logo.png">
+<p align=center>
+<img src="Documentation/pictures/out-www/lelie-logo.png" alt="[logo]">
 @end html
+@unnumberedsec LilyPond -- The GNU Project Music Typesetter
 
 @c something breaks on 3.12 f
 
@@ -25,8 +43,8 @@ internet.
 
 @unnumberedsec Why should I use it?
 
-The input to LilyPond is plain text. So you can use your favorite text
-editor to edit it, you can put it in mail or embed it in an article like
+The input to LilyPond is plain text. So, you can use your favorite text
+editor to enter it, you can put it in mail or embed it in an article like
 this:
 
 @quotation
@@ -45,14 +63,14 @@ files with lilypond, and we have a simple MIDI to lilypond conversion
 tool, @file{midi2ly}.
 
 LilyPond is free software. It is licensed under GNU General Public
-License, so you can use, modify and redistribute the program almost no
-restrictions.  LilyPond is part of the @uref{http://www.gnu.org/,GNU
-Project}.
-
-The version numbers are in Linux-kernel style: even unnumbered versions
-are `stable'. The webpages for the stable version reside at GNU, here:
- @uref{http://www.gnu.org/software/lilypond}. Big enhancements go
-into the odd numbered versions, whose webpages are on 
+License, so you can use, modify and redistribute the program with
+almost no restrictions.  LilyPond is part of the 
+@uref{http://www.gnu.org/,GNU Project}.
+
+The version numbers are in Linux-kernel style: even numbered versions
+are `stable'. The webpages for the stable version (1.2) reside at GNU,
+here: @uref{http://www.gnu.org/software/lilypond}. Big enhancements go
+into the latest odd numbered version (1.3), which webpages are on 
  @uref{http://www.cs.uu.nl/~hanwen/lilypond/,Han-Wen's site}.
 
 If want more information, you can browse the
@@ -65,6 +83,10 @@ If want more information, you can browse the
 For the latest and greatest features, check out the
 @uref{Documentation/out-www/CHANGES.txt, Change Log}.
 
+
+@html
+<a name="music">
+@end html
 @unnumberedsec Sheet music
 
 
@@ -74,7 +96,7 @@ examples} and @uref{./mutopia/out-www/index.html,longer examples}. The
 examples include sound bites  in MIDI, pictures in PNG, printable scores
 in PostScript, and LilyPond input.
 
-Other use LilyPond too.
+Others use LilyPond too.
 @uref{http://www.geocities.com/Vienna/Studio/1714/harpsichord.html,John
 Sankey}, harpsichordist to the internet, is typesetting the complete
 @uref{http://www.geocities.com/Vienna/Studio/1714/scarlattidwn.html/,sonatas
@@ -83,9 +105,12 @@ putting @uref{http://www4.smart.net/~jcovey/scores/,guitar music} on the
 net. The @uref{http://sca.uwaterloo.ca/Mutopia/,Mutopia project} is a
 large archive of public domain sheet music under construction.
 
+@html
+<a name="download">
+@end html
 @unnumberedsec Download
 
-If you want to compile LilyPond from sources,  download them here:
+If you want to compile LilyPond from source, download here:
 @itemize @bullet
 @item    Download stable releases at
 @uref{ftp://ftp.gnu.org/gnu/lilypond/}
@@ -109,12 +134,35 @@ binary RPMs:  @uref{ftp://ftp.cs.uu.nl/pub/GNU/LilyPond/RedHat/RPMS/}
 @item Windows NT: @uref{http://home.austin.rr.com/jbr/jeff/lilypond/}
 @end itemize
 
+
+@html
+<a name="mailing-lists">
+@end html
 @unnumberedsec Mailing list
 
-If you have questions do write to the mailing lists!
- (but don't forget to read the @uref{Documentation/out-www/faq.html,
-Frequently Asked Questions} first)
+If you have questions, do write to the mailing lists!
+ (But don't forget to read the @uref{Documentation/out-www/faq.html,
+Frequently Asked Questions} first.)
 
+@html
+<p align=center>
+[
+    <a href="#download">Download</a>
+    |
+    <a href="Documentation/out-www/faq.html">FAQ</a>
+    |
+    <a href="Documentation/out-www/index.html">Documentation</a>
+    |
+    <a href="#music">Music archives</a>
+    |
+    <a href="#mailing-lists">Mailing lists</a>
+    |
+    <a href="Documentation/programmer/out-www/regression-test.html">
+    Regression test</a>
+    |
+    <a href="Documentation/out-www/CHANGES.txt">News</a>
+]
+@end html
 
 @table @samp
 @item info-gnu-music@@gnu.org
@@ -158,5 +206,24 @@ of the LilyPond package.  The version of this webpage is printed at the
 bottom. If you want to volunteer for making more beautiful webpages,
 then please mail us!
 
+@html
+<p align=center>
+[
+    <a href="#download">Download</a>
+    |
+    <a href="Documentation/out-www/faq.html">FAQ</a>
+    |
+    <a href="Documentation/out-www/index.html">Documentation</a>
+    |
+    <a href="#music">Music archives</a>
+    |
+    <a href="#mailing-lists">Mailing lists</a>
+    |
+    <a href="Documentation/programmer/out-www/regression-test.html">
+    Regression test</a>
+    |
+    <a href="Documentation/out-www/CHANGES.txt">News</a>
+]
+@end html
 
 @bye

diff --git a/lily/volta-spanner.cc b/lily/volta-spanner.cc
index 6258b17008f142d414fc23ced7e59b64515953e4..72ace70c4f1f1c30399b55cd848b790ef5de5be1 100644 (file)
--- a/lily/volta-spanner.cc
+++ b/lily/volta-spanner.cc
@@ -98,7 +98,7 @@ Volta_spanner::do_brew_molecule_p () const
     dy = dy >? note_column_arr[i]->extent (Y_AXIS)[BIGGER];
   dy -= h;
 
-  Molecule two (lookup_l ()->text ("number", "2", paper_l ()));
+  Molecule two (lookup_l ()->text ("volta", "2", paper_l ()));
   Real gap = two.dim_.x ().length () / 2;
   Offset off (num.dim_.x ().length () + gap, 
              h / half_staff_space - gap);

diff --git a/scm/lily.scm b/scm/lily.scm
index 337387b0bf5a25f953313de1cfe3f792df8494e4..b6ea62e1df2dc049d3cb04cef482195e7b286f93 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -216,7 +216,27 @@
                (font-load-command (car x) (cdr x))) font-name-alist)
   ))
   
+;;;;;;;;;;;;;;;;;;;;
 
+
+; Make a function that checks score element for being of a specific type. 
+(define (make-type-checker name)
+  (lambda (elt)
+    (not (not (memq name (ly-get-elt-property elt 'interfaces))))))
+
+       
+
+
+
+
+
+
+
+
+
+
+
+;;;;;;;;;;;;;;;;;;; TeX output
 (define (tex-scm action-name)
   (define (unknown) 
     "%\n\\unknown%\n")
@@ -752,13 +772,19 @@
 
   (define (lily-def key val)
          (if 
-          (equal? key "mudelapaperlinewidth")
+          (or (equal? key "mudelapaperlinewidth")
+              (equal? key "mudelapaperstaffheight"))
           (string-append "(define " key " " (arg->string val) ")\n")
           ""))
 
   (define (placebox x y s) 
-    (string-append (func "move-to" x y) s))
-
+    (let ((ey (inexact->exact y)))
+         (string-append "(move-to " (number->string (inexact->exact x)) " "
+                        (if (= 0.5 (- (abs y) (abs ey)))
+                            (number->string y)
+                            (number->string ey))
+                        ")\n" s)))
+                      
   (define (select-font font-name-symbol)
     (let* ((c (assoc font-name-symbol font-name-alist)))
       (if (eq? c #f)
@@ -781,7 +807,6 @@
 
   (define (volta h w thick vert-start vert-end)
          ;; urg
-         (set! h 1)
          (string-append
           (func "set-line-char" "|")
           (func "rmove-to" 0 -4)