lily/tab-note-heads-engraver.cc

   1 /*
   2   head-grav.cc -- part of GNU LilyPond
   3
   4   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6 #include <ctype.h>
   7 #include <stdio.h>
   8
   9 #include "rhythmic-head.hh"
  10 #include "paper-def.hh"
  11 #include "musical-request.hh"
  12 #include "dots.hh"
  13 #include "dot-column.hh"
  14 #include "staff-symbol-referencer.hh"
  15 #include "item.hh"
  16 #include "score-engraver.hh"
  17 #include "warn.hh"
  18
  19 /**
  20   make (guitar-like) tablature note
  21  */
  22 class Tab_note_heads_engraver : public Engraver
  23 {
  24   Link_array<Item> notes_;
  25
  26   Link_array<Item> dots_;
  27   Link_array<Note_req> note_reqs_;
  28   Link_array<Text_script_req> tabstring_reqs_;
  29 public:
  30   TRANSLATOR_DECLARATIONS(Tab_note_heads_engraver);
  31
  32 protected:
  33   virtual void start_translation_timestep ();
  34   virtual bool try_music (Music *req) ;
  35   virtual void process_music ();
  36
  37   virtual void stop_translation_timestep ();
  38 };
  39
  40
  41 Tab_note_heads_engraver::Tab_note_heads_engraver()
  42 {
  43 }
  44
  45 bool
  46 Tab_note_heads_engraver::try_music (Music *m)
  47 {
  48   if (Note_req * n =dynamic_cast <Note_req *> (m))
  49     {
  50       note_reqs_.push (n);
  51       return true;
  52     }
  53   else if (Text_script_req * ts = dynamic_cast<Text_script_req*> (m))
  54     {
  55       if (m->get_mus_property ("text-type") != ly_symbol2scm ("finger")) return false;
  56
  57       while(tabstring_reqs_.size () < note_reqs_.size ()-1)
  58         tabstring_reqs_.push(0);
  59       tabstring_reqs_.push(ts);
  60       return true;
  61     }
  62   else if (dynamic_cast<Busy_playing_req*> (m))
  63     {
  64       return note_reqs_.size ();
  65     }
  66
  67   return false;
  68 }
  69
  70
  71 void
  72 Tab_note_heads_engraver::process_music ()
  73 {
  74   for (int i=0; i < note_reqs_.size (); i++)
  75     {
  76       SCM stringTunings = get_property ("stringTunings");
  77       int number_of_strings = ((int) gh_length(stringTunings));
  78
  79       Item * note  = new Item (get_property ("TabNoteHead"));
  80
  81       Music * req = note_reqs_[i];
  82
  83       Music * tabstring_req = 0;
  84       if(tabstring_reqs_.size()>i)
  85         tabstring_req = tabstring_reqs_[i];
  86       // printf("%d %d\n",tabstring_reqs_.size(),i);
  87       size_t lenp;
  88       int tab_string;
  89       bool string_found;
  90       if (tabstring_req) {
  91         char* tab_string_as_string = gh_scm2newstr(tabstring_req->get_mus_property ("text"), &lenp);
  92         tab_string = atoi(tab_string_as_string);
  93         string_found = true;
  94       }
  95       else {
  96         tab_string = number_of_strings;
  97         string_found = false;
  98       }
  99
 100       Duration dur = *unsmob_duration (req->get_mus_property ("duration"));
 101
 102       note->set_grob_property ("duration-log", gh_int2scm (dur.duration_log ()));
 103
 104       if (dur.dot_count ())
 105         {
 106           Item * d = new Item (get_property ("Dots"));
 107           Rhythmic_head::set_dots (note, d);
 108
 109           if (dur.dot_count ()
 110               != gh_scm2int (d->get_grob_property ("dot-count")))
 111             d->set_grob_property ("dot-count", gh_int2scm (dur.dot_count ()));
 112
 113           d->set_parent (note, Y_AXIS);
 114           announce_grob (d, SCM_EOL);
 115           dots_.push (d);
 116         }
 117
 118
 119       SCM scm_pitch = req->get_mus_property ("pitch");
 120       SCM proc      = get_property ("tablatureFormat");
 121       SCM min_fret_scm = get_property ("minimumFret");
 122       int min_fret = gh_number_p(min_fret_scm) ? gh_scm2int(min_fret_scm) : 0;
 123
 124       while(!string_found) {
 125         int fret = unsmob_pitch(scm_pitch)->semitone_pitch()
 126           - gh_scm2int(gh_list_ref(stringTunings,gh_int2scm(tab_string-1)));
 127         if(fret<min_fret)
 128           tab_string--;
 129         else
 130           string_found = true;
 131       }
 132
 133       SCM text = gh_call3 (proc, gh_int2scm (tab_string), stringTunings, scm_pitch);
 134
 135       int pos = 2 * tab_string - 2; // No tab-note between the string !!!
 136
 137       if (number_of_strings % 2) { // odd number of string
 138         pos++;
 139       }
 140
 141
 142       note->set_grob_property ("text", text);
 143       SCM c0 = get_property ("centralCPosition");
 144       if (gh_number_p (c0)) pos += gh_scm2int (c0);
 145
 146
 147       note->set_grob_property ("staff-position", gh_int2scm (pos));
 148       announce_grob (note, req->self_scm());
 149       notes_.push (note);
 150     }
 151 }
 152
 153 void
 154 Tab_note_heads_engraver::stop_translation_timestep ()
 155 {
 156   for (int i=0; i < notes_.size (); i++)
 157     {
 158       typeset_grob (notes_[i]);
 159     }
 160
 161   notes_.clear ();
 162   for (int i=0; i < dots_.size (); i++)
 163     {
 164       typeset_grob (dots_[i]);
 165     }
 166   dots_.clear ();
 167
 168   note_reqs_.clear ();
 169
 170   tabstring_reqs_.clear ();
 171 }
 172
 173 void
 174 Tab_note_heads_engraver::start_translation_timestep ()
 175 {
 176 }
 177
 178
 179 ENTER_DESCRIPTION(Tab_note_heads_engraver,
 180 /* descr */       "Generate one or more tablature noteheads from Music of type Note_req.",
 181 /* creats*/       "TabNoteHead Dots",
 182 /* acks  */       "",
 183 /* reads */       "centralCPosition stringTunings minimumFret tablatureFormat",
 184 /* write */       "");
 185