lily/plet-spanner.cc

   1 /*
   2   plet-spanner.cc -- implement Plet_spanner
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
   7 */
   8
   9 #include "atom.hh"
  10 #include "boxes.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 "plet-spanner.hh"
  17 #include "stem.hh"
  18 #include "text-def.hh"
  19
  20 IMPLEMENT_IS_TYPE_B1 (Plet_spanner,Bow);
  21
  22 Plet_spanner::Plet_spanner ()
  23   : Bow ()
  24 {
  25   stem_l_drul_[RIGHT] =0;
  26   stem_l_drul_[LEFT] =0;
  27
  28   tdef_p_ = new Text_def;
  29   tdef_p_->align_i_ = CENTER;
  30   tdef_p_->style_str_ = "italic";
  31 }
  32
  33 Plet_spanner::~Plet_spanner ()
  34 {
  35   delete tdef_p_;
  36 }
  37
  38 Molecule*
  39 Plet_spanner::brew_molecule_p () const
  40 {
  41   Molecule* mol_p = new Molecule;
  42   Real w = width ().length ();
  43
  44   Real dy_f = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
  45
  46   // ugh
  47   Real nwc_f = (dir_ > 0 ? paper ()->note_width () : 0) * 0.8;
  48
  49   w += (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT]);
  50
  51   Atom a = paper ()->lookup_l ()->plet (dy_f, w, dir_);
  52
  53   a.translate (Offset ( (dx_f_drul_[LEFT] + nwc_f), dy_f_drul_[LEFT]));
  54   mol_p->add (a);
  55
  56   Real interline_f = paper ()->interline_f ();
  57   Real numy_f = (dir_ > 0 ? 0 : -interline_f / 2);
  58   Real numx_f = interline_f / 1.5;
  59   Atom num (tdef_p_->get_atom (paper (), CENTER));
  60   num.translate (Offset (width ().length ()/ 2 + nwc_f - numx_f
  61                          + dx_f_drul_[LEFT],
  62                          dy_f_drul_[LEFT] + dy_f / width ().length () / 2
  63                          + dir_ * interline_f / 2 + numy_f));
  64   mol_p->add (num);
  65
  66   return mol_p;
  67 }
  68
  69 void
  70 Plet_spanner::do_add_processing ()
  71 {
  72   if (! (stem_l_drul_[LEFT] && stem_l_drul_[RIGHT]))
  73     warning (_ ("Lonely plet.. "));
  74
  75   Direction d = LEFT;
  76   Drul_array<Stem *> new_stem_drul = stem_l_drul_;
  77   do {
  78     if (!stem_l_drul_[d])
  79       new_stem_drul[d] = stem_l_drul_[(Direction)-d];
  80   } while ( (d *= -1) != LEFT);
  81   stem_l_drul_ = new_stem_drul;
  82 }
  83
  84 void
  85 Plet_spanner::do_post_processing ()
  86 {
  87   Real interline_f = paper ()->interline_f ();
  88   assert (stem_l_drul_[LEFT] || stem_l_drul_[RIGHT]);
  89
  90   Direction d = LEFT;
  91   do
  92     {
  93       dy_f_drul_[d] = .5 * interline_f * (stem_l_drul_[d]
  94                                           ? stem_l_drul_[d]->stem_end_f ()
  95                                           : stem_l_drul_[(Direction)-d]->stem_end_f ());
  96       dy_f_drul_[d] += dir_ * interline_f;
  97     }
  98   while ( (d *= -1) != LEFT);
  99 }
 100
 101 void
 102 Plet_spanner::do_substitute_dependency (Score_elem* o, Score_elem* n)
 103 {
 104   Stem* new_l = n ? (Stem*)n->item () : 0;
 105   if (o->item () == stem_l_drul_[LEFT])
 106     stem_l_drul_[LEFT] = new_l;
 107   else if (o->item () == stem_l_drul_[RIGHT])
 108     stem_l_drul_[RIGHT] = new_l;
 109 }
 110
 111 void
 112 Plet_spanner::set_default_dir ()
 113 {
 114   Real m = (stem_l_drul_[LEFT]->stem_end_f ()
 115             + stem_l_drul_[RIGHT]->stem_end_f ()) / 2;
 116   dir_ =  (m < 0) ? DOWN : UP;
 117 }
 118
 119 void
 120 Plet_spanner::set_stem (Direction d, Stem* stem_l)
 121 {
 122   assert (!stem_l_drul_[d]);
 123   stem_l_drul_[d] = stem_l;
 124   set_bounds (d, stem_l);
 125
 126   add_dependency (stem_l);
 127 }
 128