release: 1.3.2

[lilypond.git] / lily / text-engraver.cc

diff --git a/lily/text-engraver.cc b/lily/text-engraver.cc
index e22cb06dea2a976b8407938609949aeb9efb83b5..cf8c0ea0f635ad013504ce8c6a0bd1b33bc5d833 100644 (file)
--- a/lily/text-engraver.cc
+++ b/lily/text-engraver.cc
@@ -6,10 +6,11 @@
   (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
+#include "dimension-cache.hh"
 
 #include "engraver.hh"
-#include "g-staff-side.hh"
-#include "g-text-item.hh"
+#include "staff-side.hh"
+#include "text-item.hh"
 #include "musical-request.hh"
 #include "note-head.hh"
 #include "stem.hh"
@@ -18,8 +19,8 @@
 class Text_engraver : public Engraver
 {
   Link_array<Text_script_req> reqs_;
-  Link_array<G_staff_side_item> positionings_;
-  Link_array<G_text_item> texts_;
+  Link_array<Staff_side_item> positionings_;
+  Link_array<Text_item> texts_;
 public:
   Text_engraver();
   VIRTUAL_COPY_CONS(Translator);
@@ -56,6 +57,9 @@ Text_engraver::acknowledge_element (Score_element_info i)
       for (int i=0; i < positionings_.size (); i++)
        {
          positionings_[i]->add_support (n);
+         if (positionings_[i]->axis_ == X_AXIS
+             && !positionings_[i]->parent_l (Y_AXIS))
+           positionings_[i]->set_parent (n, Y_AXIS);
        }
     }
   if (Stem *n = dynamic_cast<Stem*> (i.elem_l_))
@@ -74,35 +78,35 @@ Text_engraver::do_process_requests ()
     {
       Text_script_req * r = reqs_[i];
 
-      G_text_item *text = new G_text_item;
-      G_staff_side_item *ss = new G_staff_side_item;
+      Text_item *text = new Text_item;
+      Staff_side_item *ss = new Staff_side_item;
 
+
+
+      SCM axisprop = get_property ("scriptHorizontal",0);
+      if (gh_boolean_p (axisprop) && gh_scm2bool (axisprop))
+       {
+         ss->axis_ = X_AXIS;
+         text->set_parent (ss, Y_AXIS);
+                              
+       }
       ss->set_victim (text);
+      ss->set_elt_property ("script-priority",
+                           gh_int2scm (200));
+
       ss->dir_ = r->dir_;
 
       text->text_str_ = r->text_str_;
       
-      if (r->style_str_.empty_b ())
-       {
-         Scalar p (get_property ("textStyle", 0));
-         if (p.length_i ())
-           text->style_str_ = p;
-       }
-      else
-       text->style_str_ = r->style_str_;
+      if (r->style_str_.length_i ())
+       text->set_elt_property ("style", ly_str02scm (r->style_str_.ch_C()));
       
-      Scalar padding = get_property ("textScriptPadding", 0);
-      if (padding.length_i() && padding.isnum_b ())
+      SCM empty = get_property ("textEmptyDimension", 0);
+      if (gh_boolean_p (empty) && gh_scm2bool (empty))
        {
-         ss->set_elt_property (padding_scm_sym, gh_double2scm(Real(padding)));
+         text->set_empty (true, X_AXIS);
        }
 
-      Scalar empty = get_property ("textEmptyDimension", 0);
-      if (empty.to_bool ())
-       {
-         text->dim_cache_[X_AXIS].set_empty (true);
-       }
-      
       announce_element (Score_element_info (text, r));
       announce_element (Score_element_info (ss, r));
 
@@ -130,3 +134,4 @@ Text_engraver::do_post_move_processing ()
 }
 
 ADD_THIS_TRANSLATOR(Text_engraver);
+