lily/local-key-item.cc

   1 /*
   2   local-key-item.cc -- implement Local_key_item, Musical_pitch
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8 #include "local-key-item.hh"
   9 #include "molecule.hh"
  10 #include "staff-symbol-referencer.hh"
  11
  12 #include "lookup.hh"
  13 #include "paper-def.hh"
  14 #include "musical-request.hh"
  15 #include "note-head.hh"
  16 #include "misc.hh"
  17
  18 Local_key_item::Local_key_item ()
  19 {
  20 }
  21
  22 void
  23 Local_key_item::add_pitch (Musical_pitch p, bool cautionary, bool natural)
  24 {
  25   for (int i=0; i< accidental_arr_.size(); i++)
  26     if (!Musical_pitch::compare (p, accidental_arr_[i].pitch_))
  27       return;
  28           /* maybe natural (and cautionary) should be modif. nonetheless? */
  29
  30   Local_key_cautionary_tuple t;
  31   t.pitch_ = p;
  32   t.cautionary_b_ = cautionary;
  33   t.natural_b_ = natural;
  34   accidental_arr_.push (t);
  35 }
  36
  37
  38
  39 void
  40 Local_key_item::do_pre_processing()
  41 {
  42   accidental_arr_.sort (Local_key_cautionary_tuple::compare);
  43   Note_head_side::do_pre_processing ();
  44 }
  45
  46 Molecule
  47 Local_key_item::accidental (int j, bool cautionary, bool natural) const
  48 {
  49   Molecule m (lookup_l ()->afm_find (String ("accidentals-") + to_str (j)));
  50   if (natural)
  51     {
  52           Molecule prefix = lookup_l ()->afm_find (String ("accidentals-0"));
  53           m.add_at_edge(X_AXIS, LEFT, Molecule(prefix), 0);
  54         }
  55   if (cautionary)
  56     {
  57       Molecule open = lookup_l ()->afm_find (String ("accidentals-("));
  58       Molecule close = lookup_l ()->afm_find (String ("accidentals-)"));
  59       m.add_at_edge(X_AXIS, LEFT, Molecule(open), 0);
  60       m.add_at_edge(X_AXIS, RIGHT, Molecule(close), 0);
  61     }
  62
  63   return m;
  64 }
  65
  66 Molecule*
  67 Local_key_item::do_brew_molecule_p() const
  68 {
  69   Molecule*output = new Molecule;
  70   Staff_symbol_referencer_interface si (this);
  71   Real note_distance = si.staff_space ()/2;
  72   Molecule *octave_mol_p = 0;
  73   int lastoct = -100;
  74
  75   for  (int i = 0; i <  accidental_arr_.size(); i++)
  76     {
  77       Musical_pitch p (accidental_arr_[i].pitch_);
  78       // do one octave
  79       if (p.octave_i_ != lastoct)
  80         {
  81           if (octave_mol_p)
  82             {
  83               Real dy =lastoct*7* note_distance;
  84               octave_mol_p->translate_axis (dy, Y_AXIS);
  85               output->add_molecule (*octave_mol_p);
  86               delete octave_mol_p;
  87             }
  88           octave_mol_p= new Molecule;
  89         }
  90
  91       lastoct = p.octave_i_;
  92
  93       SCM c0 =  get_elt_property ("c0-position");
  94       Real dy = (gh_number_p (c0) ? gh_scm2int (c0) : 0 + p.notename_i_)
  95         * note_distance;
  96
  97       Molecule m (accidental (p.accidental_i_,
  98                               accidental_arr_[i].cautionary_b_,
  99                               accidental_arr_[i].natural_b_));
 100
 101       m.translate_axis (dy, Y_AXIS);
 102       octave_mol_p->add_at_edge (X_AXIS, RIGHT, m, 0);
 103     }
 104
 105   if (octave_mol_p)
 106     {
 107       Real dy =lastoct*7*note_distance;
 108       octave_mol_p->translate_axis (dy, Y_AXIS);
 109       output->add_molecule (*octave_mol_p);
 110       delete octave_mol_p;
 111     }
 112
 113  if (accidental_arr_.size())
 114     {
 115       Drul_array<SCM> pads;
 116
 117       /*
 118         Use a cons?
 119        */
 120       pads[RIGHT] = get_elt_property ("right-padding");
 121       pads[LEFT] = get_elt_property ("left-padding");
 122
 123       Direction d = LEFT;
 124       do {
 125         if (!gh_number_p (pads[d]))
 126           continue;
 127
 128         Box b(Interval (0, gh_scm2double (pads[d]) * note_distance),
 129               Interval (0,0));
 130         Molecule m (lookup_l ()->fill (b));
 131         output->add_at_edge (X_AXIS, d, m, 0);
 132       } while ( flip (&d)!= LEFT);
 133     }
 134
 135   return output;
 136 }
 137