]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.1.36
authorfred <fred>
Tue, 26 Mar 2002 21:48:13 +0000 (21:48 +0000)
committerfred <fred>
Tue, 26 Mar 2002 21:48:13 +0000 (21:48 +0000)
lily/bow.cc
lily/slur.cc

index c634746b1f6cc2a7047485e166301ad6da6be32b..9f198376d58566704f3192fb3ff8932ac4e46c72 100644 (file)
@@ -35,10 +35,11 @@ Bow::do_brew_molecule_p () const
   Real dy = c[3].y () - c[0].y ();
   Molecule a;
 
-  if (!dash_i_)
+  SCM d =  get_elt_property (dashed_scm_sym);
+  if (d == SCM_BOOL_F)
     a = lookup_l ()->slur (c);
   else
-    a = lookup_l ()->dashed_slur (c, thick, dash_i_);
+    a = lookup_l ()->dashed_slur (c, thick, gh_scm2int (SCM_CDR(d)));
 
   if (check_debug && !monitor->silent_b ("Bow"))
     {
index f4d58d9b7545e62ce503032deb0b7b415362e75b..3e2b5d1abb2c034a1de719c7a96f409d6e05f247 100644 (file)
@@ -312,7 +312,6 @@ Slur::get_encompass_offset_arr () const
       notes.push (info.o_ - left);
     }
   Encompass_info info (encompass_arr_.top (), dir_, this);
-  // [encompass_arr_.size () - 1]
   
   // urg:
   Slur* urg = (Slur*)this;