2 clef.cc -- implement Clef_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
8 Mats Bengtsson <matsb@s3.kth.se>
13 #include "clef-engraver.hh"
14 #include "clef-item.hh"
16 #include "command-request.hh"
17 #include "time-description.hh"
18 #include "note-head.hh"
19 #include "key-item.hh"
20 #include "local-key-item.hh"
22 Clef_engraver::Clef_engraver()
35 struct Clef_settings {
40 {"treble", "treble", -2},
41 {"violin", "treble", -2},
44 {"french", "treble",-4 },
45 {"soprano", "alto",-4 },
46 {"mezzosoprano", "alto",-2 },
49 {"baritone", "alto",4 },
50 {"varbaritone", "bass",0 },
53 {"subbass", "bass",4},
58 Clef_engraver::set_type (String s)
60 if (s.right_str(2) == "_8") // Down one octave
63 s = s.left_str(s.length_i() - 2);
65 else if (s.right_str(2) == "^8") // Up one octave
68 s = s.left_str(s.length_i() - 2);
74 for (Clef_settings *c = clef_settings; !found && c->name; c++)
78 clef_type_str_ = c->cleftype;
79 clef_position_i_ = c->position;
86 switch(toupper (s[0]))
89 clef_type_str_ = "bass";
92 clef_type_str_ = "treble";
95 clef_type_str_ = "alto";
100 clef_position_i_ = 2 * (s[1] - '0') - 6;
103 if (clef_type_str_ == "treble")
104 c0_position_i_ = clef_position_i_ - 4;
105 else if (clef_type_str_ == "alto")
106 c0_position_i_ = clef_position_i_;
107 else if (clef_type_str_ == "bass")
108 c0_position_i_ = clef_position_i_ + 4;
112 c0_position_i_ -= (int) octave_dir_ * 7;
119 Generate a clef at the start of a measure. (when you see a Bar,
123 Clef_engraver::acknowledge_element (Score_element_info info)
125 if (dynamic_cast<Bar*>(info.elem_l_)
126 && clef_type_str_.length_i())
131 clef_p_->set_elt_property(visibility_lambda_scm_sym,
132 gh_eval_str ("postbreak_only_visibility"));
135 /* ugh; should make Clef_referenced baseclass */
136 Item * it_l =dynamic_cast <Item *> (info.elem_l_);
139 if (Note_head * h = dynamic_cast<Note_head*>(it_l))
141 // h->position_i_ += c0_position_i_;
142 h->position_i_ += c0_position_i_;
144 else if (Local_key_item *i = dynamic_cast<Local_key_item*> (it_l))
146 i->c0_position_i_ =c0_position_i_;
148 else if (Key_item *k = dynamic_cast<Key_item*>(it_l))
150 k-> set_c_position (c0_position_i_);
156 Clef_engraver::do_creation_processing()
158 create_default_b_ = true; // should read property.
159 Scalar def = get_property ("createInitdefaultClef", 0);
160 if (def.to_bool ()) // egcs: Scalar to bool is ambiguous
163 if (clef_type_str_.length_i ())
166 clef_p_->set_elt_property (non_default_scm_sym, SCM_BOOL_T);
171 Clef_engraver::do_try_music (Music * r_l)
173 if (Clef_change_req *cl = dynamic_cast <Clef_change_req *> (r_l))
176 if (!set_type (cl->clef_str_))
177 cl->error (_ ("unknown clef type "));
187 Clef_engraver::create_clef()
191 Clef_item *c= new Clef_item;
192 c->set_elt_property (break_priority_scm_sym, gh_int2scm (-2)); // ugh
193 announce_element (Score_element_info (c, clef_req_l_));
197 clef_p_->symbol_ = clef_type_str_;
198 clef_p_->y_position_i_ = clef_position_i_;
201 clef_p_->set_elt_property (octave_dir_scm_sym, gh_int2scm (octave_dir_));
207 Clef_engraver::do_process_requests()
213 else if (create_default_b_)
215 String type = get_property ("defaultClef", 0);
216 set_type (type.length_i () ? type : "treble");
218 create_default_b_ =0;
223 Clef_engraver::do_pre_move_processing()
227 typeset_element (clef_p_);
230 create_default_b_ = false;
234 Clef_engraver::do_post_move_processing()
240 Clef_engraver::do_removal_processing()
247 ADD_THIS_TRANSLATOR(Clef_engraver);