lilypond-1.3.113

diff --git a/input/test/slur-cross-staff.ly b/input/test/slur-cross-staff.ly
index 8e0b0e5325c813cacbc60b0e27a5d9f0a36f1ab3..2f1f8ed6af405f089d3b73a35f1961c39170ba15 100644 (file)
--- a/input/test/slur-cross-staff.ly
+++ b/input/test/slur-cross-staff.ly
@@ -1,24 +1,36 @@
+
+
+       
 \score{
        \context PianoStaff <
        \context Staff=one \notes\relative c'{
-               \stemUp c4( c \translator Staff=two c )c |
+               \stemUp \slurUp
+                c4( c \translator Staff=two c )c |
                \translator Staff=one
-               \stemUp c4( c \translator Staff=two c )c |
-               \stemUp c4( c \translator Staff=one c )c |
+               \stemUp \slurUp
+                c4( c \translator Staff=two c )c |
+               \stemUp \slurUp
+                c4( c \translator Staff=one c )c |
                \translator Staff=two
-               \stemUp c4( c \translator Staff=one c )c |
+               \stemUp \slurUp
+                c4( c \translator Staff=one c )c |
                \translator Staff=two
-               \stemUp c4( \translator Staff=one c c )c |
+               \stemUp \slurUp
+                c4( \translator Staff=one c c )c |
                r2
                \translator Staff=two
-               \stemUp c4( \translator Staff=one c
+               \stemUp \slurUp
+                c4( \translator Staff=one c
                   \break
                c )c
                r2
-%              \stemDown c4( \translator Staff=two c c \translator Staff=one )c
-               \stemDown d4( \translator Staff=two c c \translator Staff=one )d
+%              \stemDown \slurDown
+%               c4( \translator Staff=two c c \translator Staff=one )c
+               \stemDown \slurDown
+                d4( \translator Staff=two c c \translator Staff=one )d
                \translator Staff=two
-               \stemUp c4( \translator Staff=one c c \translator Staff=two )c
+               \stemUp \slurUp
+                c4( \translator Staff=one c c \translator Staff=two )c
                r1
        }
        \context Staff=two \notes\relative c'{

diff --git a/lily/include/line-spanner.hh b/lily/include/line-spanner.hh
index 3b9ac9545d50ffe9a9605f4695bf89f130bb7062..e125a12c02b104c259a12b79c9d6473e4c6ba40a 100644 (file)
--- a/lily/include/line-spanner.hh
+++ b/lily/include/line-spanner.hh
@@ -17,6 +17,10 @@ class Line_spanner
 public:
   DECLARE_SCHEME_CALLBACK (brew_molecule, (SCM));
   static SCM line_atom (Grob* me, Real dx, Real dy);
+
+private:
+  static Offset get_broken_offset (Grob *me, Direction dir);
+  static Offset broken_trend_offset (Grob *me, Direction dir);
 };
 
 #endif /* LINE_SPANNER_HH */

diff --git a/lily/line-spanner.cc b/lily/line-spanner.cc
index bece984882c939e3373d3683f90a76c35c041a1b..38fa223dc09706194b3c653622ebdf4a8db24a80 100644 (file)
--- a/lily/line-spanner.cc
+++ b/lily/line-spanner.cc
@@ -62,6 +62,56 @@ Line_spanner::line_atom (Grob* me, Real dx, Real dy)
   return list;
 }
 
+Offset
+Line_spanner::get_broken_offset (Grob *me, Direction dir)
+{
+  Spanner *spanner = dynamic_cast<Spanner*> (me);
+  Item* bound = spanner->get_bound (dir);
+  
+  if (!bound->break_status_dir ())
+    {
+      Grob *common[] = {
+       bound->common_refpoint (Staff_symbol_referencer::staff_symbol_l (me),
+                               X_AXIS),
+       bound->common_refpoint (Staff_symbol_referencer::staff_symbol_l (me),
+                               Y_AXIS)
+      };
+  
+      return Offset ( abs (bound->extent (common[X_AXIS], X_AXIS)[-dir]),
+                     bound->extent (common[Y_AXIS], Y_AXIS).center ());
+    }
+  return Offset ();
+}
+
+Offset
+Line_spanner::broken_trend_offset (Grob *me, Direction dir)
+{
+  /* A broken line-spaner should maintain the same vertical trend
+     the unbroken line-spanner would have had.
+     From slur */
+  Offset o;
+  if (Spanner *mother =  dynamic_cast<Spanner*> (me->original_l_))
+    {
+      for (int i = dir == LEFT ? 0 : mother->broken_into_l_arr_.size () - 1;
+          dir == LEFT ? i < mother->broken_into_l_arr_.size () : i > 0;
+          dir == LEFT ? i++ : i--)
+       {
+         if (mother->broken_into_l_arr_[i - dir] == me)
+           {
+             Grob *neighbour = mother->broken_into_l_arr_[i];
+             Offset neighbour_o = get_broken_offset (neighbour, dir);
+             Offset me_o = get_broken_offset (me, -dir);
+             // Hmm, why not return me_o[X], but recalc in brew_mol?
+             o = Offset (0,
+                         (neighbour_o[Y_AXIS]*me_o[X_AXIS]
+                          - me_o[Y_AXIS]*neighbour_o[X_AXIS]) * dir /
+                         (me_o[X_AXIS] + neighbour_o[X_AXIS]));
+             break;
+           }
+       }
+    }
+  return o;
+}
 
 
 /*
@@ -78,45 +128,72 @@ SCM
 Line_spanner::brew_molecule (SCM smob) 
 {
   Grob *me= unsmob_grob (smob);
+
   Spanner *spanner = dynamic_cast<Spanner*> (me);
+  Item* bound_drul[] = {
+    spanner->get_bound (LEFT),
+    0,
+    spanner->get_bound (RIGHT)
+  };
+  
+  Item** bound = bound_drul + 1;
 
   Grob *common[] = { 0, 0 };
-
-  Item *l = spanner->get_bound (LEFT);
-  Item *r = spanner->get_bound (RIGHT);  
-
-  /*
-    FIXME: should also do something sensible across line breaks.
-   */
-  if (l->break_status_dir () || r->break_status_dir ())
-    return SCM_EOL;
-  
   for (Axis a = X_AXIS;  a < NO_AXES; a = Axis (a + 1))
     {
-      common[a] = l->common_refpoint (r, a);
-  
-    if (!common[a])
-      return SCM_EOL;
+      common[a] = bound[LEFT]->common_refpoint (bound[RIGHT], a);
+      
+      if (!common[a])
+       return SCM_EOL;
     }
   
-  Offset dxy ; 
-  for (Axis a = X_AXIS;  a < NO_AXES; a = Axis (a + 1))
+  Real gap = gh_scm2double (me->get_grob_property ("gap"));
+  
+  Offset dxy ;
+  Offset my_off;
+  Offset his_off;
+  
+  if (bound[LEFT]->break_status_dir () || bound[RIGHT]->break_status_dir ())
+    /* across line break */
     {
-      dxy[a] = r->extent (common[a], a)[LEFT] -
-       l->extent (common[a], a)[RIGHT];
+      Direction broken = bound[LEFT]->break_status_dir () ? LEFT : RIGHT;
+
+      dxy[X_AXIS] = bound[RIGHT]->extent (common[X_AXIS], X_AXIS)[LEFT]
+       - bound[LEFT]->extent (common[X_AXIS], X_AXIS)[RIGHT];
+      
+      dxy += broken_trend_offset (me, broken);
+      dxy[X_AXIS] -= 1 * gap;
+
+      my_off = Offset (0,
+                      me->relative_coordinate (common[Y_AXIS], Y_AXIS));
+
+      his_off = Offset (0, 
+                       bound[-broken]->relative_coordinate (common[Y_AXIS],
+                                                            Y_AXIS));
+
+      if (broken == LEFT)
+       {
+         my_off[Y_AXIS] += dxy[Y_AXIS];
+       }
     }
-  
+  else
+    {
+      dxy[X_AXIS] = bound[RIGHT]->extent (common[X_AXIS], X_AXIS)[LEFT]
+       - bound[LEFT]->extent (common[X_AXIS], X_AXIS)[RIGHT];
+      dxy[Y_AXIS] = bound[RIGHT]->extent (common[Y_AXIS], Y_AXIS).center ()
+       - bound[LEFT]->extent (common[Y_AXIS], Y_AXIS).center ();
+      dxy[X_AXIS] -= 2 * gap;
+
+      my_off = Offset (me->relative_coordinate (common[X_AXIS], X_AXIS),
+                      me->relative_coordinate (common[Y_AXIS], Y_AXIS)); 
+      
+      his_off = Offset (bound[LEFT]->relative_coordinate (common[X_AXIS],
+                                                         X_AXIS),
+                       bound[LEFT]->relative_coordinate (common[Y_AXIS],
+                                                         Y_AXIS)); 
+      
+      }
   Molecule line;
-  Real gap = gh_scm2double (me->get_grob_property ("gap"));
-
-  Offset my_off(me->relative_coordinate (common[X_AXIS], X_AXIS),
-               me->relative_coordinate (common[Y_AXIS], Y_AXIS) ); 
- 
-  Offset his_off(l->relative_coordinate (common[X_AXIS], X_AXIS),
-                l->relative_coordinate (common[Y_AXIS], Y_AXIS) ); 
- 
-  dxy *= (dxy.length () - 2 * gap) / dxy.length ();
-  
   SCM list = Line_spanner::line_atom (me, dxy[X_AXIS], dxy[Y_AXIS]);
     
   if (list == SCM_EOL)
@@ -125,10 +202,9 @@ Line_spanner::brew_molecule (SCM smob)
   Box b (Interval (0, dxy[X_AXIS]), Interval (0, dxy[Y_AXIS]));
   
   line = Molecule (b, list);
-  line.translate_axis (l->extent (l, X_AXIS).length (), X_AXIS); 
-  
-  
-  Offset g = dxy * (gap / dxy.length ());
+  line.translate_axis (bound[LEFT]->extent (bound[LEFT], X_AXIS).length (), X_AXIS); 
+
+  Offset g (gap, 0);
   line.translate (g - my_off + his_off);
       
   return line.smobbed_copy ();

diff --git a/scm/interface.scm b/scm/interface.scm
index f8e19e52ce73566863116e820400162ed621bbbd..91209c9db634e566c0db12105f9a7de7231655ee 100644 (file)
--- a/scm/interface.scm
+++ b/scm/interface.scm
@@ -466,24 +466,16 @@ font-point-size font-relative-size)
   we don't contain any interesting items after linebreaking, then
   gracefully commit suicide.  Objective: don't disgrace Lily by
   typesetting empty lines in orchestral scores."
-   '(
-    items-worth-living 
-
-
-    )))
+   '( items-worth-living )
+))
 
 (define line-spanner-interface
   (lily-interface
    'line-spanner-interface
    "Generic line drawn between two objects, eg. for use with glissandi.
-gap is relative to the total length of the line.   "
+gap is measured in staff-spaces.   "
 
-   '(gap 
-    dash-period 
-    dash-length 
-    line-thickness 
-    type 
-    )
+   '(gap dash-period dash-length line-thickness type )
    ))
 
 (define lyric-hyphen-interface

diff --git a/scm/translator-description.scm b/scm/translator-description.scm
index 82a2f02236c02398c056a3ac8be99bac0db9cebd..bf132b61c570c1a90b2bad528a92a04f4ba0ccb5 100644 (file)
--- a/scm/translator-description.scm
+++ b/scm/translator-description.scm
@@ -409,7 +409,6 @@ measurePosition and currentBarNumber to determine what number to print over the
      '(
       )))
 
-
    (cons
     'Note_heads_engraver
     (engraver-description
@@ -419,6 +418,14 @@ measurePosition and currentBarNumber to determine what number to print over the
      '(
       )))
 
+   (cons
+    'Note_head_line_engraver
+    (engraver-description
+     "Note_head_line_engraver"
+     "Engrave a line between two note heads."
+     '(Glissando FollowThread)
+     '(
+      )))
 
    (cons
     'Note_name_engraver