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--1998 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include "atom.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 "plet-spanner.hh"
  17 #include "stem.hh"
  18 #include "text-def.hh"
  19
  20
  21 /*
  22   UHGUGH THIS IS BROKEN! do not derive from Bow
  23  */
  24 IMPLEMENT_IS_TYPE_B1 (Plet_spanner,Bow);
  25
  26 Plet_spanner::Plet_spanner ()
  27   : Bow ()
  28 {
  29   stem_l_drul_[RIGHT] =0;
  30   stem_l_drul_[LEFT] =0;
  31   visibility_i_ = 3;
  32
  33   tdef_p_ = new Text_def;
  34   tdef_p_->align_dir_ = CENTER;
  35   tdef_p_->style_str_ = "italic";
  36 }
  37
  38 Plet_spanner::Plet_spanner (Plet_spanner const& c)
  39   : Bow (c)
  40 {
  41   tdef_p_ = new Text_def (*c.tdef_p_);
  42   stem_l_drul_ = c.stem_l_drul_;
  43   visibility_i_ = c.visibility_i_;
  44 }
  45
  46 Plet_spanner::~Plet_spanner ()
  47 {
  48   delete tdef_p_;
  49 }
  50
  51 Molecule*
  52 Plet_spanner::brew_molecule_p () const
  53 {
  54   Molecule* mol_p = new Molecule;
  55
  56   Real w = width ().length ();
  57
  58   Real dy_f = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
  59
  60   w += (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT]);
  61
  62   Atom a = lookup_l ()->plet (dy_f, w, dir_);
  63
  64   a.translate (Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]));
  65
  66   if (visibility_i_ >= 2)
  67       mol_p->add_atom (a);
  68
  69   Real interline_f = paper ()->interline_f ();
  70   Real numy_f = (dir_ > 0 ? 0 : -interline_f) + dir_ * interline_f / 2;
  71   Atom num (tdef_p_->get_atom (paper (), CENTER));
  72   num.translate (Offset (width ().length () / 1.8 + dx_f_drul_[LEFT],
  73     dy_f_drul_[LEFT] + dy_f / 2 + numy_f));
  74
  75   if (visibility_i_ >= 1)
  76     mol_p->add_atom (num);
  77
  78   return mol_p;
  79 }
  80
  81 void
  82 Plet_spanner::do_add_processing ()
  83 {
  84   if (! (stem_l_drul_[LEFT] && stem_l_drul_[RIGHT]))
  85     warning (_ ("lonely plet"));
  86
  87   Direction d = LEFT;
  88   Drul_array<Stem *> new_stem_drul = stem_l_drul_;
  89   do {
  90     if (!stem_l_drul_[d])
  91       new_stem_drul[d] = stem_l_drul_[(Direction)-d];
  92   } while (flip(&d) != LEFT);
  93   stem_l_drul_ = new_stem_drul;
  94 }
  95
  96 void
  97 Plet_spanner::do_post_processing ()
  98 {
  99   Real interline_f = paper ()->interline_f ();
 100   Real nh_f = interline_f / 2;
 101   assert (stem_l_drul_[LEFT] || stem_l_drul_[RIGHT]);
 102
 103   // ugh
 104   Real nw_f = paper ()->note_width () * 0.8;
 105
 106   Direction d = LEFT;
 107   do
 108     {
 109       Stem* s = stem_l_drul_[d] ? stem_l_drul_[d] : stem_l_drul_[(Direction)-d];
 110
 111       dy_f_drul_[d] = dir_ == s->get_dir () ? s->stem_end_f ()
 112           : s->stem_begin_f () + dir_ * nh_f / 2;
 113       dy_f_drul_[d] *= .5 * interline_f;
 114       dy_f_drul_[d] += dir_ * interline_f;
 115       if (d == RIGHT)
 116         dx_f_drul_[d] = nw_f;
 117     }
 118   while (flip(&d) != LEFT);
 119   do {
 120     if (stem_l_drul_[d]->empty_b ())
 121       {
 122         Direction u = d;
 123         flip (&u);
 124         dy_f_drul_[d] = dy_f_drul_[u]; // ughugh \[/3 r8 c8 r8 \]/1
 125       }
 126     }
 127   while (flip(&d) != LEFT);
 128 }
 129
 130 void
 131 Plet_spanner::do_substitute_dependency (Score_element* o, Score_element* n)
 132 {
 133   Stem* new_l = n ? dynamic_cast<Stem *> (n) : 0;
 134   if (dynamic_cast <Item *> (o) == stem_l_drul_[LEFT])
 135     stem_l_drul_[LEFT] = new_l;
 136   else if (dynamic_cast <Item *> (o) == stem_l_drul_[RIGHT])
 137     stem_l_drul_[RIGHT] = new_l;
 138 }
 139
 140 void
 141 Plet_spanner::set_default_dir ()
 142 {
 143   Real m = (stem_l_drul_[LEFT]->stem_end_f ()
 144             + stem_l_drul_[RIGHT]->stem_end_f ()) / 2;
 145   dir_ =  (m < 0) ? DOWN : UP;
 146 }
 147
 148 void
 149 Plet_spanner::set_stem (Direction d, Stem* stem_l)
 150 {
 151   assert (!stem_l_drul_[d]);
 152   stem_l_drul_[d] = stem_l;
 153   set_bounds (d, stem_l);
 154
 155   add_dependency (stem_l);
 156 }
 157