(get_stencil): new file: separate out

[lilypond.git] / lily / system-start-text.cc

diff --git a/lily/system-start-text.cc b/lily/system-start-text.cc
new file mode 100644 (file)
index 0000000..1e73994
--- /dev/null
+++ b/lily/system-start-text.cc
@@ -0,0 +1,86 @@
+/*
+  system-start-text.cc -- implement System_start_text
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+*/
+
+#include "text-interface.hh"
+#include "pointer-group-interface.hh"
+#include "output-def.hh"
+#include "font-interface.hh"
+#include "spanner.hh"
+#include "stencil.hh"
+
+class System_start_text
+{
+public:
+  static Stencil get_stencil (Grob *);
+  static bool has_interface (Grob *);
+
+  DECLARE_SCHEME_CALLBACK (print, (SCM));
+};
+
+Stencil
+System_start_text::get_stencil (Grob *me_grob)
+{
+  Spanner *me = dynamic_cast<Spanner*> (me_grob);
+  SCM t = me->get_property ("text");
+  if (me->get_break_index () == 0)
+    t = me->get_property ("long-text");
+          
+  
+  SCM chain = Font_interface::text_font_alist_chain (me);
+
+  SCM scm_stencil = Text_interface::is_markup (t)
+    ? Text_interface::interpret_markup (me->layout ()->self_scm (), chain, t)
+    : SCM_EOL;
+
+  
+  if (Stencil *p = unsmob_stencil (scm_stencil))
+    {
+      SCM align_y  = me_grob->get_property ("self-alignment-Y");
+      if (scm_is_number (align_y))
+       p->align_to (Y_AXIS, robust_scm2double (align_y, 0.0));
+      return *p;
+    }
+  return Stencil();
+}
+
+
+MAKE_SCHEME_CALLBACK (System_start_text, print, 1);
+SCM
+System_start_text::print (SCM smob)
+{
+  Spanner *me = unsmob_spanner (smob);
+
+  extract_grob_set (me, "elements", elts);
+  Grob *common = common_refpoint_of_array (elts, me, Y_AXIS);
+
+  Interval ext;
+  for (vsize i = elts.size (); i--;)
+    {
+      Spanner *sp = dynamic_cast<Spanner *> (elts[i]);
+
+      if (sp
+         && sp->get_bound (LEFT) == me->get_bound (LEFT))
+       ext.add_point (sp->relative_coordinate (common, Y_AXIS));
+    }
+
+  Stencil m = get_stencil (me);
+  m.translate_axis (ext.center (), Y_AXIS);
+  return m.smobbed_copy ();
+}
+
+
+ADD_INTERFACE (System_start_text,
+              "system-start-text-interface",
+              "Text in front of the system.",
+
+              /* properties */
+              "text "
+              "long-text "
+              "self-alignment-Y "
+              );