lily/mark-engraver.cc

   1 /*
   2   mark-engraver.cc -- implement Mark_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2003 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include <ctype.h>
  10 #include "bar-line.hh"
  11
  12 #include "staff-symbol.hh"
  13 #include "engraver-group-engraver.hh"
  14 #include "engraver.hh"
  15 #include "lily-guile.hh"
  16 #include "paper-column.hh"
  17 #include "paper-def.hh"
  18 #include "side-position-interface.hh"
  19 #include "staff-symbol-referencer.hh"
  20 #include "item.hh"
  21 #include "group-interface.hh"
  22 #include "text-item.hh"
  23
  24 /**
  25   put stuff over or next to  bars.  Examples: bar numbers, marginal notes,
  26   rehearsal marks.
  27  */
  28 class Mark_engraver : public Engraver
  29 {
  30 public:
  31   TRANSLATOR_DECLARATIONS(Mark_engraver);
  32 protected:
  33   Item* text_;
  34
  35 protected:
  36   virtual void stop_translation_timestep ();
  37   virtual void acknowledge_grob (Grob_info);
  38   void create_items (Music*);
  39   virtual bool try_music (Music *req);
  40   virtual void start_translation_timestep ();
  41   virtual void process_music ();
  42
  43 private:
  44   Music * mark_req_;
  45 };
  46
  47
  48
  49
  50
  51 Mark_engraver::Mark_engraver ()
  52 {
  53   text_ =0;
  54   mark_req_ = 0;
  55 }
  56
  57 void
  58 Mark_engraver::acknowledge_grob (Grob_info inf)
  59 {
  60   Grob * s = inf.grob_;
  61   if (text_ && Bar_line::has_interface (s))
  62     {
  63       /*
  64       TODO: make this configurable. RehearsalMark cannot be
  65       break-aligned, since the width of the object should not be taken
  66       into alignment considerations.
  67       */
  68       text_->set_parent (s, X_AXIS);
  69     }
  70 }
  71
  72 void
  73 Mark_engraver::stop_translation_timestep ()
  74 {
  75   if (text_)
  76     {
  77       text_->set_grob_property ("side-support-elements" , get_property ("stavesFound"));
  78       typeset_grob (text_);
  79       text_ =0;
  80     }
  81 }
  82
  83
  84 void
  85 Mark_engraver::create_items (Music *rq)
  86 {
  87   if (text_)
  88     return;
  89
  90   text_ = new Item (get_property ("RehearsalMark"));
  91   announce_grob(text_, rq->self_scm());
  92 }
  93
  94
  95 void
  96 Mark_engraver::start_translation_timestep ()
  97 {
  98   mark_req_ = 0;
  99 }
 100
 101
 102 bool
 103 Mark_engraver::try_music (Music* r)
 104 {
 105   mark_req_ = r;
 106   return true;
 107 }
 108
 109
 110 /*
 111
 112   TODO: make the increment function in Scheme.
 113
 114 */
 115 void
 116 Mark_engraver::process_music ()
 117 {
 118   if (mark_req_)
 119     {
 120       create_items (mark_req_);
 121
 122       /*
 123         automatic marks.
 124        */
 125
 126       SCM m = mark_req_->get_mus_property ("label");
 127       if (Text_item::markup_p (m))
 128         {
 129           text_->set_grob_property ("text",m);
 130         }
 131       else
 132         {
 133           String t ;
 134
 135           if (!gh_string_p (m) && !gh_number_p (m))
 136             m =  get_property ("rehearsalMark");
 137
 138           if (gh_number_p (m))
 139             {
 140               int mark_count = gh_scm2int (m);
 141               t = to_string (mark_count);
 142               mark_count ++;
 143               m = gh_int2scm (mark_count);
 144             }
 145           else if (gh_string_p (m))
 146             {
 147               t = ly_scm2string (m);
 148               String next;
 149               if (t.length ())
 150                 {
 151                   char c = t[0];
 152                   c++;
 153                   t = to_string (c);
 154                 }
 155               m = scm_makfrom0str (t.to_str0 ());
 156             }
 157           else
 158             {
 159               m = gh_int2scm (1);
 160               t = to_string (1);
 161             }
 162
 163           text_->set_grob_property ("text",
 164                                     scm_makfrom0str (t.to_str0 ()));
 165
 166           SCM series = SCM_EOL;
 167           SCM family = ly_symbol2scm ("number");
 168           for (int i=0; i < t.length (); i++)
 169             {
 170               if (!isdigit (t[i]))
 171                 {
 172                   /*
 173                     This looks strange, since \mark "A"
 174                     isn't printed in bold.
 175
 176                    */
 177
 178                   // series = ly_symbol2scm ("bold");
 179                   family = ly_symbol2scm ("roman");
 180                   break;
 181                 }
 182             }
 183           if (gh_symbol_p (series))
 184             text_->set_grob_property ("font-series",  series);
 185           if (gh_symbol_p (family))
 186             text_->set_grob_property ("font-family",  family);
 187         }
 188
 189       daddy_trans_->set_property ("rehearsalMark", m);
 190     }
 191 }
 192
 193 ENTER_DESCRIPTION(Mark_engraver,
 194 /* descr */       "",
 195 /* creats*/       "RehearsalMark",
 196 /* accepts */     "mark-event",
 197 /* acks  */       "bar-line-interface",
 198 /* reads */       "rehearsalMark stavesFound",
 199 /* write */       "");