2 script.cc -- implement Script
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
9 #include "musical-request.hh"
10 #include "paper-def.hh"
13 #include "molecule.hh"
19 Script::set_stem(Stem*st_l)
26 Script::Script(Script_req* rq)
28 specs_l_ = rq->scriptdef_p_;
29 inside_staff_b_ = specs_l_->inside_b();
35 Script::set_default_dir()
37 int s_i=specs_l_->rel_stem_dir_i();
39 dir_i_ = stem_l_->dir_i_ * s_i;
41 dir_i_ =specs_l_->staff_dir_i();
46 Script::set_default_index()
48 pos_i_ = get_position_i(specs_l_->get_atom(paper(), dir_i_).extent().y);
52 Script::do_width() const
54 return specs_l_->get_atom(paper(), dir_i_).extent().x;
58 Script::do_pre_processing()
66 Script::do_post_processing()
72 Script::brew_molecule_p() const
74 Real dy = paper()->internote_f();
76 Molecule*out = new Molecule(specs_l_->get_atom(paper(), dir_i_));
77 out->translate_y(dy * pos_i_);
81 IMPLEMENT_STATIC_NAME(Script);
82 IMPLEMENT_IS_TYPE_B2(Script,Item,Staff_side);
85 Script::compare(Script *const&l1, Script *const&l2)
87 return l1->specs_l_->priority_i() - l2->specs_l_->priority_i();