X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspan-bar.cc;h=e806a0dd2ddc122a499b25bdbdef3a75b94c5f55;hb=db4dd36b622417b5fe4c4a4660402e0ac7b5beb1;hp=0012dab45f7931711ff3a0334a002fa5f52629db;hpb=a8651b61fa25aee299bbc846d180a942568d6075;p=lilypond.git

diff --git a/lily/span-bar.cc b/lily/span-bar.cc
index 0012dab45f..e806a0dd2d 100644
--- a/lily/span-bar.cc
+++ b/lily/span-bar.cc
@@ -3,128 +3,246 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
-#include "dimension-cache.hh"
+
 #include "span-bar.hh"
-#include "lookup.hh"
+#include "font-interface.hh"
 #include "dimensions.hh"
-#include "paper-def.hh"
-#include "molecule.hh"
+#include "output-def.hh"
+#include "stencil.hh"
 #include "warn.hh"
 #include "axis-group-interface.hh"
 #include "group-interface.hh"
+#include "grob.hh"
+#include "bar-line.hh"
 
 void
-Span_bar::add_bar (Score_element*b)
+Span_bar::add_bar (Grob*me, Grob*b)
 {
-  Pointer_group_interface gi (this);
-  gi.add_element (b);
+  Pointer_group_interface::add_grob (me, ly_symbol2scm ("elements"),  b);
 
-  add_dependency (b);
+  me->add_dependency (b);
 }
 
+MAKE_SCHEME_CALLBACK (Span_bar,print,1);
 
-Interval
-Span_bar::width_callback (Score_element *se, Axis )
+/* Limitations/Bugs:
+
+   (1) Elements from 'me->get_property ("elements")' must be
+   ordered according to their y coordinates relative to their common
+   axis group parent.  Otherwise, the computation goes mad.
+
+   (TODO:
+   apply a sort algorithm that ensures this precondition.)  However,
+   until now, I have seen no case where lily has not fulfilled this
+   precondition.
+
+   (2) This method depends on bar_engraver not being removed from
+   staff context.  If bar_engraver is removed, the size of the staff
+   lines is evaluated as 0, which results in a solid span bar line
+   with faulty y coordinate. */
+
+/* This routine was originally by Juergen Reuter, but it was a on the
+   bulky side. Rewritten by Han-Wen. */
+SCM
+Span_bar::print (SCM smobbed_me) 
 {
-  Span_bar*  s= dynamic_cast<Span_bar*> ((Score_element*)se);
-  String gl = ly_scm2string (s->get_elt_property ("glyph"));
+  Grob *me = unsmob_grob (smobbed_me);
+  SCM first_elt = me->get_property ("elements");
 
-  /*
-    urg.
-   */
-  Molecule m = s->compound_barline (gl, 40 PT);
+  /* compute common refpoint of elements */
+  Grob *refp = me;
+  for (SCM elts = first_elt; scm_is_pair (elts); elts = scm_cdr (elts))
+    {
+      SCM smobbed_staff_bar = scm_car (elts);
+      Grob *staff_bar = unsmob_grob (smobbed_staff_bar);
+      refp = staff_bar->common_refpoint (refp, Y_AXIS);
+    }
+
+  Span_bar::evaluate_glyph (me);
+  SCM glyph = me->get_property ("glyph");
+
+  /* glyph may not be a string, when ME is killed by Hara Kiri in
+    between. */
+  if (!scm_is_string (glyph))
+    return SCM_EOL;
   
-  return m.extent (X_AXIS);
+  String glyph_string = ly_scm2string (glyph);
+
+  /* compose span_bar_mol */
+  Stencil span_bar_mol;
+
+  Interval prev_extent;
+  for (SCM elts = first_elt; scm_is_pair (elts); elts = scm_cdr (elts))
+    {
+      SCM smobbed_staff_bar = scm_car (elts);
+      Grob *staff_bar = unsmob_grob (smobbed_staff_bar);
+      Interval ext = staff_bar->extent (refp, Y_AXIS);
+      if (ext.is_empty ())
+	continue; 
+      
+      if (!prev_extent.is_empty ())
+	{
+	  Interval l (prev_extent [UP],
+		     ext[DOWN]);
+
+	  if (l.is_empty ())
+	    {
+	      /* There is overlap between the bar lines.  Do nothing. */
+	    }
+	  else
+	    {
+	      Stencil interbar = Bar_line::compound_barline (staff_bar,
+							      glyph_string,
+							      l.length ());
+	      interbar.translate_axis (l.center (), Y_AXIS);
+	      span_bar_mol.add_stencil (interbar);
+	    }
+	}
+      prev_extent = ext;
+    }
+
+  span_bar_mol.translate_axis (- me->relative_coordinate (refp, Y_AXIS),
+			       Y_AXIS);
+  
+  return span_bar_mol.smobbed_copy ();
 }
 
-GLUE_SCORE_ELEMENT(Span_bar,before_line_breaking);
+MAKE_SCHEME_CALLBACK (Span_bar,width_callback,2);
 SCM
-Span_bar::member_before_line_breaking ()
+Span_bar::width_callback (SCM element_smob, SCM scm_axis)
 {
-  Bar::member_before_line_breaking ();
+  Grob *se = unsmob_grob (element_smob);
+  Axis a = (Axis) scm_to_int (scm_axis);
+  assert (a == X_AXIS);
+  String gl = ly_scm2string (se->get_property ("glyph"));
+
+  /*
+    urg.
+  */
+  Stencil m = Bar_line::compound_barline (se, gl, 40 PT);
   
-  evaluate_empty ();
+  return ly_interval2scm (m.extent (X_AXIS));
+}
 
-  return SCM_UNDEFINED;
+MAKE_SCHEME_CALLBACK (Span_bar,before_line_breaking,1);
+SCM
+Span_bar::before_line_breaking (SCM smob)
+{
+  Grob * g = unsmob_grob (smob);
+  evaluate_empty (g);
+  evaluate_glyph (g);
+
+  /* No need to call Bar_line::before_line_breaking (), because the info
+     in ELEMENTS already has been procced by
+     Bar_line::before_line_breaking (). */
+  return SCM_UNSPECIFIED;
 }
 
-GLUE_SCORE_ELEMENT(Span_bar,after_line_breaking);
+MAKE_SCHEME_CALLBACK (Span_bar,center_on_spanned_callback,2);
+
 SCM
-Span_bar::member_after_line_breaking ()
+Span_bar::center_on_spanned_callback (SCM element_smob, SCM axis)
 {
-  Interval i (get_spanned_interval ());
+  Grob *me = unsmob_grob (element_smob);
+  Axis a = (Axis) scm_to_int (axis);
+  assert (a == Y_AXIS);
+  Interval i (get_spanned_interval (me));
+
+  /* Bar_line::print delivers a barline of y-extent (-h/2,h/2), so
+     we have to translate ourselves to be in the center of the 
+     interval that we span. */
+  if (i.is_empty ())
+    {
+      me->suicide ();
+      return scm_make_real (0.0);
+    }
+  
+  return scm_make_real (i.center ());
+}
 
-  /*
-    Bar::brew_molecule delivers a barline of y-extent (-h/2,h/2), so
-    we have to translate ourselves to be in the center of the 
-    interval that we span.  */
-  translate_axis (i.center (), Y_AXIS);
-  return SCM_UNDEFINED;
+void
+Span_bar::evaluate_empty (Grob*me)
+{
+  /* TODO: filter all hara-kiried out of ELEMENS list, and then
+     optionally do suicide. Call this cleanage function from
+     center_on_spanned_callback () as well. */
+  if (!scm_is_pair (me->get_property ("elements")))
+    {
+      me->suicide ();
+    }
 }
 
 void
-Span_bar::evaluate_empty ()
-{ 
-  if (!gh_pair_p (get_elt_pointer ("elements")))
+Span_bar::evaluate_glyph (Grob*me)
+{
+  SCM gl = me->get_property ("glyph");
+
+  if (scm_is_string (gl))
+    return ;
+  
+  for (SCM s = me->get_property ("elements");
+       !scm_is_string (gl) && scm_is_pair (s); s = scm_cdr (s))
+    {
+      gl = unsmob_grob (scm_car (s))
+	->get_property ("glyph");
+    }
+
+  if (!scm_is_string (gl))
     {
-      suicide ();
+      me->suicide ();
+      return;
     }
   
-  SCM gl = get_elt_property ("glyph");
-  if (!gh_string_p (gl))
+  String type = ly_scm2string (gl);
+  if (type == "|:") 
+    {
+      type = ".|";
+    }
+  else if (type== ":|")
     {
-      suicide ();
-      return ; 
+      type = "|.";
     }
-  else {
-    String type_str = ly_scm2string (gl);
-    String orig = type_str;
-    if (type_str == "|:") 
-      {
-	type_str= ".|";
-      }
-    else if (type_str== ":|")
-      {
-	type_str= "|.";
-      }
-    else if (type_str== ":|:")
-      {
-	type_str= ".|.";
-      }
-    if (orig != type_str)
-      set_elt_property ("glyph", ly_str02scm (type_str.ch_C()));
-  }
+  else if (type== ":|:")
+    {
+      type = ".|.";
+    }
+
+  gl = scm_makfrom0str (type.to_str0 ());
+  if (scm_equal_p (me->get_property ("glyph"), gl)
+      != SCM_BOOL_T)
+    me->set_property ("glyph", gl);
 }
 
 Interval
-Span_bar::get_spanned_interval () const
+Span_bar::get_spanned_interval (Grob*me) 
 {
-  return Axis_group_interface::group_extent_callback ((Span_bar*)this, Y_AXIS);  
+  return ly_scm2interval (Axis_group_interface::group_extent_callback
+			  (me->self_scm (), scm_int2num (Y_AXIS))); 
 }
 
 
-Real
-Span_bar::get_bar_size () const
+MAKE_SCHEME_CALLBACK (Span_bar,get_bar_size,1);
+SCM
+Span_bar::get_bar_size (SCM smob)
 {
-  Interval iv (get_spanned_interval ());
-  if (iv.empty_b ())
+  Grob* me =  unsmob_grob (smob);
+  Interval iv (get_spanned_interval (me));
+  if (iv.is_empty ())
     {
-      programming_error("Huh? My children deflated (FIXME)");
-      iv = Interval (0,0);
+      /* This happens if the bars are hara-kiried from under us. */
+      me->suicide ();
+      return scm_make_real (-1);
     }
-  return iv.length ();
+  return scm_make_real (iv.length ());
 }
 
-Span_bar::Span_bar (SCM s)
-  : Bar (s)
-{
-  Pointer_group_interface(this).set_interface ();
-  set_extent_callback (width_callback, X_AXIS);
-  
-  // dim_cache_[Y_AXIS]->set_extent_callback (Axis_group_interface::group_extent_callback);
 
-  set_extent_callback (0, Y_AXIS);
-}
+
+ADD_INTERFACE (Span_bar,"span-bar-interface",
+  "A bar line that spanned between other barlines. This interface is "
+	       " used for  bar lines that connect different staves.",
+  "elements");
+