lilypond-1.3.125

diff --git a/input/test/rhythmic-staff.ly b/input/test/rhythmic-staff.ly
index 44a5c6d184df7610d0be00e7381777361ba1f68d..313e700e075e5e0151a591eb29262e7f43f7cf4b 100644 (file)
--- a/input/test/rhythmic-staff.ly
+++ b/input/test/rhythmic-staff.ly
@@ -1,7 +1,9 @@
+
 \score{
   \context RhythmicStaff {
     \notes\relative c''{ 
-      \clef percussion;
+      \property RhythmicStaff.clefGlyph = #"clefs-percussion"
+       \property RhythmicStaff.clefPosition = #0
       \time 4/4; 
       r4 r g2 | r4 g r2 | g1:32 | r1 |
     }
@@ -9,7 +11,7 @@
   \paper{
     \translator{
       \RhythmicStaffContext
-      \consists "Clef_engraver"; % Doesn't work!?
+      \consists "Clef_engraver";
     }
   }
 }

diff --git a/lily/text-spanner-engraver.cc b/lily/text-spanner-engraver.cc
index 69b605640625dac62b8e086a67b771fadd1a9c84..4f339eb92cf7e6238f943b788d17ff1b03c2bef2 100644 (file)
--- a/lily/text-spanner-engraver.cc
+++ b/lily/text-spanner-engraver.cc
@@ -86,7 +86,6 @@ Text_spanner_engraver::try_music (Music *m)
 void
 Text_spanner_engraver::create_grobs ()
 {
-  /////
   if (req_drul_[STOP])
     {
       if (!span_)
@@ -103,6 +102,7 @@ Text_spanner_engraver::create_grobs ()
          finished_ = span_;
          span_ = 0;
          current_req_ = 0;
+         req_drul_[STOP] = 0;
        }
     }
 
@@ -126,7 +126,9 @@ Text_spanner_engraver::create_grobs ()
          Side_position::set_axis (span_, Y_AXIS);
          Grob *e = unsmob_grob (get_property ("currentMusicalColumn"));
          span_->set_bound (LEFT, e);
+         
          announce_grob (span_, req_drul_[START]);
+         req_drul_[START] = 0;
        }
     }
 }

diff --git a/lily/text-spanner.cc b/lily/text-spanner.cc
index 22d400cc6bdaa2aeb12b4a6477fae613a4526b7f..ba1e420fc18370c6a80c88547dad099a53e77349 100644 (file)
--- a/lily/text-spanner.cc
+++ b/lily/text-spanner.cc
@@ -1,4 +1,5 @@
 /*
+
   text-spanner.cc -- implement Text_spanner
 
   source file of the GNU LilyPond music typesetter
@@ -47,6 +48,7 @@ Text_spanner::brew_molecule (SCM smob)
   Direction d = LEFT;
   do
     {
+      extra_off [d]=0;
       Item *b = spanner->get_bound (d);
       broken[d] = b->break_status_dir () != CENTER;
 

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 367e6d127790db4d285104e2eba88bccaff7cd08..1ae75fc8b9a4fc64f27afbf0311484e3084ecc89 100644 (file)
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -459,7 +459,7 @@ void
 add_trans_scm_funcs ()
 {
   scm_make_gsubr ("ly-get-trans-property", 2, 0, 0, (Scheme_function_unknown)ly_get_trans_property);
-  scm_make_gsubr ("ly-get-trans-property", 3, 0, 0, (Scheme_function_unknown)ly_get_trans_property);
+  scm_make_gsubr ("ly-set-trans-property", 3, 0, 0, (Scheme_function_unknown)ly_set_trans_property);
 }
 
 ADD_SCM_INIT_FUNC(trans_scm, add_trans_scm_funcs);

diff --git a/scm/clef.scm b/scm/clef.scm
index e3c3215e1f224b8ab83b9a385b949c6907d913f1..d9eecfb6b9055a98f34aa4bea068f3c9dd6eefa3 100644 (file)
--- a/scm/clef.scm
+++ b/scm/clef.scm
@@ -89,11 +89,10 @@
           (iterator-ctor . ,Property_iterator::constructor)
           (value . ,(caddr e))
           )
-         ,(if (not (equal? oct 0))
-              `((symbol . clefOctavation)
+         ((symbol . clefOctavation)
                 (iterator-ctor . ,Property_iterator::constructor)
                 (value . ,oct)
-              ))
+              )
          )
        (begin
          (ly-warn (string-append "Unknown clef type `" cl "'\nSee scm/lily.scm for supported clefs"))

diff --git a/scripts/ly2dvi.py b/scripts/ly2dvi.py
index 00ce2e48afd8078fde020d7ffc0de4ad58c5cf2c..f0c91aad996d782f618f02d76529ca0500c6d07f 100644 (file)
--- a/scripts/ly2dvi.py
+++ b/scripts/ly2dvi.py
@@ -337,6 +337,9 @@ class TeXOutput:
 
         outfile=this.__base + '.dvi'
         if Props.get('output') != '':
+           if not os.path.exists(Props.get('output')):
+                   os.mkdir(Props.get('output'))
+
             outfile = os.path.join(Props.get('output'), outfile )
             
         this.write(r"""