2 stem-grav.cc -- implement Stem_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "staff-symbol-referencer.hh"
10 #include "note-head.hh"
12 #include "musical-request.hh"
14 #include "stem-tremolo.hh"
16 #include "translator-group.hh"
17 #include "engraver.hh"
20 Make stems upon receiving noteheads.
22 class Stem_engraver : public Engraver
26 VIRTUAL_COPY_CONS (Translator);
30 virtual void do_creation_processing ();
31 virtual void acknowledge_element (Score_element_info);
32 virtual void do_pre_move_processing ();
33 virtual bool do_try_music (Music*);
36 int default_tremolo_type_i_;
38 Stem_tremolo *tremolo_p_;
39 Rhythmic_req *rhythmic_req_l_;
40 Tremolo_req* tremolo_req_l_;
43 ADD_THIS_TRANSLATOR (Stem_engraver);
45 Stem_engraver::Stem_engraver ()
50 default_tremolo_type_i_ = 16;
55 Stem_engraver::do_creation_processing ()
58 huh, why only at creation time?
60 SCM prop = get_property ("tremoloFlags");
61 if (gh_number_p(prop))
63 default_tremolo_type_i_ = gh_scm2int (prop);
68 Stem_engraver::acknowledge_element(Score_element_info i)
70 if (Rhythmic_head * h = dynamic_cast<Rhythmic_head *> (i.elem_l_))
75 Rhythmic_req * r = dynamic_cast <Rhythmic_req *> (i.req_l_);
76 int duration_log = r->duration_.durlog_i_;
79 stem_p_ = new Stem (get_property ("basicStemProperties"));
80 Staff_symbol_referencer_interface st(stem_p_);
83 stem_p_->set_elt_property ("duration-log", gh_int2scm (duration_log));
88 Stem tremolo is never applied to a note by default,
89 is must me requested. But there is a default for the
94 the first and last (quarter) note bothe get one tremolo flag.
96 int requested_type = tremolo_req_l_->type_i_;
98 requested_type = default_tremolo_type_i_;
100 default_tremolo_type_i_ = requested_type;
104 tremolo_p_ = new Stem_tremolo (get_property ("basicStemTremoloProperties"));
105 announce_element (Score_element_info (tremolo_p_, tremolo_req_l_));
107 The number of tremolo flags is the number of flags of
108 the tremolo-type minus the number of flags of the note
111 int tremolo_flags = intlog2 (requested_type) - 2
112 - (duration_log > 2 ? duration_log - 2 : 0);
113 if (tremolo_flags < 0)
115 tremolo_p_->set_elt_property ("tremolo-flags",
116 gh_int2scm (tremolo_flags));
119 announce_element (Score_element_info (stem_p_, r));
122 if (stem_p_->flag_i () != duration_log)
124 r->warning (_f ("Adding note head to incompatible stem (type = %d)", 1 << stem_p_->flag_i ()));
127 stem_p_->add_head (h);
132 Stem_engraver::do_pre_move_processing()
136 tremolo_p_->set_stem (stem_p_);
137 typeset_element (tremolo_p_);
143 SCM prop = get_property ("stemLeftBeamCount");
144 if (gh_number_p(prop))
146 stem_p_->set_beaming (gh_scm2int (prop),LEFT);
147 daddy_trans_l_->set_property ("stemLeftBeamCount", SCM_UNDEFINED);
149 prop = get_property ("stemRightBeamCount");
150 if (gh_number_p(prop))
152 stem_p_->set_beaming (gh_scm2int (prop), RIGHT);
153 daddy_trans_l_->set_property ("stemRightBeamCount", SCM_UNDEFINED);
157 // UGH. Should mark non-forced instead.
160 aargh: I don't get it. direction is being set (and then set
161 to forced), if we have a Chord_tremolo.
163 SCM dir = stem_p_->get_elt_property ("direction");
164 if (gh_number_p (dir) && to_dir(dir))
166 stem_p_->set_elt_property ("dir-forced", SCM_BOOL_T);
169 typeset_element(stem_p_);
178 Stem_engraver::do_try_music (Music* r)
180 if (Tremolo_req* a = dynamic_cast <Tremolo_req *> (r))