2 clef.cc -- implement Clef_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1998 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()
33 ugh. Should be configurable.
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())
130 clef_p_->default_b_ = true;
133 /* ugh; should make Clef_referenced baseclass */
134 Item * it_l =dynamic_cast <Item *> (info.elem_l_);
137 if (Note_head * h = dynamic_cast<Note_head*>(it_l))
139 // h->position_i_ += c0_position_i_;
140 h->position_i_ = h->steps_i_ + c0_position_i_;
142 else if (Local_key_item *i = dynamic_cast<Local_key_item*> (it_l))
144 i->c0_position_i_ =c0_position_i_;
146 else if (Key_item *k = dynamic_cast<Key_item*>(it_l))
148 k-> set_c_position (c0_position_i_);
154 Clef_engraver::do_creation_processing()
156 create_default_b_ = true; // should read property.
157 Scalar def = get_property ("createInitdefaultClef", 0);
158 if (def.to_bool ()) // egcs: Scalar to bool is ambiguous
161 if (clef_type_str_.length_i ())
164 clef_p_->default_b_ = false;
169 Clef_engraver::do_try_music (Music * r_l)
171 if (Clef_change_req *cl = dynamic_cast <Clef_change_req *> (r_l))
174 if (!set_type (cl->clef_str_))
175 cl->error (_ ("unknown clef type "));
185 Clef_engraver::create_clef()
189 Clef_item *c= new Clef_item;
190 c->break_priority_i_ = -2; // ugh
191 announce_element (Score_element_info (c, clef_req_l_));
196 clef_p_->symbol_ = clef_type_str_;
197 clef_p_->y_position_i_ = clef_position_i_;
198 clef_p_->octave_dir_ = octave_dir_;
203 Clef_engraver::do_process_requests()
208 clef_p_->default_b_ = false;
210 else if (create_default_b_)
212 String type = get_property ("defaultClef", 0);
213 set_type (type.length_i () ? type : "treble");
215 clef_p_->default_b_ = false;
216 create_default_b_ =0;
221 Clef_engraver::do_pre_move_processing()
225 typeset_element (clef_p_);
228 create_default_b_ = false;
232 Clef_engraver::do_post_move_processing()
238 Clef_engraver::do_removal_processing()
245 ADD_THIS_TRANSLATOR(Clef_engraver);