lily/span-bar.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "span-bar.hh"
  21
  22 #include "font-interface.hh"
  23 #include "dimensions.hh"
  24 #include "output-def.hh"
  25 #include "stencil.hh"
  26 #include "warn.hh"
  27 #include "axis-group-interface.hh"
  28 #include "bar-line.hh"
  29 #include "grob.hh"
  30 #include "pointer-group-interface.hh"
  31 #include "staff-symbol-referencer.hh"
  32
  33 void
  34 Span_bar::add_bar (Grob *me, Grob *b)
  35 {
  36   Pointer_group_interface::add_grob (me, ly_symbol2scm ("elements"), b);
  37 }
  38
  39 MAKE_SCHEME_CALLBACK (Span_bar, print, 1);
  40
  41 /* Limitations/Bugs:
  42
  43 (1) Elements from 'me->get_object ("elements")' must be
  44 ordered according to their y coordinates relative to their common
  45 axis group parent.  Otherwise, the computation goes mad.
  46
  47 (2) This method depends on bar_engraver not being removed from
  48 staff context.  If bar_engraver is removed, the size of the staff
  49 lines is evaluated as 0, which results in a solid span bar line
  50 with faulty y coordinate. */
  51
  52 /* This routine was originally by Juergen Reuter, but it was a on the
  53    bulky side. Rewritten by Han-Wen. */
  54 SCM
  55 Span_bar::print (SCM smobbed_me)
  56 {
  57   Grob *me = unsmob_grob (smobbed_me);
  58   extract_grob_set (me, "elements", elements);
  59   Grob *refp = common_refpoint_of_array (elements, me, Y_AXIS);
  60
  61   SCM glyph = me->get_property ("glyph-name");
  62
  63   /* glyph may not be a string, when ME is killed by Hara Kiri in
  64      between. */
  65   if (!scm_is_string (glyph))
  66     return SCM_EOL;
  67
  68   string glyph_string = ly_scm2string (glyph);
  69
  70   /* compose span_bar_mol */
  71   vector<Interval> extents;
  72   vector<bool> make_span_bar;
  73   Grob *model_bar = 0;
  74   for (vsize i = elements.size (); i--;)
  75     {
  76       Grob *bar = elements[i];
  77       Interval ext = Bar_line::bar_y_extent (bar, refp);
  78       if (Grob *staff = Staff_symbol_referencer::get_staff_symbol (bar))
  79         ext.unite (staff->extent (refp, Y_AXIS));
  80       if (ext.is_empty ())
  81         continue;
  82
  83       extents.push_back (ext);
  84       make_span_bar.push_back (to_boolean (bar->get_property ("allow-span-bar")));
  85       model_bar = bar;
  86     }
  87
  88   if (!model_bar)
  89     model_bar = me;
  90
  91   vector_sort (extents, Interval::left_less);
  92
  93   Stencil span_bar;
  94   for (vsize i = 1; i < extents.size (); i++)
  95     {
  96       Interval prev_extent = extents[i - 1];
  97       Interval ext = extents[i];
  98       if (!prev_extent.is_empty ())
  99         {
 100           Interval l (prev_extent [UP],
 101                       ext[DOWN]);
 102
 103           if (l.is_empty () || !make_span_bar[i])
 104             {
 105               /* There is overlap between the bar lines.  Do nothing. */
 106             }
 107           else
 108             {
 109               Stencil interbar = Bar_line::compound_barline (model_bar,
 110                                                              glyph_string,
 111                                                              l,
 112                                                              false);
 113               span_bar.add_stencil (interbar);
 114             }
 115         }
 116       prev_extent = ext;
 117     }
 118
 119   span_bar.translate_axis (- me->relative_coordinate (refp, Y_AXIS),
 120                            Y_AXIS);
 121
 122   return span_bar.smobbed_copy ();
 123 }
 124
 125 MAKE_SCHEME_CALLBACK (Span_bar, width, 1);
 126 SCM
 127 Span_bar::width (SCM smob)
 128 {
 129   Grob *me = unsmob_grob (smob);
 130   SCM gn = me->get_property ("glyph-name");
 131   if (!me->is_live ())
 132     return ly_interval2scm (Interval ());
 133
 134   string gl = ly_scm2string (gn);
 135
 136   /*
 137     urg.
 138   */
 139   Stencil m
 140     = Bar_line::compound_barline (me, gl, Interval (-20 PT, 20 PT), false);
 141
 142   return ly_interval2scm (m.extent (X_AXIS));
 143 }
 144
 145 MAKE_SCHEME_CALLBACK (Span_bar, before_line_breaking, 1);
 146 SCM
 147 Span_bar::before_line_breaking (SCM smob)
 148 {
 149   Grob *me = unsmob_grob (smob);
 150   extract_grob_set (me, "elements", elements);
 151   if (elements.empty ())
 152     me->suicide ();
 153
 154   return SCM_UNSPECIFIED;
 155 }
 156
 157 MAKE_SCHEME_CALLBACK (Span_bar, center_on_spanned_callback, 1);
 158
 159 SCM
 160 Span_bar::center_on_spanned_callback (SCM smob)
 161 {
 162   Grob *me = unsmob_grob (smob);
 163   Interval i (get_spanned_interval (me));
 164
 165   /* Bar_line::print delivers a barline of y-extent (-h/2, h/2), so
 166      we have to translate ourselves to be in the center of the
 167      interval that we span. */
 168   if (i.is_empty ())
 169     {
 170       me->suicide ();
 171       return scm_from_double (0.0);
 172     }
 173
 174   return scm_from_double (i.center ());
 175 }
 176
 177 MAKE_SCHEME_CALLBACK (Span_bar, calc_glyph_name, 1);
 178 SCM
 179 Span_bar::calc_glyph_name (SCM smob)
 180 {
 181   Grob *me = unsmob_grob (smob);
 182   extract_grob_set (me, "elements", elements);
 183   SCM gl = SCM_EOL;
 184   for (vsize i = elements.size ();
 185        i-- && !scm_is_string (gl);)
 186     gl = elements[i]->get_property ("glyph-name");
 187
 188   if (!scm_is_string (gl))
 189     {
 190       me->suicide ();
 191       return SCM_UNSPECIFIED;
 192     }
 193
 194   string type = ly_scm2string (gl);
 195   if (type == "|:" || type == "||:")
 196     type = ".|";
 197   else if (type == ":|")
 198     type = "|.";
 199   else if (type == ":|:")
 200     type = ".|.";
 201   else if (type == ":|.|:")
 202     type = "|.|";
 203   else if (type == ":|.:")
 204     type = "|.";
 205   else if (type == "S" || type == "S|" || type == "|S")
 206     type = "||";
 207   else if (type == "S|:" || type == ".S|:")
 208     type = ".|";
 209   else if (type == ":|S" || type == ":|S.")
 210     type = "|.";
 211   else if (type == ":|S|:" || type == ":|S.|:")
 212     type = "|._.|";
 213   else if (type == "'")
 214     type = "";
 215
 216   return ly_string2scm (type);
 217 }
 218
 219 Interval
 220 Span_bar::get_spanned_interval (Grob *me)
 221 {
 222   return ly_scm2interval (Axis_group_interface::generic_group_extent (me, Y_AXIS));
 223 }
 224
 225 ADD_INTERFACE (Span_bar,
 226                "A bar line that is spanned between other barlines.  This"
 227                " interface is used for bar lines that connect different"
 228                " staves.",
 229
 230                /* properties */
 231                "glyph-name "
 232                "elements "
 233                "pure-Y-common "
 234                "pure-relevant-grobs "
 235                "pure-relevant-items "
 236                "pure-relevant-spanners "
 237               );
 238