lilypond-0.1.57
[lilypond.git] / lily / note-head.cc
blob7a728aaa82e406bed48586cdd1c4528a9e53d864
1 /*
2 notehead.cc -- implement Note_head
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
9 #include "misc.hh"
10 #include "dots.hh"
11 #include "note-head.hh"
12 #include "dimen.hh"
13 #include "debug.hh"
14 #include "paper-def.hh"
15 #include "lookup.hh"
16 #include "molecule.hh"
17 #include "musical-request.hh"
20 Note_head::Note_head ()
22 x_dir_ = CENTER;
23 staff_size_i_= 8; // UGH
24 position_i_ = 0;
25 extremal_i_ = 0;
28 void
29 Note_head::do_pre_processing ()
31 // 8 ball looks the same as 4 ball:
32 if (balltype_i_ > 2)
33 balltype_i_ = 2;
34 if (dots_l_) // move into Rhythmic_head?
35 dots_l_->position_i_ = position_i_;
38 IMPLEMENT_IS_TYPE_B1(Note_head,Rhythmic_head);
41 int
42 Note_head::compare (Note_head *const &a, Note_head * const &b)
44 return a->position_i_ - b->position_i_;
47 Interval
48 Note_head::do_width () const
50 Atom a = paper ()->lookup_l()->ball (balltype_i_);
51 Interval i = a.dim_[X_AXIS];
52 i+= x_dir_ * i.length ();
53 return i;
56 Molecule*
57 Note_head::brew_molecule_p() const
59 Molecule*out = 0;
60 Paper_def *p = paper();
61 Real inter_f = p->internote_f ();
63 // ugh
64 int streepjes_i = abs (position_i_) < staff_size_i_/2
65 ? 0
66 : (abs(position_i_) - staff_size_i_/2) /2;
68 Atom s = p->lookup_l()->ball (balltype_i_);
69 out = new Molecule (Atom (s));
70 out->translate_axis (x_dir_ * s.dim_[X_AXIS].length (), X_AXIS);
72 if (streepjes_i)
74 int dir = sign (position_i_);
75 Atom streepje = p->lookup_l ()->streepje (balltype_i_);
77 int parity = (position_i_ % 2) ? 1 : 0;
80 for (int i=0; i < streepjes_i; i++)
82 Atom s = streepje;
83 s.translate_axis (-dir * inter_f * (i*2 + parity),
84 Y_AXIS);
85 out->add (s);
89 out->translate_axis (inter_f*position_i_, Y_AXIS);
90 return out;