lilypond-1.3.127

diff --git a/input/bugs/script.ly b/input/bugs/script.ly
new file mode 100644 (file)
index 0000000..b6b1b67
--- /dev/null
+++ b/input/bugs/script.ly
@@ -0,0 +1,8 @@
+
+%  the \stopped collides with the
+%beam.
+
+
+\score { \notes {
+\clef "G"; \stemUp [a''8^\stopped a''8^\stopped]
+}}

diff --git a/input/bugs/staff-size.ly b/input/bugs/staff-size.ly
new file mode 100644 (file)
index 0000000..1248257
--- /dev/null
+++ b/input/bugs/staff-size.ly
@@ -0,0 +1,20 @@
+
+       % separate staff-size is clumsy with \override.
+       
+\score {
+  \notes \relative c' < \context Voice {
+       \property Staff.staffSpace = #10
+       \property Staff.fontSize = #-1
+       \property Voice.fontSize = #-1
+       
+       \property Voice . dynamicDirection = \up \stemDown
+%\key gis \major;
+       c8 d [e f g a] b c \ff
+  }
+
+\context Staff = VB {  \property Voice . dynamicDirection = \down c,,4 \ff c c c  }
+
+>
+\paper { linewidth = -1.; }
+}
+\version "1.3.117"; 

diff --git a/input/bugs/triplets.ly b/input/bugs/triplets.ly
index 802727f22e5fbc9d90ba0a2617b9d3b24e27b2bf..a29c59da62aeb25308b70010fd2578d2c20553ee 100644 (file)
--- a/input/bugs/triplets.ly
+++ b/input/bugs/triplets.ly
@@ -6,6 +6,11 @@ texidoc="Simple beams.  This broke somewhere < 1.3.110
   filename = "gammes_chromatiques.ly";
 }
 
+%{
+           - At bar 3 of 2nd score, stems are too big (or the beams are
+          badly positionned)
+%}
+
 linebreak = \penalty -1000;
 
 $ex8 = \notes \relative c' {

diff --git a/mf/feta-generic.mf b/mf/feta-generic.mf
index 32e47497084b3391da50b8d02a5d0f4dcb1fac88..4195416c33f8a9fdbb3fb666edb6ad178f5bdc45 100644 (file)
--- a/mf/feta-generic.mf
+++ b/mf/feta-generic.mf
@@ -1,4 +1,4 @@
-% 
+i% 
 % feta-generic.mf --  implement generic stuff: include lots of files, but don't
 %  set dims.
 %
@@ -40,9 +40,9 @@ else:
 %      input feta-bolletjes;   
 %      input feta-banier;
 %      input feta-eindelijk;
-%      input feta-klef;
+       input feta-klef;
 %      input feta-toevallig;
-       input feta-schrift;
+%      input feta-schrift;
 %      input feta-haak;
 %      input feta-timesig;
 %      input feta-pendaal;

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 047dc03fdcb9f2305ce29a6e0873568ef0a3c8ba..e69c04884f04d2d01a90611a490fdc6a1e90704d 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -13,6 +13,15 @@
          (uniqued-alist (cdr alist) (cons (car alist) acc)
   ))))
 
+(define (uniq-list list)
+  (if (null? list) '()
+      (if (null? (cdr list))
+         list
+         (if (equal? (car list) (cadr list))
+             (uniq-list (cdr list))
+             (cons (car list) (uniq-list (cdr list)))
+  
+  ))))
 
 (define (alist<? x y)
   (string<? (symbol->string (car x))
@@ -148,6 +157,8 @@ Add a ref if REF is set
   (string-append "@ref{" x "}"))
 
 (define (human-listify l)
+  "Produce a textual enumeration from L, a list of strings"
+  
   (cond
    ((null? l) "none")
    ((null? (cdr l)) (car l))

diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index 8e8ceff574eb7326b9dc76a35fb469430954f244..bd18c440f8fd15d804fa4897db34fcf634e0b56d 100644 (file)
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -43,7 +43,7 @@
          ""
          (string-append
           "This engraver creates the following grobs: \n "
-          (human-listify (map ref-ify  objs))
+          (human-listify (map ref-ify (uniq-list (sort  objs string<? ))))
           ".")
          )
 
@@ -110,7 +110,7 @@
     (string-append 
      desc
      "\n\nThis context creates the following grobs: \n\n"
-     (apply string-append (map (lambda (x) (string-append " " x "  ")) grob-refs))
+     (human-listify (uniq-list (sort grob-refs string<? )))
      "."
      
      (if (null? accepts)