]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/tie-column.cc
*** empty log message ***
[lilypond.git] / lily / tie-column.cc
index cd1195f9b741329ea9e17de491146a51f193f288..76d45004cba8fc0ed34e35e765bf8c8c173a888c 100644 (file)
@@ -6,22 +6,20 @@
   (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
-#include <math.h>
+#include "tie-column.hh"
 
-#include <map>
-#include <set>
+#include <cmath>
 
-#include "stem.hh"
 #include "skyline.hh"
-#include "staff-symbol-referencer.hh"
 #include "warn.hh"
-#include "tie-column.hh"
 #include "paper-column.hh"
 #include "spanner.hh"
 #include "pointer-group-interface.hh"
 #include "tie.hh"
 #include "directional-element-interface.hh"
-#include "rhythmic-head.hh"
+#include "tie-column-format.hh"
+
+using namespace std;
 
 void
 Tie_column::add_tie (Grob *me, Grob *tie)
@@ -51,12 +49,7 @@ Tie_column::set_directions (Grob *me)
     }
 }
 
-int
-Tie::compare (Grob *const &s1,
-             Grob *const &s2)
-{
-  return sign (Tie::get_position (s1) - Tie::get_position (s2));
-}
+
 
 MAKE_SCHEME_CALLBACK (Tie_column, after_line_breaking, 1);
 SCM
@@ -90,88 +83,6 @@ Tie_column::before_line_breaking (SCM smob)
 }
 
 
-
-void
-set_chord_outlines (Drul_array< Array<Skyline_entry> > *skyline_drul,
-                   Link_array<Grob> ties,
-                   Grob *common)
-{
-  Direction d = LEFT;
-
-  Real staff_space = Staff_symbol_referencer::staff_space (ties[0]);
-  do
-    {
-      Array<Box> boxes;
-      Interval x_union;
-
-      Grob *stem = 0; 
-      for (int i = 0; i < ties.size (); i++)
-       {
-         Spanner *tie = dynamic_cast<Spanner*> (ties[i]);
-
-         Grob *head = Tie::head (tie, d);
-         if (!head)
-           continue;
-
-         if (!stem)
-           stem = unsmob_grob (head->get_object ("stem"));
-         
-         Real p = Tie::get_position (tie);
-         Interval y ((p-1) * 0.5 * staff_space,
-                     (p+1) * 0.5 * staff_space);
-
-         Interval x = head->extent (common, X_AXIS);
-         boxes.push (Box (x, y));
-         x_union.unite (x);
-       }
-
-      (*skyline_drul)[d] = empty_skyline (-d);
-      for (int i = 0; i < boxes.size (); i++)
-       insert_extent_into_skyline (&skyline_drul->elem_ref (d),
-                                   boxes[i], Y_AXIS, -d);
-
-      Direction updowndir = DOWN;
-      do
-       {
-         Box b = boxes.boundary (updowndir, 0);
-         Interval x = b[X_AXIS];
-         x[-d] =  b[X_AXIS].linear_combination (-d / 2);
-         if (stem
-             && !Stem::is_invisible (stem)
-             && updowndir == get_grob_direction (stem))
-           x.unite (robust_relative_extent (stem, common, X_AXIS));
-
-         (*skyline_drul)[d].boundary (updowndir, 0).height_ = x[-d]; 
-       }
-      while (flip (&updowndir) != DOWN);
-
-      for (int i = 0; i < ties.size (); i++)
-       {
-         Spanner *tie = dynamic_cast<Spanner*> (ties[i]);
-         Grob *head = Tie::head (tie, d);
-         if (!head)
-           continue;
-
-         Grob *dots = unsmob_grob (head->get_object ("dot"));
-         if (dots)
-           {
-             Interval x = dots->extent (common, X_AXIS);
-             Real p = Staff_symbol_referencer::get_position (dots);
-             
-             Interval y (-1,1);
-             y *= (staff_space /4);
-             y.translate ( p * staff_space * .5);
-
-             insert_extent_into_skyline (&skyline_drul->elem_ref (d),
-                                         Box (x,y), Y_AXIS, -d);
-           }
-       }
-      
-    }
-  while (flip (&d) != LEFT);
-}
-
-
 void
 Tie_column::new_directions (Grob *me)
 {
@@ -183,7 +94,7 @@ Tie_column::new_directions (Grob *me)
   if (ties.size() == 1)
     {
       Tie::set_default_control_points (ties[0]);
-      return ;
+      return;
     }
   
   ties.sort (&Tie::compare);
@@ -199,46 +110,10 @@ Tie_column::new_directions (Grob *me)
 
   SCM manual_configs = me->get_property ("tie-configuration");
   bool manual_override = false;
-  int k = 0;
-  for (SCM s = manual_configs;
-       scm_is_pair (s) && k < tie_configs.size(); s = scm_cdr (s))
-    {
-      SCM entry = scm_car (s);
-      if (!scm_is_pair (entry))
-       continue;
-
-      manual_override = true;
-      tie_configs[k].position_ = robust_scm2double (scm_car (entry), tie_configs[k].position_);
-      tie_configs[k].dir_ = Direction (robust_scm2int (scm_cdr (entry), tie_configs[k].dir_));
-      k ++;
-    }
-
-  if (!tie_configs[0].dir_)
-    tie_configs[0].dir_ = DOWN;
-  if (!tie_configs.top().dir_)
-    tie_configs.top().dir_ = UP;
-
-  /*
-    Seconds
-   */
-  for (int i = 1; i < tie_configs.size(); i++)
-    {
-      if (fabs (tie_configs[i-1].position_ - tie_configs[i].position_) <= 1)
-       {
-         if (!tie_configs[i-1].dir_)
-           tie_configs[i-1].dir_ = DOWN;
-         if (!tie_configs[i].dir_)
-           tie_configs[i].dir_ = UP;
-       }
-    }
-
-  for (int i = 1; i < tie_configs.size() - 1; i++)
-    {
-      if (tie_configs[i].dir_)
-       continue;
-
-      tie_configs[i].dir_ = (Direction) sign (tie_configs[i].position_);
-    }
+  set_manual_tie_configuration (&tie_configs,
+                               &manual_override,
+                               manual_configs);
+  set_tie_config_directions (&tie_configs);
 
   Grob *common = me;
   for (int i = 0; i < ties.size (); i++)
@@ -272,61 +147,26 @@ Tie_column::new_directions (Grob *me)
   /*
     Calculate final width and shape of the ties.
    */
-  Real staff_space = Staff_symbol_referencer::staff_space (ties[0]);
-  Real gap = robust_scm2double (ties[0]->get_property ("x-gap"), 0.2);
   for (int i = 0; i < ties.size(); i++)
     {
       if (!manual_override
          && (i == 0 || i == ties.size () -1))
        continue;
-      
-      Tie_configuration conf = tie_configs[i];
-      conf = tie_configs[i];
-
-      Real line_dy = 0.0;
-      bool on_line = Staff_symbol_referencer::on_staffline (ties[0],
-                                                           int (rint (conf.position_)));
-      if (on_line)
-       line_dy = - sign (conf.height (details) - 0.6 * staff_space)
-         * 0.2 * staff_space * conf.dir_;
 
-      Real y = conf.position_ * staff_space * 0.5
-       + line_dy;
-      conf.attachment_x_
-       = get_skyline_attachment (skylines, y);
-      conf.attachment_x_.intersect (get_skyline_attachment (skylines,
-                                                           y + conf.dir_ * staff_space * .5));
 
-      conf.delta_y_ += line_dy;
-      conf.attachment_x_.widen (-gap);
-      if (!on_line
-         && Staff_symbol_referencer::staff_radius (ties[0]) * staff_space > y)
-       conf.center_tie_vertically (details);
-             
-      tie_configs[i] = conf;
+      final_shape_adjustment (tie_configs[i],
+                             skylines,
+                             ties[0],
+                             details);
     }
 
+  
   /*
     Try to shift small ties into available spaces.
    */
   if (!manual_override)
     {
-      set<int> positions_taken; 
-      for (int i = 0; i < tie_configs.size (); i++)
-       positions_taken.insert (int (rint (tie_configs[i].position_)));
-
-      for (int i = 0; i < tie_configs.size (); i++)
-       {
-         Tie_configuration * conf = &tie_configs.elem_ref (i);
-         if (Staff_symbol_referencer::on_staffline (ties[0], int (rint (conf->position_)))
-             && conf->height (details) < 0.4 * staff_space
-             && (positions_taken.find (int (rint (conf->position_ + conf->dir_)))
-                 == positions_taken.end ()))
-           {
-             positions_taken.insert (int (rint (conf->position_ + conf->dir_)));
-             conf->delta_y_ += 0.2 * staff_space * conf->dir_;
-           }
-       }
+      shift_small_ties (&tie_configs, ties[0], details);
     }
   
   for (int i = 0; i < ties.size(); i++)
@@ -339,8 +179,12 @@ Tie_column::new_directions (Grob *me)
 }
 
 
+
 ADD_INTERFACE (Tie_column, "tie-column-interface",
               "Object that sets directions of multiple ties in a tied chord",
+
+              /* properties */
               "positioning-done "
               "tie-configuration "
               );
+