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 #include "lookup.hh"
  12 #include "paper-def.hh"
  13 #include "musical-request.hh"
  14 #include "note-head.hh"
  15 #include "misc.hh"
  16
  17
  18 void
  19 Local_key_item::add_pitch (Musical_pitch p, bool cautionary, bool natural)
  20 {
  21   for (int i=0; i< accidental_arr_.size(); i++)
  22     if (!Musical_pitch::compare (p, accidental_arr_[i].pitch_))
  23       return;
  24           /* maybe natural (and cautionary) should be modif. nonetheless? */
  25
  26   Local_key_cautionary_tuple t;
  27   t.pitch_ = p;
  28   t.cautionary_b_ = cautionary;
  29   t.natural_b_ = natural;
  30   accidental_arr_.push (t);
  31 }
  32
  33
  34
  35 void
  36 Local_key_item::before_line_breaking ()
  37 {
  38   accidental_arr_.sort (Local_key_cautionary_tuple::compare);
  39 }
  40
  41 Molecule
  42 Local_key_item::accidental (int j, bool cautionary, bool natural) const
  43 {
  44   Molecule m (lookup_l ()->afm_find (String ("accidentals-") + to_str (j)));
  45   if (natural)
  46     {
  47       Molecule prefix = lookup_l ()->afm_find (String ("accidentals-0"));
  48       m.add_at_edge(X_AXIS, LEFT, Molecule(prefix), 0);
  49     }
  50   if (cautionary)
  51     {
  52       Molecule open = lookup_l ()->afm_find (String ("accidentals-("));
  53       Molecule close = lookup_l ()->afm_find (String ("accidentals-)"));
  54       m.add_at_edge(X_AXIS, LEFT, Molecule(open), 0);
  55       m.add_at_edge(X_AXIS, RIGHT, Molecule(close), 0);
  56     }
  57
  58   return m;
  59 }
  60
  61 /*
  62   UGH. clean me up
  63  */
  64 MAKE_SCHEME_SCORE_ELEMENT_CALLBACKS(Local_key_item)
  65 Molecule
  66 Local_key_item::do_brew_molecule () const
  67 {
  68   Molecule mol;
  69   Staff_symbol_referencer_interface si (this);
  70   Real note_distance = si.staff_space ()/2;
  71   Molecule octave_mol;
  72   bool oct_b = false;
  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 (oct_b)
  82             {
  83               Real dy =lastoct*7* note_distance;
  84               octave_mol.translate_axis (dy, Y_AXIS);
  85               mol.add_molecule (octave_mol);
  86               octave_mol = Molecule ();
  87             }
  88           oct_b = true;
  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.add_at_edge (X_AXIS, RIGHT, m, 0);
 103     }
 104
 105   if (oct_b)
 106     {
 107       Real dy =lastoct*7*note_distance;
 108       octave_mol.translate_axis (dy, Y_AXIS);
 109       mol.add_molecule (octave_mol);
 110       octave_mol = Molecule ();
 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
 124       // unused ?
 125       Direction d = LEFT;
 126       do {
 127         if (!gh_number_p (pads[d]))
 128           continue;
 129
 130         Box b(Interval (0, gh_scm2double (pads[d]) * note_distance),
 131               Interval (0,0));
 132         Molecule m (lookup_l ()->blank (b));
 133         mol.add_at_edge (X_AXIS, d, m, 0);
 134       } while ( flip (&d)!= LEFT);
 135     }
 136
 137   return mol;
 138 }
 139
 140 Local_key_item::Local_key_item (SCM s)
 141   : Item (s)
 142 {
 143
 144 }