From 14968912d5c21ec4075be837c1278d5d8db23b09 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 24 Mar 2002 19:58:03 +0000
Subject: [PATCH] lilypond-0.1.15

---
 lily/musical-request.cc | 38 +++++++++++++++++++++++++++-----------
 lily/note.cc            |  2 +-
 lily/notehead.cc        | 15 ++++++++++++---
 lily/parser.y           |  6 +++---
 4 files changed, 43 insertions(+), 18 deletions(-)

diff --git a/lily/musical-request.cc b/lily/musical-request.cc
index f574813927..5b69a4f581 100644
--- a/lily/musical-request.cc
+++ b/lily/musical-request.cc
@@ -423,28 +423,44 @@ Absolute_dynamic_req::do_print() const
 {
 #ifndef NPRINT
   Dynamic_req::do_print();
-  DOUT << " loudness " <<loudness_str (loudness_);
+  DOUT << " loudness " <<loudness_str ();
 #endif
 }
 
 String
-Dynamic_req::loudness_str (Loudness l) 
+Dynamic_req::loudness_static_str (Loudness l) 
 {
   switch (l) 
     {
-  case FFF: return "fff";
-  case FF: return "ff";
-  case F: return "f";
-  case MF: return "mf";
-  case MP: return "mp";
-  case P: return "p";
-  case PP: return "pp";
-  case PPP: return "ppp";
+    case FFF: return "fff";
+    case FF: return "ff";
+    case F: return "f";
+    case MF: return "mf";
+    case MP: return "mp";
+    case P: return "p";
+    case PP: return "pp";
+    case PPP: return "ppp";
+    case FP: return "fp";
+    case SF: return "sf";
+    case SFZ: return "sfz";
     }
-  assert (false);
   return "";
 }
 
+String
+Absolute_dynamic_req::loudness_str () const
+{
+  String s = loudness_static_str (loudness_);
+  if (!s)
+    {
+      s = "mf";
+      warning (String ("Never heard of dynamic scale ") 
+	       + loudness_ + " assuming mf");
+    }
+  return s;
+}
+
+
 Absolute_dynamic_req::Absolute_dynamic_req()
 {
   loudness_ = MF;
diff --git a/lily/note.cc b/lily/note.cc
index caa6abf3da..78e6429473 100644
--- a/lily/note.cc
+++ b/lily/note.cc
@@ -49,7 +49,7 @@ Request*
 get_script_req (int d , General_script_def*def)
 {
   Musical_script_req* script_req_p = new Musical_script_req;
-  script_req_p->dir_ =d;
+  script_req_p->dir_ =(Direction)d;
   script_req_p->scriptdef_p_=def;
   return script_req_p;
 }
diff --git a/lily/notehead.cc b/lily/notehead.cc
index 389ff0cf60..4d65dff62e 100644
--- a/lily/notehead.cc
+++ b/lily/notehead.cc
@@ -44,6 +44,15 @@ Note_head::compare (Note_head *const  &a, Note_head * const &b)
   return a->position_i_ - b->position_i_;
 }
 
+Interval
+Note_head::do_width () const
+{
+  Atom a =  paper ()->lookup_l()->ball (balltype_i_);
+  Interval i = a.dim_[X_AXIS];
+  i+= x_dir_ * i.length ();
+  return i;
+}
+
 Molecule*
 Note_head::brew_molecule_p() const 
 {
@@ -54,9 +63,9 @@ Note_head::brew_molecule_p() const
   // ugh
   bool streepjes_b = (position_i_<-1) || (position_i_ > staff_size_i_+1);
   
-  Symbol  s = p->lookup_l()->ball (balltype_i_);
+  Atom  s = p->lookup_l()->ball (balltype_i_);
   out = new Molecule (Atom (s));
-  out->translate (x_dir_ * s.dim.x().length (), X_AXIS);
+  out->translate (x_dir_ * s.dim_[X_AXIS].length (), X_AXIS);
 
   if (streepjes_b) 
     {
@@ -65,7 +74,7 @@ Note_head::brew_molecule_p() const
 	? -((-position_i_)/2)
 	: (position_i_-staff_size_i_)/2;
 	
-      Symbol str = p->lookup_l()->streepjes (s);
+      Atom str = p->lookup_l()->streepjes (s);
       Molecule sm;
       sm.add (Atom (str));
       if (position_i_ % 2)
diff --git a/lily/parser.y b/lily/parser.y
index d7b2a0d4fa..8a60f8b3ab 100644
--- a/lily/parser.y
+++ b/lily/parser.y
@@ -82,7 +82,7 @@
     General_script_def * script;
     Scalar *scalar;
     String *string;
-    Symbol * symbol;
+    Atom * symbol;
     Symtable * symtable;
     Symtables * symtables;
     Text_def * textdef;
@@ -1180,13 +1180,13 @@ symtable_body:
 
 symboldef:
 	STRING 	box		{
-		$$ = new Symbol (*$1, *$2);
+		$$ = new Atom (*$1, *$2);
 		delete $1;
 		delete $2;
 	}
 	| STRING {
 		Box b (Interval (0,0), Interval (0,0));
-		$$ = new Symbol (*$1, b);
+		$$ = new Atom (*$1, b);
 		delete $1;
 	}
 	;
-- 
2.39.5