X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftext-engraver.cc;h=6bbcdc379479006055ef417679bc7cac439c095c;hb=0a5768354b85264bc474baff8752f2c3e205cbe2;hp=56f7b3eae1bcd2267509af96d42efd29cf4ad8a1;hpb=163503e56aa0c03d41d37fd083bdb96a6a473a11;p=lilypond.git diff --git a/lily/text-engraver.cc b/lily/text-engraver.cc index 56f7b3eae1..6bbcdc3794 100644 --- a/lily/text-engraver.cc +++ b/lily/text-engraver.cc @@ -1,132 +1,133 @@ -/* - text-engraver.cc -- implement Text_engraver - - source file of the GNU LilyPond music typesetter - - (c) 1998--1999 Han-Wen Nienhuys - - */ -#include "dimension-cache.hh" +/* + This file is part of LilyPond, the GNU music typesetter. + Copyright (C) 1998--2015 Han-Wen Nienhuys + + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ + +#include "directional-element-interface.hh" #include "engraver.hh" +#include "item.hh" +#include "note-column.hh" +#include "pointer-group-interface.hh" #include "side-position-interface.hh" -#include "text-item.hh" -#include "musical-request.hh" -#include "note-head.hh" -#include "stem.hh" -#include "staff-symbol.hh" +#include "stream-event.hh" +#include "text-interface.hh" + +#include "translator.icc" /** typeset directions that are plain text. - */ +*/ + class Text_engraver : public Engraver { - Link_array reqs_; - Link_array texts_; + vector evs_; + vector scripts_; public: - - VIRTUAL_COPY_CONS(Translator); + TRANSLATOR_DECLARATIONS (Text_engraver); protected: - virtual bool do_try_music (Music* m); - virtual void do_pre_move_processing (); - virtual void do_post_move_processing (); - virtual void do_process_requests (); - virtual void acknowledge_element (Score_element_info); -}; + void stop_translation_timestep (); + void process_music (); + void acknowledge_note_column (Grob_info); + void listen_text_script (Stream_event *); +}; -bool -Text_engraver::do_try_music (Music *m) +void +Text_engraver::listen_text_script (Stream_event *ev) { - if (Text_script_req *r = dynamic_cast (m)) - { - reqs_.push (r); - return true; - } - return false; + evs_.push_back (ev); } - void -Text_engraver::acknowledge_element (Score_element_info i) +Text_engraver::process_music () { - if (Note_head *n = dynamic_cast (i.elem_l_)) - { - for (int i=0; i < texts_.size (); i++) - { - Side_position_interface st (texts_[i]); - st.add_support (n); - if (st.get_axis( ) == X_AXIS - && !texts_[i]->parent_l (Y_AXIS)) - texts_[i]->set_parent (n, Y_AXIS); - } - } - if (Stem *n = dynamic_cast (i.elem_l_)) + for (vsize i = 0; i < evs_.size (); i++) { - for (int i=0; i < texts_.size (); i++) - { - Side_position_interface st(texts_[i]); - st.add_support (n); - } + Stream_event *ev = evs_[i]; + + Item *script = make_item ("TextScript", ev->self_scm ()); + scripts_.push_back (script); + + int priority = robust_scm2int (script->get_property ("script-priority"), + 200); + + /* see script-engraver.cc */ + priority += i; + + script->set_property ("script-priority", scm_from_int (priority)); + + Direction dir = to_dir (ev->get_property ("direction")); + if (dir) + set_grob_direction (script, dir); + + SCM mark = ev->get_property ("text"); + + script->set_property ("text", mark); } } void -Text_engraver::do_process_requests () +Text_engraver::acknowledge_note_column (Grob_info info) { - for (int i=0; i < reqs_.size (); i++) + // Make note column (or rest, if there are no heads) the parent of the script. + extract_grob_set (info.grob (), "note-heads", heads); + Grob *x_parent = (heads.size () + ? info.grob () + : unsmob (info.grob ()->get_object ("rest"))); + + for (vsize i = 0; i < scripts_.size (); i++) { - Text_script_req * r = reqs_[i]; - - Text_item *text = new Text_item; - Side_position_interface stafy (text); - - SCM axisprop = get_property ("scriptHorizontal",0); - if (gh_boolean_p (axisprop) && gh_scm2bool (axisprop)) - { - stafy.set_axis (X_AXIS); - // text->set_parent (ss, Y_AXIS); - } - else - stafy.set_axis (Y_AXIS); - - text->set_elt_property ("script-priority", - gh_int2scm (200)); - - if (r->get_direction ()) - stafy.set_direction (r->get_direction ()); - - text->text_str_ = r->text_str_; - - if (r->style_str_.length_i ()) - text->set_elt_property ("style", ly_str02scm (r->style_str_.ch_C())); - - SCM empty = get_property ("textEmptyDimension", 0); - if (gh_boolean_p (empty) && gh_scm2bool (empty)) - { - text->set_empty (X_AXIS); - } - - announce_element (Score_element_info (text, r)); - texts_.push (text); + Grob *el = scripts_[i]; + + if (el && !el->get_parent (X_AXIS) && x_parent) + el->set_parent (x_parent, X_AXIS); } } void -Text_engraver::do_pre_move_processing () +Text_engraver::stop_translation_timestep () +{ + evs_.clear (); + scripts_.clear (); +} + +Text_engraver::Text_engraver (Context *c) + : Engraver (c) { - for (int i=0; i < texts_.size (); i++) - { - typeset_element (texts_[i]); - } - texts_.clear (); } + void -Text_engraver::do_post_move_processing () +Text_engraver::boot () { - reqs_.clear (); + ADD_LISTENER (Text_engraver, text_script); + ADD_ACKNOWLEDGER (Text_engraver, note_column); } -ADD_THIS_TRANSLATOR(Text_engraver); +ADD_TRANSLATOR (Text_engraver, + /* doc */ + "Create text scripts.", + + /* create */ + "TextScript ", + + /* read */ + "", + /* write */ + "" + );