* Documentation/user/refman.itely (Automatic note splitting):

[lilypond.git] / lily / system.cc

diff --git a/lily/system.cc b/lily/system.cc
index ff5239153c4ae652c5fba8faf4f129832de07c76..8c9ad1ff16e89dda86b39ba019fb5a5833f4ad3d 100644 (file)
--- a/lily/system.cc
+++ b/lily/system.cc
@@ -21,6 +21,7 @@
 #include "molecule.hh"
 #include "all-font-metrics.hh"
 #include "spacing-interface.hh"
+#include "staff-symbol-referencer.hh"
 
 // todo: use map.
 void
@@ -94,11 +95,14 @@ uniquify_list (SCM l)
       if (i && arr[i] == arr[i-1])
        continue;
 
-      SCM_SETCAR(s, arr[i]);      
-      s = SCM_CDR(s);
+      SCM_SETCAR(s, arr[i]);
+
+      if (i < len - 1)
+       s = SCM_CDR(s);
     }
 
   SCM_SETCDR(s, SCM_EOL);
+  delete arr;
   
   return l; 
 }
@@ -175,12 +179,13 @@ System::output_lines ()
    */
   for (int i=0; i < broken_intos_.size (); i++)
     {
-      SCM al = broken_intos_[i]->get_grob_property ("all-elements");
-      al  = uniquify_list (al); 
+      /*
+       don't do this: strange side effects.
+       */
+      //    SCM al = broken_intos_[i]->get_grob_property ("all-elements");
+      //      al  = uniquify_list (al); 
     }
   
-
-  
   if (verbose_global_b)
     progress_indication (_f ("Element count %d.",  count + element_count ()));
 
@@ -191,7 +196,8 @@ System::output_lines ()
 
       if (verbose_global_b)
        progress_indication ("[");
-      system->post_processing (i+1 == broken_intos_.size ());
+      bool last = i+1 == broken_intos_.size ();
+      system->post_processing (last);
 
       if (verbose_global_b)
        {
@@ -233,7 +239,6 @@ set_loose_columns (System* which, Column_x_positions const *posns)
       
       if (col->system_)
        continue;
-
       
       Item * left = 0;
       Item * right = 0;
@@ -253,13 +258,17 @@ set_loose_columns (System* which, Column_x_positions const *posns)
          if (!left && l)
            {
              left = l->get_column ();
+             if (!left->get_system ())
+               left = left->find_prebroken_piece (RIGHT);
            }
 
          divide_over ++;
-
          loose = right = r->get_column ();
        }
       while (1);
+
+      if (!right->get_system ())
+       right = right->find_prebroken_piece (LEFT);
       
       /*
        We divide the remaining space of the column over the left and
@@ -269,7 +278,7 @@ set_loose_columns (System* which, Column_x_positions const *posns)
       Grob * common = right->common_refpoint (left, X_AXIS);
       
       Real rx =        right->extent(common, X_AXIS)[LEFT];
-      Real lx =  left->extent(common, X_AXIS)[RIGHT];
+      Real lx = left->extent(common, X_AXIS)[RIGHT];
       Real total_dx = rx - lx;
       Interval cval =col->extent (col, X_AXIS);
 
@@ -297,6 +306,7 @@ set_loose_columns (System* which, Column_x_positions const *posns)
        dx *= 0.5;
 
       col->system_ = which;
+      col->translate_axis (- col->relative_coordinate (common, X_AXIS), X_AXIS);
       col->translate_axis (lx + dx - cval[LEFT], X_AXIS); 
     }
 }
@@ -425,6 +435,11 @@ System::pre_processing ()
     }
 }
 
+
+  const int LAYER_COUNT= 3;
+
+
+
 void
 System::post_processing (bool last_line)
 {
@@ -453,11 +468,23 @@ System::post_processing (bool last_line)
     generate all molecules  to trigger all font loads.
 
     (ugh. This is not very memory efficient.)  */
+
+  SCM all = get_grob_property ("all-elements")  ;
+  all = uniquify_list (all);
+
+  /*
+    triger font loads first.
+
+    This might seem inefficient, but Molecules are cached per grob
+    anyway.
+    */
   this->get_molecule();
-  for (SCM s = get_grob_property ("all-elements"); gh_pair_p (s); s = ly_cdr (s))
+  for (SCM s = all; gh_pair_p (s); s = ly_cdr (s))
     {
-      unsmob_grob (ly_car (s))->get_molecule ();
+      Grob * g = unsmob_grob (ly_car (s));
+      g->get_molecule ();
     }
+  
   /*
     font defs;
    */
@@ -505,8 +532,10 @@ System::post_processing (bool last_line)
        SCM e = sc->get_grob_property ("extra-offset");
        if (gh_pair_p (e))
          {
-           o[X_AXIS] += gh_scm2double (ly_car (e));
-           o[Y_AXIS] += gh_scm2double (ly_cdr (e));      
+           Offset z = ly_scm2offset (e);
+           z *= Staff_symbol_referencer::staff_space (sc);
+           
+           o += z;
          }
        
        output_molecule (m->get_expr (), o);