+ SCM oct = get_property ("clefOctavation");
+ if (gh_number_p (oct) && gh_scm2int (oct))
+ {
+ Item * g = make_item ("OctavateEight");
+
+ int abs_oct = gh_scm2int (oct) ;
+ int dir = sign (abs_oct);
+ abs_oct = abs (abs_oct) + 1;
+
+ g->set_grob_property ("text",
+ scm_number_to_string (gh_int2scm (abs_oct),
+ SCM_MAKINUM (10)));
+ Side_position_interface::add_support (g,clef_);
+
+ g->set_parent (clef_, Y_AXIS);
+ g->set_parent (clef_, X_AXIS);
+ g->set_grob_property ("direction", scm_int2num (dir));
+ octavate_ = g;
+ announce_grob(octavate_, SCM_EOL);
+ }
+ }
+}
+void
+Clef_engraver::process_music ()
+{
+ inspect_clef_properties ();