From c1ced0f7df0bb4dce5c27d40ea159ca249ef8d94 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 22 Dec 1996 23:17:40 +0000
Subject: [PATCH] lilypond-0.0.20

---
 src/timedescription.cc | 58 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 src/timedescription.cc

diff --git a/src/timedescription.cc b/src/timedescription.cc
new file mode 100644
index 0000000000..459c15a06d
--- /dev/null
+++ b/src/timedescription.cc
@@ -0,0 +1,58 @@
+#include "timedescription.hh"
+#include "debug.hh"
+
+void
+Time_description::print() const
+{    
+    mtor << "Time_description { at "<<when<<'\n'; 
+    mtor << "meter " << whole_per_measure << ":" << 1/one_beat 
+	 << "\nposition "<< bars << ":" << whole_in_measure <<"\n}\n";
+}
+void
+Time_description::OK() const
+{
+    assert(whole_in_measure < whole_per_measure && 0 <= whole_in_measure);
+    assert(one_beat);
+}
+Time_description::Time_description(Moment dt, Time_description const *prev)
+{
+    if (prev) {
+	assert(dt >0);
+	*this = *prev;
+	when += + dt;
+	whole_in_measure += dt;
+	while ( whole_in_measure >= whole_per_measure ) {
+	    whole_in_measure -= whole_per_measure;
+	    bars ++;
+	}
+    } else {    			// default 4/4
+	whole_per_measure = 1;
+	whole_in_measure =0;
+	one_beat = 0.25;
+	when = 0.0;
+	bars = 0;
+    }	
+}
+
+void
+Time_description::set_meter(int l, int o)
+{
+    assert(o);
+    one_beat = 1/Moment(o);
+    whole_per_measure = Moment(l) * one_beat;
+}
+
+void
+Time_description::setpartial(Moment p)
+{
+    if (when)
+	error_t ("Partial measure only allowed at beginning.", when);
+    if (p<0||p > whole_per_measure)
+	error_t ("Partial measure has incorrect size", when);
+    whole_in_measure = whole_per_measure - p;
+}
+Moment
+Time_description::barleft()
+{
+return    whole_per_measure-whole_in_measure;
+}
-- 
2.39.5