* VERSION (MY_PATCH_LEVEL): make 1.7.0

[lilypond.git] / lily / clef-engraver.cc

diff --git a/lily/clef-engraver.cc b/lily/clef-engraver.cc
index b36fc2dc8aba81cd337d54b71a8c7af98ce1796d..091ee979a0bb8a0fd93b235b18530ce8c7a26f9c 100644 (file)
--- a/lily/clef-engraver.cc
+++ b/lily/clef-engraver.cc
@@ -95,28 +95,27 @@ Clef_engraver::create_clef ()
       announce_grob(c, SCM_EOL);
 
       clef_ = c;
-    }
-  SCM cpos = get_property ("clefPosition");
+      SCM cpos = get_property ("clefPosition");
 
-  if (gh_number_p (cpos))
-    Staff_symbol_referencer::set_position (clef_, gh_scm2int (cpos));
+      if (gh_number_p (cpos))
+       Staff_symbol_referencer::set_position (clef_, gh_scm2int (cpos));
 
-  SCM oct =  get_property ("clefOctavation");
-  if (gh_number_p (oct) && gh_scm2int (oct))
-    {
-      Item * g = new Item (get_property ("OctavateEight"));
+      SCM oct =  get_property ("clefOctavation");
+      if (gh_number_p (oct) && gh_scm2int (oct))
+       {
+         Item * g = new Item (get_property ("OctavateEight"));
 
-      Side_position_interface::add_support (g,clef_);      
+         Side_position_interface::add_support (g,clef_);      
 
-      g->set_parent (clef_, Y_AXIS);
-      g->set_parent (clef_, X_AXIS);
+         g->set_parent (clef_, Y_AXIS);
+         g->set_parent (clef_, X_AXIS);
 
-      g->set_grob_property ("direction", gh_int2scm (sign (gh_scm2int (oct))));
-      octavate_ = g;
-      announce_grob(octavate_, SCM_EOL);
+         g->set_grob_property ("direction", scm_int2num (sign (gh_scm2int (oct))));
+         octavate_ = g;
+         announce_grob(octavate_, SCM_EOL);
+       }
     }
 }
-
 void
 Clef_engraver::process_music ()
 {