- if (gh_list_p (c))
- {
- SCM found = scm_assoc (ly_str02scm (s.ch_C()), c);
- if (found == SCM_BOOL_F)
- return false;
-
- clef_glyph_ = gh_cadr (found);
- SCM pos = gh_caddr (found);
-
- clef_position_i_ = gh_scm2int (pos);
-
- found = scm_assoc (clef_glyph_, p);
- if (found == SCM_BOOL_F)
- return false;
-
- c0_position_i_ = clef_position_i_ + gh_scm2int (gh_cdr (found));
- }
-
- c0_position_i_ -= (int) octave_dir_ * 7;
-
- SCM basic = ly_symbol2scm ("basicClefItemProperties");
- SCM c0 = ly_symbol2scm ("c0-position");
- SCM gl = ly_symbol2scm ("glyph");
- daddy_trans_l_->execute_single_pushpop_property (basic, gl, SCM_UNDEFINED);
- daddy_trans_l_->execute_single_pushpop_property (basic, c0, SCM_UNDEFINED);
- daddy_trans_l_->execute_single_pushpop_property (basic, gl, clef_glyph_);
- daddy_trans_l_->execute_single_pushpop_property (basic, c0, gh_int2scm (c0_position_i_));
-
- return true;
+ daddy_trans_->execute_pushpop_property (basic, glyph_sym, SCM_UNDEFINED);
+ daddy_trans_->execute_pushpop_property (basic, glyph_sym, glyph);