//
// mudela-item.cc -- implement Mudela_item
//
-// copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
+// copyright 1997 Jan Nieuwenhuizen <janneke@gnu.org>
+#include <assert.h>
#include "mi2mu-global.hh"
#include "string-convert.hh"
#include "duration-convert.hh"
Mudela_item::Mudela_item (Mudela_column* mudela_column_l)
{
- mudela_column_l_ = mudela_column_l;
+ mudela_column_l_ = mudela_column_l;
+}
+
+Mudela_item::~Mudela_item ()
+{
}
Moment
-Mudela_item::at_mom()
+Mudela_item::at_mom ()
{
- return mudela_column_l_->at_mom();
+ return mudela_column_l_->at_mom ();
}
Moment
-Mudela_item::duration_mom()
+Mudela_item::duration_mom ()
{
- return Moment (0);
+ return Moment (0);
}
void
Mudela_item::output (Mudela_stream& mudela_stream_r)
{
- mudela_stream_r << str() << String (" ");
+ mudela_stream_r << str () << " ";
}
Mudela_key::Mudela_key (int accidentals_i, int minor_i)
- : Mudela_item (0)
+ : Mudela_item (0)
{
- accidentals_i_ = accidentals_i;
- minor_i_ = minor_i;
- if (accidentals_i >= 0)
- key_i_ = ((accidentals_i % 7)[ "cgdaebf" ] - 'a' - 2) % 7;
- else
- key_i_ = ((-accidentals_i % 7)[ "cfbeadg" ] - 'a' - 2) % 7;
+ accidentals_i_ = accidentals_i;
+ minor_i_ = minor_i;
}
String
-Mudela_key::str()
+Mudela_key::str ()
{
- String str = "\\key ";
- if (!minor_i_)
- str += String ((char) ((key_i_ + 2) % 7 + 'A'));
- else // heu, -2: should be - 1 1/2: A -> fis
- str += String ((char) ((key_i_ + 2 - 2) % 7 + 'a'));
- str = String ("% \"") + str
- + String('"') + "; % not supported yet\n";
- return str;
+ int key_i = 0;
+ if (accidentals_i_ >= 0)
+ key_i = ((accidentals_i_ % 7)[ "cgdaebf" ] - 'a' - 2) % 7;
+ else
+ key_i = ((-accidentals_i_ % 7)[ "cfbeadg" ] - 'a' - 2) % 7;
+
+ String keyname = (1) // !minor_i_)
+ ? to_str ((char) ((key_i + 2) % 7 + 'A'))
+ : to_str ((char) ((key_i + 2 - 2) % 7 + 'a'));
+ // heu, -2: should be - 1 1/2: A -> fis
+
+ return String("\\key " + keyname + ";\n");
}
String
Mudela_key::notename_str (int pitch_i)
{
- // this may seem very smart,
- // but it-s only an excuse not to read a notename table
-
- // major scale: do-do
- // minor scale: la-la (= + 5)
- static int notename_i_a[ 12 ] = { 0, 0, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6 };
- int notename_i = notename_i_a[ (minor_i_ * 5 + pitch_i) % 12 ];
-
- static int accidentals_i_a[ 12 ] = { 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 };
- int accidental_i = accidentals_i_a[ minor_i_ * 5 + pitch_i % 12 ];
- if (accidental_i && (accidentals_i_ < 0)) {
- accidental_i = - accidental_i;
- notename_i = (notename_i + 1) % 7;
+ // this may seem very smart,
+ // but it-s only an excuse not to read a notename table
+
+ // major scale: do-do
+ // minor scale: la-la (= + 5)
+ static int notename_i_a[ 12 ] = { 0, 0, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6 };
+ int notename_i = notename_i_a[ (minor_i_ * 5 + pitch_i) % 12 ];
+
+ static int accidentals_i_a[ 12 ] = { 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 };
+ int accidental_i = accidentals_i_a[ (minor_i_ * 5 + pitch_i) % 12 ];
+ if (accidental_i && (accidentals_i_ < 0))
+ {
+ accidental_i = - accidental_i;
+ notename_i = (notename_i + 1) % 7;
}
- String notename_str = (char) ( ((notename_i + 2) % 7) + 'a');
- while (accidental_i-- > 0)
- notename_str += "is";
- accidental_i++;
- while (accidental_i++ < 0)
- if ((notename_str == "a") || (notename_str == "e"))
- notename_str += "s";
- else
- notename_str += "es";
- accidental_i--;
-
- String de_octavate_str = String ('\'', (Mudela_note::c0_pitch_i_c_ + 11 - pitch_i) / 12);
- String octavate_str = String ('\'', (pitch_i - Mudela_note::c0_pitch_i_c_) / 12);
- return de_octavate_str + notename_str + octavate_str;
+ String notename_str = to_str ((char)(((notename_i + 2) % 7) + 'a'));
+ while (accidental_i-- > 0)
+ notename_str += "is";
+ accidental_i++;
+ while (accidental_i++ < 0)
+ if ((notename_str == "a") || (notename_str == "e"))
+ notename_str += "s";
+ else
+ notename_str += "es";
+ accidental_i--;
+
+ String de_octavate_str = to_str (',', (Mudela_note::c0_pitch_i_c_ + 11 - pitch_i) / 12);
+ String octavate_str = to_str ('\'', (pitch_i - Mudela_note::c0_pitch_i_c_) / 12);
+ return notename_str +de_octavate_str + octavate_str;
}
-Mudela_meter::Mudela_meter (int num_i, int den_i, int clocks_4_i, int count_32_i)
- : Mudela_item (0)
+Mudela_time_signature::Mudela_time_signature (int num_i, int den_i, int clocks_4_i, int count_32_i)
+ : Mudela_item (0)
{
- sync_dur_.type_i_ = 8 ;
- sync_f_ = 1.0;
- if (count_32_i != 8)
- warning (String ("#32 in quarter: ") + String (count_32_i));
- num_i_ = num_i;
- den_i_ = den_i;
- clocks_1_i_ = clocks_4_i * 4;
+ sync_dur_.durlog_i_ = 3;
+ sync_f_ = 1.0;
+ if (count_32_i != 8)
+ warning (_f ("#32 in quarter: %d", count_32_i));
+ num_i_ = num_i;
+ den_i_ = den_i;
+ clocks_1_i_ = clocks_4_i * 4;
}
Moment
-Mudela_meter::bar_mom()
+Mudela_time_signature::bar_mom ()
{
- Duration d;
- d.type_i_ = (1 << den_i_);
- return Moment (num_i_) * Duration_convert::dur2_mom (d);
+ Duration d;
+ d.durlog_i_ = den_i_;
+ return Moment (num_i_) * Duration_convert::dur2_mom (d);
}
int
-Mudela_meter::clocks_1_i()
+Mudela_time_signature::clocks_1_i ()
{
- return clocks_1_i_;
+ return clocks_1_i_;
}
int
-Mudela_meter::den_i()
+Mudela_time_signature::den_i ()
{
- return den_i_;
+ return den_i_;
}
int
-Mudela_meter::num_i()
+Mudela_time_signature::num_i ()
{
- return num_i_;
+ return num_i_;
}
String
-Mudela_meter::str()
+Mudela_time_signature::str ()
{
- String str = "\\meter "
- + String (num_i_) + "/" + String (1 << den_i_)
- + ";\n";
- return str;
+ String str = "\\time "
+ + to_str (num_i_) + "/" + to_str (1 << den_i_)
+ + ";\n";
+ return str;
}
// statics Mudela_note
/*
- this switch can be used to write simple plets like
- c4*2/3
- as
- \plet 2/3; c4 \plet 1/1;
+ this switch can be used to write simple plets like
+ c4*2/3
+ as
+ \plet 2/3; c4 \plet 1/1;
*/
bool const Mudela_note::simple_plet_b_s = true;
-Mudela_note::Mudela_note (Mudela_column* mudela_column_l, int channel_i, int pitch_i, int dyn_i)
- : Mudela_item (mudela_column_l)
+Mudela_note::Mudela_note (Mudela_column* mudela_column_l,
+ int channel_i, int pitch_i, int dyn_i)
+ : Mudela_item (mudela_column_l)
{
- // junk dynamics
- (void)dyn_i;
- channel_i_ = channel_i;
- pitch_i_ = pitch_i;
- end_column_l_ = 0;
+ // junk dynamics
+ (void)dyn_i;
+ channel_i_ = channel_i;
+ pitch_i_ = pitch_i;
+ end_column_l_ = 0;
}
-String
-Mudela_note::str()
+Duration
+Mudela_note::duration ()
{
- Duration dur = duration();
- if (!dur.type_i_)
- return "";
+ assert (end_column_l_);
+ Moment mom = end_column_l_->at_mom () - at_mom ();
+ return Duration_convert::mom2_dur (mom);
+}
- String name_str = mudela_column_l_->mudela_score_l_->mudela_key_l_->notename_str (pitch_i_);
+Moment
+Mudela_note::duration_mom ()
+{
+ assert (end_column_l_);
+ return end_column_l_->at_mom () - at_mom ();
+}
- if (simple_plet_b_s)
- return name_str + Duration_convert::dur2_str (dur) + " ";
+String
+Mudela_note::str ()
+{
+ Duration dur = duration ();
+ if (dur.durlog_i_ < -10)
+ return "";
- //ugh
- String str;
- if (dur.plet_b())
- str += String ("\\plet ")
- + String_convert::i2dec_str (dur.plet_.iso_i_, 0, 0)
- + "/"
- + String_convert::i2dec_str (dur.plet_.type_i_, 0, 0)
- + "; ";
+ String name_str
+ = mudela_column_l_->mudela_score_l_->mudela_key_l_->notename_str (pitch_i_);
- str += name_str;
+ if (simple_plet_b_s)
+ return name_str + Duration_convert::dur2_str (dur) + " ";
- Duration tmp = dur;
- tmp.set_plet (1,1);
- str += Duration_convert::dur2_str (tmp);
+ String str;
+ //ugh
+ if (dur.plet_b ())
+ str += String ("\\[")
+ + String_convert::i2dec_str (dur.plet_.iso_i_, 0, 0)
+ + "/"
+ + String_convert::i2dec_str (dur.plet_.type_i_, 0, 0);
- if (dur.plet_b())
- str += String (" \\plet 1/1;");
+ str += name_str;
- return str + " ";
-}
+ Duration tmp = dur;
+ tmp.set_plet (1,1);
+ str += Duration_convert::dur2_str (tmp);
-Duration
-Mudela_note::duration()
-{
- assert (end_column_l_);
- Moment mom = end_column_l_->at_mom() - at_mom();
- if (Duration_convert::no_quantify_b_s)
- return Duration_convert::mom2_dur (mom);
+ if (dur.plet_b ())
+ str += String (" \\]");
- return Duration_convert::mom2standardised_dur (mom);
-}
+ /*
+ note of zero duration is nonsense,
+ but let's output anyway for convenient debugging
+ */
+ if (!duration_mom ())
+ return String ("\n% ") + str + "\n";
-Moment
-Mudela_note::duration_mom()
-{
-// ugh
-// return Duration_convert::dur2_mom (duration());
- return end_column_l_->at_mom() - at_mom();
+ return str + " ";
}
Mudela_skip::Mudela_skip (Mudela_column* mudela_column_l, Moment skip_mom)
- : Mudela_item (mudela_column_l)
+ : Mudela_item (mudela_column_l)
{
- mom_ = skip_mom;
+ mom_ = skip_mom;
}
Duration
-Mudela_skip::duration()
+Mudela_skip::duration ()
{
- if (Duration_convert::no_quantify_b_s)
- return Duration_convert::mom2_dur (mom_);
-
- return Duration_convert::mom2standardised_dur (mom_);
+ return Duration_convert::mom2_dur (mom_);
}
Moment
-Mudela_skip::duration_mom()
+Mudela_skip::duration_mom ()
{
- return Duration_convert::dur2_mom (duration());
+ return Duration_convert::dur2_mom (duration ());
}
String
-Mudela_skip::str()
+Mudela_skip::str ()
{
- if (!mom_)
- return String ("");
+ if (!mom_)
+ return String ("");
- Duration dur = duration();
- if (!dur.type_i_)
- return "";
+ Duration dur = duration ();
+ if (dur.durlog_i_<-10)
+ return "";
- String str = "\\skip ";
- str += Duration_convert::dur2_str (dur) + "; ";
+ String str = "\\skip ";
+ str += Duration_convert::dur2_str (dur) + "; ";
- return str;
+ return str;
}
Mudela_tempo::Mudela_tempo (int useconds_per_4_i)
- : Mudela_item (0)
+ : Mudela_item (0)
{
- useconds_per_4_i_ = useconds_per_4_i;
- seconds_per_1_f_ = (Real)useconds_per_4_i_ * 4 / 1e6;
+ useconds_per_4_i_ = useconds_per_4_i;
+ seconds_per_1_mom_ = Moment(useconds_per_4_i_ *4, 1e6);
}
String
-Mudela_tempo::str()
+Mudela_tempo::str ()
{
- String str = "\\tempo 4=";
- str += String (get_tempo_i (Moment (1, 4)));
- str += ";\n";
- return str;
+ String str = "\\tempo 4=";
+ str += to_str (get_tempo_i (Moment (1, 4)));
+ str += ";\n";
+ return str;
}
-int
-Mudela_tempo::useconds_per_4_i()
+int
+Mudela_tempo::useconds_per_4_i ()
{
- return useconds_per_4_i_;
+ return useconds_per_4_i_;
}
int
Mudela_tempo::get_tempo_i (Moment moment)
{
- return Moment (60) / moment / Moment (seconds_per_1_f_);
+ Moment m1 = Moment (60) / moment;
+ Moment m2 = seconds_per_1_mom_;
+ return m1 / m2;
}
Mudela_text::Mudela_text (Mudela_text::Type type, String text_str)
- : Mudela_item (0)
+ : Mudela_item (0)
{
- type_ = type;
- text_str_ = text_str;
+ type_ = type;
+ text_str_ = text_str;
}
String
-Mudela_text::str()
+Mudela_text::str ()
{
- if (!text_str_.length_i()
- || (text_str_.length_i() != (int)strlen (text_str_.ch_C())))
- return "";
+ if (!text_str_.length_i ()
+ || (text_str_.length_i () != (int)strlen (text_str_.ch_C ())))
+ return "";
- return "% " + text_str_ + "\n";
+ return "% " + text_str_ + "\n";
}
-
projects / lilypond.git / blobdiff