lily/system-start-delimiter.cc

   1 /*
   2   system-start-delimiter.cc --  implement System_start_delimiter
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include <math.h>
  10
  11 #include "axis-group-interface.hh"
  12 #include "system-start-delimiter.hh"
  13 #include "paper-def.hh"
  14 #include "molecule.hh"
  15 #include "font-interface.hh"
  16 #include "all-font-metrics.hh"
  17 #include "score-element.hh"
  18 #include "lookup.hh"
  19
  20 Molecule
  21 System_start_delimiter::staff_bracket (Score_element*me,Real height)
  22 {
  23   Real arc_height = gh_scm2double (me->get_elt_property("arch-height")) ;
  24
  25   SCM at = gh_list (ly_symbol2scm ("bracket"),
  26                     me->get_elt_property ("arch-angle"),
  27                     me->get_elt_property ("arch-width"),
  28                     gh_double2scm (arc_height),
  29                     me->get_elt_property ("bracket-width"),
  30                     gh_double2scm (height),
  31                     me->get_elt_property ("arch-thick"),
  32                     me->get_elt_property ("bracket-thick"),
  33                     SCM_UNDEFINED);
  34
  35   Real h = height + 2 * arc_height;
  36   Box b (Interval (0, 1.5), Interval (-h/2, h/2));
  37   Molecule mol (b, at);
  38   mol.align_to (X_AXIS, CENTER);
  39   return mol;
  40 }
  41
  42 void
  43 System_start_delimiter::set_interface (Score_element*me)
  44 {
  45   me->set_interface (ly_symbol2scm ("system-start-delimiter-interface"));
  46 }
  47
  48 bool
  49 System_start_delimiter::has_interface (Score_element*me)
  50 {
  51   return  me->has_interface (ly_symbol2scm ("system-start-delimiter-interface"));
  52 }
  53
  54 Molecule
  55 System_start_delimiter::simple_bar (Score_element*me,Real h)
  56 {
  57   Real w = me->paper_l ()->get_var ("stafflinethickness") *
  58     gh_scm2double (me->get_elt_property ("thickness"));
  59   return Lookup::filledbox (Box (Interval(0,w), Interval(-h/2, h/2)));
  60 }
  61
  62 MAKE_SCHEME_CALLBACK(System_start_delimiter,after_line_breaking,1);
  63
  64 SCM
  65 System_start_delimiter::after_line_breaking (SCM smob)
  66 {
  67   try_collapse (unsmob_element (smob));
  68   return SCM_UNSPECIFIED;
  69 }
  70
  71 void
  72 System_start_delimiter::try_collapse (Score_element*me)
  73 {
  74   SCM   gl = me->get_elt_property ("glyph");
  75
  76   if (scm_ilength (me->get_elt_property ("elements")) <=  1 && gl == ly_symbol2scm ("bar-line"))
  77     {
  78       me->suicide ();
  79     }
  80
  81 }
  82
  83
  84 MAKE_SCHEME_CALLBACK(System_start_delimiter,brew_molecule,1);
  85
  86 SCM
  87 System_start_delimiter::brew_molecule (SCM smob)
  88 {
  89   Score_element * me = unsmob_element (smob);
  90   Interval ext = ly_scm2interval (Axis_group_interface::group_extent_callback (me->self_scm(), gh_int2scm (Y_AXIS)));
  91   Real l = ext.length ();
  92   Molecule m;
  93
  94   SCM s = me->get_elt_property ("collapse-height");
  95   if (gh_number_p (s) && l < gh_scm2double (s))
  96     {
  97       me->suicide();
  98       return SCM_EOL;
  99     }
 100
 101   s = me->get_elt_property ("glyph");
 102   if (!gh_symbol_p(s))
 103     return SCM_EOL;
 104
 105   if (s == ly_symbol2scm ("bracket"))
 106     m = staff_bracket (me,l);
 107   else if (s == ly_symbol2scm ("brace"))
 108     m =  staff_brace (me,l);
 109   else if (s == ly_symbol2scm ("bar-line"))
 110     m = simple_bar (me,l);
 111
 112
 113   m.translate_axis (ext.center (), Y_AXIS);
 114   return m.smobbed_copy ();
 115 }
 116
 117 Molecule
 118 System_start_delimiter::staff_brace (Score_element*me,Real y)
 119 {
 120   int lo = 0;
 121   int hi = 255;
 122   Font_metric *fm = Font_interface::get_default_font (me);
 123   Box b;
 124
 125   /* do a binary search for each Y, not very efficient, but passable?  */
 126   do
 127   {
 128     int cmp = (lo + hi) / 2;
 129
 130     b = fm->get_char (cmp);
 131     if (b[Y_AXIS].empty_b () || b[Y_AXIS].length () > y )
 132       hi = cmp;
 133     else
 134       lo = cmp;
 135     }
 136   while (hi - lo > 1);
 137
 138   SCM at = gh_list (ly_symbol2scm ("char"), gh_int2scm (lo), SCM_UNDEFINED);
 139   at = fontify_atom (fm, at);
 140
 141   b = fm->get_char (lo);
 142   b[X_AXIS] = Interval (0,0);
 143
 144   return Molecule(b, at);
 145 }
 146