2 head-grav.cc -- part of GNU LilyPond
4 (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "rhythmic-head.hh"
10 #include "paper-def.hh"
13 #include "dot-column.hh"
14 #include "staff-symbol-referencer.hh"
16 #include "score-engraver.hh"
20 make (guitar-like) tablature note
22 class Tab_note_heads_engraver
: public Engraver
24 Link_array
<Item
> notes_
;
26 Link_array
<Item
> dots_
;
27 Link_array
<Music
> note_reqs_
;
28 Link_array
<Music
> tabstring_reqs_
;
30 TRANSLATOR_DECLARATIONS(Tab_note_heads_engraver
);
33 virtual void start_translation_timestep ();
34 virtual bool try_music (Music
*req
) ;
35 virtual void process_music ();
37 virtual void stop_translation_timestep ();
41 Tab_note_heads_engraver::Tab_note_heads_engraver()
46 Tab_note_heads_engraver::try_music (Music
*m
)
48 if (m
->is_mus_type ("note-event"))
53 else if (m
->is_mus_type ("string-number-event"))
55 while(tabstring_reqs_
.size () < note_reqs_
.size ()-1)
56 tabstring_reqs_
.push(0);
58 tabstring_reqs_
.push (m
);
61 else if (m
->is_mus_type ("busy-playing-event"))
63 return note_reqs_
.size ();
71 Tab_note_heads_engraver::process_music ()
73 for (int i
=0; i
< note_reqs_
.size (); i
++)
75 SCM stringTunings
= get_property ("stringTunings");
76 int number_of_strings
= ((int) gh_length(stringTunings
));
77 bool high_string_one
= to_boolean(get_property ("highStringOne"));
79 Item
* note
= new Item (get_property ("TabNoteHead"));
81 Music
* req
= note_reqs_
[i
];
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);
91 //char* tab_string_as_string = gh_scm2newstr(tabstring_req->get_mus_property ("text"), &lenp);
92 //tab_string = atoi(tab_string_as_string);
93 tab_string
= gh_scm2int(tabstring_req
->get_mus_property ("string-number"));
97 tab_string
= high_string_one
? 1 : number_of_strings
;
101 Duration dur
= *unsmob_duration (req
->get_mus_property ("duration"));
103 note
->set_grob_property ("duration-log", gh_int2scm (dur
.duration_log ()));
105 if (dur
.dot_count ())
107 Item
* d
= new Item (get_property ("Dots"));
108 Rhythmic_head::set_dots (note
, d
);
111 != gh_scm2int (d
->get_grob_property ("dot-count")))
112 d
->set_grob_property ("dot-count", gh_int2scm (dur
.dot_count ()));
114 d
->set_parent (note
, Y_AXIS
);
115 announce_grob (d
, SCM_EOL
);
120 SCM scm_pitch
= req
->get_mus_property ("pitch");
121 SCM proc
= get_property ("tablatureFormat");
122 SCM min_fret_scm
= get_property ("minimumFret");
123 int min_fret
= gh_number_p(min_fret_scm
) ? gh_scm2int(min_fret_scm
) : 0;
125 while(!string_found
) {
126 int fret
= unsmob_pitch(scm_pitch
)->semitone_pitch()
127 - gh_scm2int(gh_list_ref(stringTunings
,gh_int2scm(tab_string
-1)));
129 tab_string
+= high_string_one
? 1 : -1;
134 SCM text
= gh_call3 (proc
, gh_int2scm (tab_string
), stringTunings
, scm_pitch
);
136 int pos
= 2 * tab_string
- number_of_strings
- 1; // No tab-note between the string !!!
137 if(to_boolean(get_property("stringOneTopmost")))
140 note
->set_grob_property ("text", text
);
142 note
->set_grob_property ("staff-position", gh_int2scm (pos
));
143 announce_grob (note
, req
->self_scm());
149 Tab_note_heads_engraver::stop_translation_timestep ()
151 for (int i
=0; i
< notes_
.size (); i
++)
153 typeset_grob (notes_
[i
]);
157 for (int i
=0; i
< dots_
.size (); i
++)
159 typeset_grob (dots_
[i
]);
165 tabstring_reqs_
.clear ();
169 Tab_note_heads_engraver::start_translation_timestep ()
174 ENTER_DESCRIPTION(Tab_note_heads_engraver
,
175 /* descr */ "Generate one or more tablature noteheads from Music of type Note_req.",
176 /* creats*/ "TabNoteHead Dots",
177 /* accepts */ "note-event string-number-event busy-playing-event",
179 /* reads */ "centralCPosition stringTunings minimumFret tablatureFormat highStringOne stringOneTopmost",