lily/tuplet-spanner.cc

   1 /*
   2   plet-spanner.cc -- implement Tuplet_spanner
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "beam.hh"
  10 #include "box.hh"
  11 #include "debug.hh"
  12 #include "lookup.hh"
  13 #include "molecule.hh"
  14 #include "p-col.hh"
  15 #include "paper-def.hh"
  16 #include "tuplet-spanner.hh"
  17 #include "stem.hh"
  18 #include "note-column.hh"
  19
  20 Tuplet_spanner::Tuplet_spanner ()
  21 {
  22   parallel_beam_b_ = false;
  23 }
  24
  25 /*
  26   TODO.  We should control the gap for lookup from here.
  27  */
  28 Molecule*
  29 Tuplet_spanner::do_brew_molecule_p () const
  30 {
  31   Molecule* mol_p = new Molecule;
  32
  33   // Default behaviour: number always, bracket when no beam!
  34   bool bracket_visibility = !parallel_beam_b_;
  35   bool number_visibility = true;
  36   SCM visibility_sym =get_elt_property (tuplet_visibility_scm_sym);
  37   if (visibility_sym != SCM_BOOL_F)
  38     {
  39       /* Property values:
  40          0       show nothing
  41          1       show number
  42          2       show (number and bracket)-if-no-beam
  43          3       show number, and bracket-if-no-beam
  44          4       show number, and bracket
  45       */
  46       int value = gh_scm2int (SCM_CDR(visibility_sym));
  47       bracket_visibility = (value == 4 || (value > 1 && !parallel_beam_b_));
  48       number_visibility = (value > 2 || value == 1 ||
  49                            (value == 2 && !parallel_beam_b_));
  50     }
  51
  52   if (column_arr_.size ()){
  53     Real ncw = column_arr_.top ()->extent (X_AXIS).length ();
  54     Real w = extent (X_AXIS).length () + ncw;
  55     Molecule num (lookup_l ()->text ("italic",
  56                                      number_str_));
  57     num.align_to (X_AXIS, CENTER);
  58     num.translate_axis (w/2, X_AXIS);
  59     Real interline = paper_l ()->get_realvar (interline_scm_sym);
  60     Real dy = column_arr_.top ()->extent (Y_AXIS) [dir_]
  61       - column_arr_[0]->extent (Y_AXIS) [dir_];
  62     num.align_to (Y_AXIS, CENTER);
  63     num.translate_axis (dir_ * interline, Y_AXIS);
  64
  65     num.translate_axis (dy/2, Y_AXIS);
  66
  67
  68     /*    if (beam_l_arr_.size () == 1 && !bracket_visibility)
  69       {
  70         num.translate_axis (dir_ * interline,  Y_AXIS);
  71       }
  72     */
  73     if (bracket_visibility)
  74       {
  75         mol_p->add_molecule (lookup_l ()->plet (dy, w, dir_));
  76       }
  77
  78     if (number_visibility)
  79       {
  80         mol_p->add_molecule (num);
  81       }
  82     mol_p->translate_axis (dir_ * interline, Y_AXIS);
  83   }
  84   return mol_p;
  85 }
  86
  87 void
  88 Tuplet_spanner::do_add_processing ()
  89 {
  90   if (column_arr_.size ())
  91     {
  92       set_bounds (LEFT, column_arr_[0]);
  93       set_bounds (RIGHT, column_arr_.top ());
  94     }
  95 }
  96
  97 void
  98 Tuplet_spanner::do_post_processing ()
  99 {
 100   if (column_arr_.size())
 101     translate_axis (column_arr_[0]->extent (Y_AXIS)[dir_], Y_AXIS);
 102
 103   if (beam_l_arr_.size () == 1)
 104     {
 105       Beam * beam_l = beam_l_arr_[0];
 106       if (!broken_b ()
 107           && spanned_drul_[LEFT]->column_l () == beam_l->spanned_drul_[LEFT]->column_l ()
 108           && spanned_drul_[RIGHT]->column_l () == beam_l->spanned_drul_[RIGHT]->column_l ())
 109         parallel_beam_b_ = true;
 110     }
 111
 112   //  if (column_arr_.size () == 1)
 113   //    bracket_visibility_b_ = false;
 114 }
 115
 116 void
 117 Tuplet_spanner::do_substitute_element_pointer (Score_element* o, Score_element* n)
 118 {
 119   if (Note_column *onc = dynamic_cast <Note_column *> (o))
 120     column_arr_.substitute (onc, dynamic_cast<Note_column*> (n));
 121   else if (Beam * b = dynamic_cast<Beam* > (o))
 122     {
 123       beam_l_arr_.substitute (b,  dynamic_cast<Beam*> (n));
 124     }
 125 }
 126
 127 Direction
 128 Tuplet_spanner::get_default_dir () const
 129 {
 130   Direction d = UP;
 131   SCM dir_sym =get_elt_property (dir_forced_scm_sym);
 132   if (dir_sym != SCM_BOOL_F) {
 133     d= (Direction) gh_scm2int (SCM_CDR(dir_sym));
 134     if (d != CENTER)
 135       return d;
 136   }
 137
 138   for (int i=0; i < column_arr_.size (); i ++)
 139     {
 140       if (column_arr_[i]->dir () < 0)
 141         {
 142           d = DOWN;
 143           break;
 144         }
 145     }
 146   return d;
 147 }
 148
 149 void
 150 Tuplet_spanner::add_beam (Beam *b)
 151 {
 152   add_dependency (b);
 153   beam_l_arr_.push (b);
 154 }
 155
 156 void
 157 Tuplet_spanner::add_column (Note_column*n)
 158 {
 159   column_arr_.push (n);
 160   add_dependency (n);
 161 }
 162