lilypond-1.3.0

diff --git a/lily/tuplet-engraver.cc b/lily/tuplet-engraver.cc
index c067169a8c4aeb906470d2fa99c291e91d44e768..ce9c2cd2de27ee75670d9f0b0b55be97e4629f32 100644 (file)
--- a/lily/tuplet-engraver.cc
+++ b/lily/tuplet-engraver.cc
@@ -35,13 +35,13 @@ void
 Tuplet_engraver::do_process_requests ()
 {
   int dir = 0;
-  Scalar prop = get_property ("tupletDirection", 0);
-  if (prop.isnum_b())
-    dir = (int)prop;
+  SCM prop = get_property ("tupletDirection", 0);
+  if (isdir_b (prop))
+    dir = to_dir (prop);
   int visibility = 3;
   prop = get_property ("tupletVisibility", 0);
-  if (prop.isnum_b())
-    visibility = (int)prop;
+  if (SCM_NUMBERP(prop))
+    visibility = gh_scm2int (prop);    // bool ?
 
   for (int i= started_span_p_arr_.size ();
        i < time_scaled_music_arr_.size (); i++)
@@ -61,7 +61,9 @@ void
 Tuplet_engraver::acknowledge_element (Score_element_info i)
 {
   bool grace= (i.elem_l_->get_elt_property (grace_scm_sym) != SCM_BOOL_F);
-  if (grace != get_property ("weAreGraceContext",0).to_bool ())
+  SCM wg = get_property ("weAreGraceContext",0);
+  bool wgb = gh_boolean_p (wg) && gh_scm2bool (wg);
+  if (grace != wgb)
     return;
   
   if (Note_column *nc = dynamic_cast<Note_column *> (i.elem_l_))

diff --git a/lily/tuplet-spanner.cc b/lily/tuplet-spanner.cc
index 8ea56cdd42b9cc41fce0d5d20ab298527ec9b3af..234a4f982ac9d02be0e51e9df54e0a9690a29cb3 100644 (file)
--- a/lily/tuplet-spanner.cc
+++ b/lily/tuplet-spanner.cc
@@ -38,6 +38,10 @@ Tuplet_spanner::do_brew_molecule_p () const
   SCM visibility_sym =get_elt_property (tuplet_visibility_scm_sym);
   if (visibility_sym != SCM_BOOL_F)
     {
+      /*
+       ARG. Fixme.
+       */
+      
       /* Property values:
         0       show nothing
         1       show number