2 commandrequest.cc -- implement Nonmusical reqs
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
9 #include "command-request.hh"
11 #include "musical-request.hh"
14 Command_script_req::do_print() const
17 IMPLEMENT_IS_TYPE_B1(Command_script_req,Command_req);
20 IMPLEMENT_IS_TYPE_B1(Cadenza_req, Timing_req);
23 Cadenza_req::do_print()const
28 Cadenza_req::Cadenza_req(bool b)
36 Bar_req::compare(Bar_req const &c1)const
38 return type_str_ == c1.type_str_;
42 IMPLEMENT_IS_TYPE_B1(Bar_req,Command_req);
45 Bar_req::do_print() const
50 Bar_req::Bar_req(String s)
55 Partial_measure_req::Partial_measure_req(Moment m)
62 IMPLEMENT_IS_TYPE_B1(Timing_req,Command_req);
65 Timing_req::do_print()const{}
68 IMPLEMENT_IS_TYPE_B1(Command_req,Request);
71 Command_req::do_print()const{}
73 IMPLEMENT_IS_TYPE_B1(Disallow_break_req,Command_req);
76 Disallow_break_req::do_print()const
81 IMPLEMENT_IS_TYPE_B1(Barcheck_req,Timing_req);
84 Barcheck_req::do_print() const{}
88 IMPLEMENT_IS_TYPE_B1(Clef_change_req,Command_req);
91 Clef_change_req::do_print() const
98 Clef_change_req::Clef_change_req(String s)
102 /* *************** */
104 IMPLEMENT_IS_TYPE_B1(Group_feature_req,Command_req);
107 Group_feature_req::do_print() const
110 mtor << type_str_ << "=" << value_str_;
114 /* *************** */
117 IMPLEMENT_IS_TYPE_B1(Partial_measure_req,Timing_req);
120 Partial_measure_req::do_print() const
126 IMPLEMENT_IS_TYPE_B1(Meter_change_req,Timing_req);
129 Meter_change_req::do_print() const
131 mtor << beats_i_ << "/" << one_beat_i_;
135 Meter_change_req::compare(Meter_change_req const &m)
137 return m.beats_i_ == beats_i_ && one_beat_i_ == m.one_beat_i_;
140 Meter_change_req::Meter_change_req()
147 Meter_change_req::set(int b,int o)
153 /* *************** */
156 IMPLEMENT_IS_TYPE_B1(Measure_grouping_req,Timing_req);
159 Measure_grouping_req::do_print() const
161 for (int i=0; i < elt_length_arr_.size(); i++) {
162 mtor << beat_i_arr_[i] <<"*" << elt_length_arr_[i]<<" ";
165 /* *************** */
168 Key_change_req::transpose(Melodic_req const & d)const
170 WARN << "don't know how to transpose a key. \n";
171 for (int i=0; i < melodic_p_arr_.size(); i++) {
172 melodic_p_arr_[i]->transpose(d);
177 IMPLEMENT_IS_TYPE_B1(Key_change_req,Command_req);
179 Key_change_req::squash_octaves()
181 for (int i=0; i < melodic_p_arr_.size(); i++) {
182 melodic_p_arr_[i]->octave_i_ = 0;
187 Key_change_req::do_print() const
190 for (int i=0; i < melodic_p_arr_.size(); i++) {
191 melodic_p_arr_[i]->print();
196 Key_change_req::Key_change_req()
199 multi_octave_b_= false;
202 Key_change_req::Key_change_req(Key_change_req const&c)
204 for (int i=0; i < c.melodic_p_arr_.size(); i++)
205 melodic_p_arr_.push( c.melodic_p_arr_[i]->clone()->musical()->melodic() );
206 minor_b_ = c.minor_b_;
207 multi_octave_b_ = c.multi_octave_b_;
210 Key_change_req::~Key_change_req()
212 for (int i=0; i < melodic_p_arr_.size(); i++)
213 delete melodic_p_arr_[i];
217 Key_change_req::flats_i()
220 for ( int i = 0; i < melodic_p_arr_.size(); i++ ) {
221 Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
223 if ( mel_l->accidental_i_ < 0 )
224 flats_i -= mel_l->accidental_i_;
230 Key_change_req::minor_b()
236 Key_change_req::sharps_i()
239 for ( int i = 0; i < melodic_p_arr_.size(); i++ ) {
240 Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
242 if ( mel_l->accidental_i_ > 0 )
243 sharps_i+= mel_l->accidental_i_;