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 "lookup.hh"
  16 #include "all-font-metrics.hh"
  17 #include "score-element.hh"
  18
  19 Molecule
  20 System_start_delimiter::staff_bracket (Score_element*me,Real height)
  21 {
  22   Paper_def* p= me->paper_l ();
  23   SCM scmss = p->get_scmvar ("staffspace");
  24   Real ss = gh_scm2double (scmss);
  25   Real arc_height = gh_scm2double (me->get_elt_property("arch-height")) * ss ;
  26
  27   SCM at = gh_list (ly_symbol2scm ("bracket"),
  28                     scm_product (me->get_elt_property ("arch-angle"), scmss),
  29                     scm_product (me->get_elt_property ("arch-width"), scmss),
  30                     gh_double2scm (arc_height),
  31                     scm_product (me->get_elt_property ("bracket-width"),scmss),
  32                     gh_double2scm (height),
  33                     scm_product (me->get_elt_property ("arch-thick"),scmss),
  34                     scm_product (me->get_elt_property ("bracket-thick"),scmss),
  35                     SCM_UNDEFINED);
  36
  37   Real h = height + 2 * arc_height;
  38   Box b (Interval (0, 1.5 * ss), Interval (-h/2, h/2));
  39   Molecule mol (b, at);
  40   mol.align_to (X_AXIS, CENTER);
  41   return mol;
  42 }
  43
  44 void
  45 System_start_delimiter::set_interface (Score_element*me)
  46 {
  47   me->set_interface (ly_symbol2scm ("system-start-delimiter-interface"));
  48 }
  49
  50 bool
  51 System_start_delimiter::has_interface (Score_element*me)
  52 {
  53   return  me->has_interface (ly_symbol2scm ("system-start-delimiter-interface"));
  54 }
  55
  56 Molecule
  57 System_start_delimiter::simple_bar (Score_element*me,Real h)
  58 {
  59   Real w = me->paper_l ()->get_var ("stafflinethickness") *
  60     gh_scm2double (me->get_elt_property ("thickness"));
  61   return me->lookup_l ()->filledbox (Box (Interval(0,w), Interval(-h/2, h/2)));
  62 }
  63
  64 MAKE_SCHEME_CALLBACK(System_start_delimiter,after_line_breaking,1);
  65
  66 SCM
  67 System_start_delimiter::after_line_breaking (SCM smob)
  68 {
  69   try_collapse (unsmob_element (smob));
  70   return SCM_UNSPECIFIED;
  71 }
  72
  73 void
  74 System_start_delimiter::try_collapse (Score_element*me)
  75 {
  76   SCM   gl = me->get_elt_property ("glyph");
  77
  78   if (scm_ilength (me->get_elt_property ("elements")) <=  1 && gl == ly_symbol2scm ("bar-line"))
  79     {
  80       me->suicide ();
  81     }
  82
  83 }
  84
  85
  86 MAKE_SCHEME_CALLBACK(System_start_delimiter,brew_molecule,1);
  87
  88 SCM
  89 System_start_delimiter::brew_molecule (SCM smob)
  90 {
  91   Score_element * me = unsmob_element (smob);
  92   Interval ext = ly_scm2interval (Axis_group_interface::group_extent_callback (me->self_scm(), gh_int2scm (Y_AXIS)));
  93   Real l = ext.length ();
  94   Molecule m;
  95
  96   SCM s = me->get_elt_property ("collapse-height");
  97   if (gh_number_p (s) && l < gh_scm2double (s))
  98     {
  99       me->suicide();
 100       return SCM_EOL;
 101     }
 102
 103   s = me->get_elt_property ("glyph");
 104   if (!gh_symbol_p(s))
 105     return SCM_EOL;
 106
 107   if (s == ly_symbol2scm ("bracket"))
 108     m = staff_bracket (me,l);
 109   else if (s == ly_symbol2scm ("brace"))
 110     m =  staff_brace (me,l);
 111   else if (s == ly_symbol2scm ("bar-line"))
 112     m = simple_bar (me,l);
 113
 114
 115   m.translate_axis (ext.center (), Y_AXIS);
 116   return m.create_scheme ();
 117 }
 118
 119 /*
 120   Ugh. Suck me plenty.
 121  */
 122 Molecule
 123 System_start_delimiter::staff_brace (Score_element*me,Real y)
 124 {
 125   Real staffht  = me->paper_l ()->get_var ("staffheight");
 126   int staff_size  = int (rint (staffht ));
 127
 128   // URG
 129   Real step  = 1.0;
 130   int minht  = 2 * staff_size;
 131   int maxht = 7 *  minht;
 132   int idx = int (((maxht - step) <? y - minht) / step);
 133   idx = idx >? 0;
 134
 135   SCM l = scm_assoc (ly_str02scm ("brace"),
 136                      scm_eval2 (ly_symbol2scm ("cmr-alist"), SCM_EOL));
 137
 138   String nm = "feta-braces";
 139   if (l != SCM_BOOL_F)
 140     nm = ly_scm2string (gh_cdr (l));
 141   nm += to_str (staff_size);
 142   SCM e =gh_list (ly_symbol2scm ("char"), gh_int2scm (idx), SCM_UNDEFINED);
 143   SCM at = (e);
 144
 145   at = fontify_atom (find_font (nm), at);
 146
 147   Box b (Interval (0,0), Interval (-y/2, y/2));
 148
 149   return Molecule(b, at);
 150 }
 151