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         Ugh. Figure out how to do this right at beginning of line, (without
  65         creating class Bar_script : public Item).
  66       */
  67       text_->set_parent (s, X_AXIS);
  68     }
  69 }
  70
  71 void
  72 Mark_engraver::stop_translation_timestep ()
  73 {
  74   if (text_)
  75     {
  76       text_->set_grob_property ("side-support-elements" , get_property ("stavesFound"));
  77       typeset_grob (text_);
  78       text_ =0;
  79     }
  80 }
  81
  82
  83 void
  84 Mark_engraver::create_items (Music *rq)
  85 {
  86   if (text_)
  87     return;
  88
  89   SCM s = get_property ("RehearsalMark");
  90   text_ = new Item (s);
  91
  92
  93   announce_grob(text_, rq->self_scm());
  94 }
  95
  96
  97 void
  98 Mark_engraver::start_translation_timestep ()
  99 {
 100   mark_req_ = 0;
 101 }
 102
 103
 104 bool
 105 Mark_engraver::try_music (Music* r)
 106 {
 107   mark_req_ = r;
 108   return true;
 109 }
 110
 111
 112 /*
 113
 114   TODO: make the increment function in Scheme.
 115
 116 */
 117 void
 118 Mark_engraver::process_music ()
 119 {
 120   if (mark_req_)
 121     {
 122       create_items (mark_req_);
 123
 124       String t;
 125
 126       /*
 127         automatic marks.
 128        */
 129
 130       SCM m = mark_req_->get_mus_property ("label");
 131       if (new_markup_p (m))
 132         {
 133           text_->set_grob_property ("text",m);
 134           text_->set_grob_property ("molecule-callback", new_markup_brewer ());
 135         }
 136       if (gh_pair_p (m)) // markup text
 137         text_->set_grob_property ("text",m);
 138       else
 139         {
 140           if (!gh_string_p (m) && !gh_number_p (m))
 141             m =  get_property ("rehearsalMark");
 142
 143           if (gh_number_p (m))
 144             {
 145               int mark_count = gh_scm2int (m);
 146               t = to_string (mark_count);
 147               mark_count ++;
 148               m = gh_int2scm (mark_count);
 149             }
 150           else if (gh_string_p (m))
 151             {
 152               t = ly_scm2string (m);
 153               String next;
 154               if (t.length ())
 155                 {
 156                   char c = t[0];
 157                   c++;
 158                   next = to_string (c);
 159                 }
 160               m = scm_makfrom0str (next.to_str0 ());
 161             }
 162           else
 163             {
 164               m = gh_int2scm (1);
 165             }
 166
 167           daddy_trans_->set_property ("rehearsalMark", m);
 168
 169           text_->set_grob_property ("text",
 170                                       scm_makfrom0str (t.to_str0 ()));
 171
 172           String style = "mark-number";
 173           for (int i=0; i < t.length (); i++)
 174             {
 175               if (!isdigit (t[i]))
 176                 {
 177                   style = "mark-letter";
 178                   break;
 179                 }
 180             }
 181           SCM st = ly_symbol2scm (style.to_str0 ());
 182           text_->set_grob_property ("font-style",  st);
 183         }
 184
 185     }
 186 }
 187
 188 ENTER_DESCRIPTION(Mark_engraver,
 189 /* descr */       "",
 190 /* creats*/       "RehearsalMark",
 191 /* accepts */     "mark-event",
 192 /* acks  */       "bar-line-interface",
 193 /* reads */       "rehearsalMark stavesFound",
 194 /* write */       "");