X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscript-engraver.cc;h=afeb0fe621cda7b452e06d0c3278ee31c16cb2d5;hb=f68dfcc7aeb65b0b4054edbb2d9861e14d5d533e;hp=19eddfed095219fbed0881b5d4a3f2e33b002908;hpb=b1323f33e9aa4b9eea05eefb8755c907d4d762d4;p=lilypond.git diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc index 19eddfed09..afeb0fe621 100644 --- a/lily/script-engraver.cc +++ b/lily/script-engraver.cc @@ -1,242 +1,247 @@ /* - script-engraver.cc -- implement Script_engraver + script-engraver.cc -- engrave Scripts: Articulations. - (c) 1997--2004 Han-Wen Nienhuys + source file of the GNU LilyPond music typesetter + + (c) 1997--2005 Han-Wen Nienhuys */ -#include "script.hh" -#include "side-position-interface.hh" -#include "event.hh" -#include "stem.hh" -#include "rhythmic-head.hh" +#include "context.hh" +#include "directional-element-interface.hh" #include "engraver.hh" +#include "slur.hh" #include "note-column.hh" -#include "context.hh" - +#include "paper-column.hh" +#include "rhythmic-head.hh" +#include "script-interface.hh" +#include "side-position-interface.hh" +#include "staff-symbol-referencer.hh" +#include "stem.hh" #include "warn.hh" struct Script_tuple { Music *event_; - Grob * script_; - SCM description_; + Grob *script_; + bool follow_into_staff_; Script_tuple () { + follow_into_staff_ = false; event_ = 0; script_ = 0; - description_ = SCM_EOL; } }; class Script_engraver : public Engraver { Array scripts_; -public: - TRANSLATOR_DECLARATIONS(Script_engraver); + Spanner *slur_; + protected: - virtual bool try_music (Music*); + virtual bool try_music (Music *); virtual void stop_translation_timestep (); virtual void process_music (); virtual void acknowledge_grob (Grob_info); + +public: + TRANSLATOR_DECLARATIONS (Script_engraver); }; +Script_engraver::Script_engraver () +{ + slur_ = 0; +} + bool -Script_engraver::try_music (Music *r) +Script_engraver::try_music (Music *m) { - if (r->is_mus_type ("articulation-event")) + if (m->is_mus_type ("articulation-event")) { - /* - Discard double articulations. - This is necessary for part-combining. - */ - for (int j = 0; j < scripts_.size (); j++) - if (gh_equal_p (scripts_[j]. event_->get_property ("articulation-type"), - r->get_property ("articulation-type") - )) + /* Discard double articulations for part-combining. */ + int script_count = scripts_.size (); + for (int i = 0; i < script_count; i++) + if (ly_c_equal_p (scripts_[i].event_ + ->get_property ("articulation-type"), + m->get_property ("articulation-type"))) return true; - + Script_tuple t; - t.event_ =r; + t.event_ = m; scripts_.push (t); - return true; } return false; } void -copy_property (Grob * g , SCM sym, SCM alist) +copy_property (Grob *g, SCM sym, SCM alist) { if (g->internal_get_property (sym) == SCM_EOL) { - SCM entry = scm_assoc (sym,alist); - if (gh_pair_p (entry)) - { - g->internal_set_property (sym, gh_cdr (entry)); - } + SCM entry = scm_assoc (sym, alist); + if (scm_is_pair (entry)) + g->internal_set_property (sym, scm_cdr (entry)); } } - -/* - We add the properties, one by one for each Script. We could save a - little space by tacking the props onto the Script grob (i.e. make - ScriptStaccato , ScriptMarcato, etc. ) - */ -void make_script_from_event (Grob *p, - SCM * descr, Context *tg, - SCM art_type, - int index) +/* Add the properties, one by one for each Script. A little memory + could be saved by tacking the props onto the Script grob (i.e. make + ScriptStaccato , ScriptMarcato, etc. ). +*/ +void make_script_from_event (Grob *p, bool *follow, Context *tg, + SCM art_type, int index) { SCM alist = tg->get_property ("scriptDefinitions"); SCM art = scm_assoc (art_type, alist); if (art == SCM_BOOL_F) { - warning (_("Don't know how to interpret articulation:")); - warning (_("Scheme encoding: ")); + /* FIXME: */ + warning (_ ("don't know how to interpret articulation: ")); + warning (_ ("scheme encoding: ")); scm_write (art_type, scm_current_error_port ()); - return ; + message (""); + return; } - art = gh_cdr (art); - - *descr = art; + art = scm_cdr (art); + SCM follow_scm = scm_assoc (ly_symbol2scm ("follow-into-staff"), + art); - copy_property (p, ly_symbol2scm ("script-stencil"), art); - copy_property (p, ly_symbol2scm ("direction"), art); - copy_property (p, ly_symbol2scm ("side-relative-direction"), art); + *follow = scm_is_pair (follow_scm) && to_boolean (scm_cdr (follow_scm)); + bool priority_found = false; - int prio =0; - SCM sprio = scm_assoc (ly_symbol2scm ("script-priority"), art); - if (gh_pair_p (sprio)) - prio = gh_scm2int (gh_cdr (sprio)); + for (SCM s = art; scm_is_pair (s); s = scm_cdr (s)) + { + SCM sym = scm_caar (s); + SCM type = scm_object_property (sym, ly_symbol2scm ("backend-type?")); + if (!ly_c_procedure_p (type)) + continue; + + SCM val = scm_cdar (s); + if (sym == ly_symbol2scm ("script-priority")) + { + priority_found = true; + /* Make sure they're in order of user input by adding index i. + Don't use the direction in this priority. Smaller means closer + to the head. */ + int prio = scm_to_int (val) + index; - /* - Make sure they're in order of user input by adding index i. - Don't use the direction in this priority. Smaller means closer - to the head. - */ - prio += index; + val = scm_int2num (prio); + } + if (p->internal_get_property (sym) == SCM_EOL) + p->internal_set_property (sym, val); + } + + if (!priority_found) + { + p->set_property ("script-priority", + scm_int2num (index)); + } Side_position_interface::set_axis (p, Y_AXIS); - p->set_property ("script-priority", gh_int2scm (prio)); } void Script_engraver::process_music () { - for (int i=0; i < scripts_.size (); i++) + int script_count = scripts_.size (); + for (int i = 0; i < script_count; i++) { - Music* l=scripts_[i].event_; + Music *m = scripts_[i].event_; - Grob * p = make_item ("Script"); + Grob *p = make_item ("Script", m->self_scm ()); - make_script_from_event (p, &scripts_[i].description_, daddy_context_, - l->get_property ("articulation-type"), + make_script_from_event (p, &scripts_[i].follow_into_staff_, context (), + m->get_property ("articulation-type"), i); scripts_[i].script_ = p; - - SCM force_dir = l->get_property ("direction"); + SCM force_dir = m->get_property ("direction"); if (is_direction (force_dir) && to_dir (force_dir)) p->set_property ("direction", force_dir); - - if (p) - announce_grob (p, l->self_scm()); } } void -Script_engraver::acknowledge_grob (Grob_info inf) +Script_engraver::acknowledge_grob (Grob_info info) { - if (Stem::has_interface (inf.grob_)) + int script_count = scripts_.size (); + if (Stem::has_interface (info.grob_)) { - for (int i=0; i < scripts_.size (); i++) + for (int i = 0; i < script_count; i++) { - Grob*e = scripts_[i].script_; + Grob *e = scripts_[i].script_; if (to_dir (e->get_property ("side-relative-direction"))) - e->set_property ("direction-source", inf.grob_->self_scm ()); + e->set_property ("direction-source", info.grob_->self_scm ()); - /* - add dep ? - */ - e->add_dependency (inf.grob_); - Side_position_interface::add_support (e, inf.grob_); + /* FIXME: add dependency */ + e->add_dependency (info.grob_); + Side_position_interface::add_support (e, info.grob_); } } - else if (Rhythmic_head::has_interface (inf.grob_)) + else if (Rhythmic_head::has_interface (info.grob_) + && info.music_cause ()) { - for (int i=0; i < scripts_.size (); i++) + for (int i = 0; i < script_count; i++) { Grob *e = scripts_[i].script_; - + if (Side_position_interface::get_axis (e) == X_AXIS && !e->get_parent (Y_AXIS)) { - e->set_parent (inf.grob_, Y_AXIS); - e->add_dependency (inf.grob_); // ?? + e->set_parent (info.grob_, Y_AXIS); + e->add_dependency (info.grob_); } - Side_position_interface::add_support (e,inf.grob_); + Side_position_interface::add_support (e, info.grob_); } } - else if (Note_column::has_interface (inf.grob_)) + else if (Note_column::has_interface (info.grob_)) { + /* Make note column the parent of the script. That is not + correct, but due to seconds in a chord, noteheads may be + swapped around horizontally. - /* - We make note column the parent of the script. That's not - correct, but due to seconds in a chord, noteheads may be - swapped around horizontally. We don't know which note head to - put it on, so we postpone this decision to - Script_interface::before_line_breaking (). - - */ - for (int i=0; i < scripts_.size (); i++) + As the note head to put it on is not known now, postpone this + decision to Script_interface::before_line_breaking (). */ + for (int i = 0; i < script_count; i++) { Grob *e = scripts_[i].script_; - - if (!e->get_parent (X_AXIS) && - Side_position_interface::get_axis (e) == Y_AXIS) - { - e->set_parent (inf.grob_, X_AXIS); - } + + if (!e->get_parent (X_AXIS) + && Side_position_interface::get_axis (e) == Y_AXIS) + e->set_parent (info.grob_, X_AXIS); } } + else if (Slur::has_interface (info.grob_)) + slur_ = dynamic_cast (info.grob_); } void Script_engraver::stop_translation_timestep () { - for (int i=0; i < scripts_.size (); i++) - { - if (!scripts_[i].script_) - continue; - - Grob * sc = scripts_[i].script_; + int script_count = scripts_.size (); + for (int i = 0; i < script_count; i++) + if (scripts_[i].follow_into_staff_) + { + Grob *sc = scripts_[i].script_; + sc->add_offset_callback (Side_position_interface + ::quantised_position_proc, Y_AXIS); + sc->set_property ("staff-padding", SCM_EOL); + } - SCM follow = scm_assoc (ly_symbol2scm ("follow-into-staff"), scripts_[i].description_); - if (gh_pair_p (follow) && to_boolean (gh_cdr (follow))) - { - sc->add_offset_callback (Side_position_interface::quantised_position_proc, Y_AXIS); - sc->set_property ("staff-padding", SCM_EOL); - } - typeset_grob (sc); - } scripts_.clear (); } - - -Script_engraver::Script_engraver(){} - -ENTER_DESCRIPTION(Script_engraver, -/* descr */ "Handles note scripted articulations.", -/* creats*/ "Script", -/* accepts */ "script-event articulation-event", -/* acks */ "stem-interface rhythmic-head-interface note-column-interface", -/* reads */ "scriptDefinitions", -/* write */ ""); +ADD_TRANSLATOR (Script_engraver, + /* descr */ "Handles note scripted articulations.", + /* creats*/ "Script", + /* accepts */ "script-event articulation-event", + /* acks */ "stem-interface rhythmic-head-interface " + "slur-interface note-column-interface", + /* reads */ "scriptDefinitions", + /* write */ "");