From: fred <fred>
Date: Sat, 2 Nov 1996 15:12:11 +0000 (+0000)
Subject: lilypond-0.0.6
X-Git-Tag: release/1.5.59~6945
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ed3928867cd00f01f0931f42ca5007f043160e2b;p=lilypond.git

lilypond-0.0.6
---

diff --git a/request.cc b/request.cc
index 27816e5b43..88fdb3349f 100644
--- a/request.cc
+++ b/request.cc
@@ -23,18 +23,49 @@ Note_req::Note_req(Voice_element*v)
     forceacc = false;
 }
 
+int
+Note_req::height() const
+{
+    int s = name -'c';
+    if (s < 0)
+	s+=7;
+    return  s + octave*7;
+}
+
+/****************************************************************/
 Rhythmic_req::Rhythmic_req(Voice_element*v)
      :Request(v)
 {
     balltype = 1;
     dots = 0;
 }
+void
+Rhythmic_req::print() const
+{
+    mtor << "rhythmic: " << balltype ;
+    int d =dots;
+    while (d--)
+	mtor << '.';
+    mtor<<"\n";
+}
+void
+Note_req::print() const
+{
+    mtor << "note: " << name << " oct: "<< octave;
+    Rhythmic_req::print();
+}
 
 Request::Request()
 {
     elt = 0;
 }
 
+void
+Rest_req::print() const
+{
+    mtor << "rest, " ;
+    Rhythmic_req::print();
+}
 
 Real
 wholes(int dur, int dots)