lily/align-note-column-engraver.cc

   1 /*
   2   align-note-column-engraver.cc --  implement Align_note_column_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "grace-align-item.hh"
  12 #include "align-interface.hh"
  13 #include "note-column.hh"
  14 #include "warn.hh"
  15 #include "directional-element-interface.hh"
  16 #include "side-position-interface.hh"
  17 #include "local-key-item.hh"
  18 #include "paper-def.hh"
  19
  20 /**
  21    Catch notes, and put them in a row. Used for aligning grace notes.
  22  */
  23 class Align_note_column_engraver: public Engraver
  24 {
  25   Item * align_item_p_;
  26   Grob * now_column_l_;
  27   Grob * accidental_l_;
  28
  29   virtual void create_grobs ();
  30   virtual void start_translation_timestep ();
  31   virtual void initialize ();
  32   virtual void finalize ();
  33   virtual void acknowledge_grob (Grob_info);
  34 public:
  35   VIRTUAL_COPY_CONS (Translator);
  36   Align_note_column_engraver ();
  37 };
  38
  39 Align_note_column_engraver::Align_note_column_engraver ()
  40 {
  41   align_item_p_ =0;
  42   now_column_l_ =0;
  43   accidental_l_ =0;
  44 }
  45
  46 void
  47 Align_note_column_engraver::initialize ()
  48 {
  49   align_item_p_ = new Item (get_property ("GraceAlignment"));
  50   Grace_align_item::set_interface (align_item_p_);
  51   Side_position_interface::set_axis (align_item_p_, X_AXIS);
  52   Side_position_interface::set_direction (align_item_p_, LEFT);
  53
  54   // needed  for setting font size.
  55   announce_grob (align_item_p_, 0);
  56 }
  57
  58 void
  59 Align_note_column_engraver::finalize ()
  60 {
  61   SCM al = get_property ("graceAlignPosition");
  62   if (isdir_b (al))
  63     {
  64       Direction d = to_dir (al);
  65       Directional_element_interface::set (align_item_p_,d);
  66     }
  67
  68   typeset_grob (align_item_p_);
  69   align_item_p_ =0;
  70 }
  71
  72 void
  73 Align_note_column_engraver::acknowledge_grob (Grob_info inf)
  74 {
  75   if (Note_column::has_interface (inf.elem_l_))
  76     {
  77       now_column_l_ =inf.elem_l_;
  78     }
  79   else if (Local_key_item::has_interface (inf.elem_l_))
  80     {
  81       accidental_l_ = inf.elem_l_;
  82     }
  83 }
  84 void
  85 Align_note_column_engraver::create_grobs ()
  86 {
  87   if (now_column_l_ && accidental_l_)
  88     {
  89
  90       /* Can't inspect  width of Local_key_item, since
  91
  92          A. it may not be fully built
  93
  94          B. it has no pscore_l_ field.
  95
  96
  97          UGH UGH: separate note-spacing into  separate class,  and
  98          use that to space grace notes.
  99       */
 100       SCM grsp = get_property ("graceAccidentalSpace") ;
 101       if (gh_number_p (grsp))
 102         {
 103           /*
 104             ugh.
 105           */
 106           Real extra_space = gh_scm2double (grsp);
 107           SCM e = gh_cons (gh_double2scm (-extra_space),
 108                            gh_double2scm (0.0));
 109           now_column_l_->set_grob_property ("extra-space", e);
 110         }
 111     }
 112
 113   if (now_column_l_ && !align_item_p_)
 114     programming_error ("Align_note_column_engraver:: urg\n");
 115   else
 116
 117   if (now_column_l_)
 118     {
 119       Align_interface::add_element (align_item_p_,now_column_l_, Align_interface::alignment_callback_proc);
 120       now_column_l_ =0;
 121     }
 122 }
 123
 124 void
 125 Align_note_column_engraver::start_translation_timestep ()
 126 {
 127   now_column_l_ =0;
 128   accidental_l_ =0;
 129 }
 130
 131 ADD_THIS_TRANSLATOR (Align_note_column_engraver);
 132