]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/spanner.cc
($(outdir)/%.pdf): add DVIPS_FLAGS. This will
[lilypond.git] / lily / spanner.cc
index 0b444d45fecdda45bb34a2c021d95d29a414910a..0a4a585d03a693b04c65541222e023353b311249 100644 (file)
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 #include <math.h>
 #include <libc-extension.hh>
@@ -13,7 +13,7 @@
 #include "spanner.hh"
 #include "paper-column.hh"
 #include "paper-score.hh"
-#include "molecule.hh"
+#include "stencil.hh"
 #include "paper-outputter.hh"
 #include "paper-column.hh"
 #include "system.hh"
@@ -123,6 +123,12 @@ Spanner::do_break_processing ()
     broken_intos_[i]->break_index_ = i;
 }
 
+int
+Spanner::get_break_index ()const
+{
+  return break_index_;
+}
+
 void
 Spanner::set_my_columns ()
 {
@@ -202,9 +208,8 @@ Spanner::Spanner (SCM s)
   break_index_ = 0;
   spanned_drul_[LEFT]=0;
   spanned_drul_[RIGHT]=0;
+
   Group_interface::add_thing (this, ly_symbol2scm ("interfaces"), ly_symbol2scm ("spanner-interface"));
-                    
-  
 }
 
 Spanner::Spanner (Spanner const &s)
@@ -336,7 +341,7 @@ Spanner::set_spacing_rods (SCM smob)
   r.item_l_drul_[LEFT] = sp->get_bound (LEFT);
   r.item_l_drul_[RIGHT] = sp->get_bound (RIGHT);
   r.distance_ =
-    gh_scm2double (me->get_grob_property ("minimum-length"));
+    robust_scm2double (me->get_grob_property ("minimum-length"), 0);
 
   r.add_to_cols ();
   return SCM_UNSPECIFIED;