1 /* scherzo - Music notation training
3 * score - Utilities for drawing (simple) musical scores
5 * Copyright © 2010 Carl Worth
7 * This program is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation, either version 3 of the License, or
10 * (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with this program. If not, see http://www.gnu.org/licenses/ .
33 typedef struct score_brace
41 /* Height of a single staff */
44 /* Height of one space within a staff */
47 /* Minimal line width for staff lines */
50 /* Full width of staff */
53 score_brace_t **braces;
57 score_staff_t **staves;
62 score_create (void *ctx)
66 score = talloc (ctx, score_t);
70 /* Also sets space_height and line_width */
71 score_set_staff_height (score, 24);
73 /* Just to have some nominal width. */
77 score->num_braces = 0;
80 score->num_staves = 0;
86 score_set_staff_height (score_t *score, int height)
88 score->space_height = (int) height / 4;
89 score->staff_height = score->space_height * 4;
91 score->line_width = score->space_height / 10;
92 if (score->line_width == 0)
93 score->line_width = 1;
95 return score->staff_height;
99 score_set_width (score_t *score, int width)
101 score->width = width;
104 /* Returns in brace_width the width of the brace */
106 _draw_brace (score_t *score, cairo_t *cr,
107 score_brace_t *brace, int *brace_width)
109 cairo_glyph_t brace_glyph;
110 cairo_text_extents_t brace_extents;
114 cairo_select_font_face (cr, "Gonville-Brace", 0, 0);
116 /* XXX: This hard-coded glyph index is pretty ugly. We should
117 * figure out how to lookup the glyph we want, (though, as it
118 * turns out, this brace font pretty much just has numbered glyph
119 * names for different sizes, so it wouldn't be all that different
120 * than just the bare index here). */
121 brace_glyph.index = 300;
123 brace_glyph.y = score->staff_height * (brace->first_staff + (2 * brace->num_staves - 1) / 2.0) + 1;
125 /* XXX: This font size (in conjunction with the glyph selection)
126 * is a rough guess at best. We should figure out how the brace
127 * font is intended to be used and actually measure to find the
128 * correctly-sized glyph. */
129 cairo_set_font_size (cr, (score->staff_height * 3) / 3.85);
131 cairo_glyph_extents (cr, &brace_glyph, 1, &brace_extents);
133 /* Subtract space for brace itself */
134 cairo_translate (cr, -brace_extents.x_bearing, 0);
136 cairo_set_source_rgb (cr, 0.0, 0.0, 0.0); /* black */
137 cairo_show_glyphs (cr, &brace_glyph, 1);
141 *brace_width = (int) -brace_extents.x_bearing;
144 /* Line containing middle C for the given clef. */
146 _score_clef_c_line (score_clef_t clef)
159 _score_note_to_line (score_staff_t *staff, score_note_t *note)
161 score_pitch_name_t name = SCORE_PITCH_NAME (note->pitch);
162 int c_line = _score_clef_c_line (staff->clef);
164 return c_line - (name - SCORE_PITCH_NAME_C) / 2.0 - 3.5 * (note->octave - 4);
168 _draw_note (score_t *score, cairo_t *cr,
169 score_staff_t *staff, score_note_t *note)
172 cairo_glyph_t note_glyph;
176 /* Which line should the note appear on? Line 0 is the top line of
177 * the staff and increasing downwards. (Negative values indicate a
178 * note on a ledger line above the staff). Values half way between
179 * integers indicate notes appearing on a space between two staff
180 * lines (or ledger lines). */
181 line = _score_note_to_line (staff, note);
183 cairo_select_font_face (cr, "Gonville-26", 0, 0);
184 cairo_set_font_size (cr, score->staff_height);
186 /* XXX: The hard-coded glyph indices here are very ugly. We should
187 * figure out how to lookup glyphs by name from this font. */
188 switch (note->duration) {
189 case SCORE_DURATION_1:
190 note_glyph.index = 127;
192 case SCORE_DURATION_2:
193 note_glyph.index = 85;
195 case SCORE_DURATION_4:
196 case SCORE_DURATION_8:
197 case SCORE_DURATION_16:
198 case SCORE_DURATION_32:
199 case SCORE_DURATION_64:
200 case SCORE_DURATION_128:
202 note_glyph.index = 84;
206 note_glyph.y = score->space_height * line + score->line_width / 2.0;
208 cairo_set_source_rgb (cr, 0.0, 0.0, 0.0); /* black */
209 cairo_show_glyphs (cr, ¬e_glyph, 1);
215 _draw_staff (score_t *score, cairo_t *cr,
216 score_staff_t *staff, int staff_width)
219 cairo_glyph_t clef_glyph;
223 cairo_select_font_face (cr, "Gonville-26", 0, 0);
225 cairo_set_font_size (cr, score->staff_height);
227 /* XXX: The hard-coded glyph indices here are very ugly. We should
228 * figure out how to lookup glyphs by name from this font. */
229 switch (staff->clef) {
232 clef_glyph.index = 46;
233 clef_glyph.y = 3 * score->space_height;
236 clef_glyph.index = 45;
237 clef_glyph.y = 1 * score->space_height;
240 clef_glyph.x = 3 * score->line_width;
243 cairo_set_source_rgb (cr, 0.0, 0.0, 0.0); /* black */
244 cairo_show_glyphs (cr, &clef_glyph, 1);
246 /* Draw staff lines */
247 for (i = 0; i < 5; i++) {
248 cairo_move_to (cr, 0, i * score->space_height + score->line_width / 2.0);
249 cairo_rel_line_to (cr, staff_width, 0);
252 cairo_set_line_width (cr, score->line_width);
254 cairo_set_source_rgb (cr, 0.0, 0.0, 0.0); /* black */
257 /* Make space for clef before drawing notes */
258 cairo_translate (cr, (int) (4 * score->space_height), 0);
261 for (i = 0; i < staff->num_notes; i++) {
262 _draw_note (score, cr, staff, staff->notes[i]);
263 /* Draw all notes concurrent for now (as a chord)
264 cairo_translate (cr, score->space_height * 2.0, 0);
272 score_draw (score_t *score, cairo_t *cr)
275 int staff_width = score->width;
279 if (score->num_braces)
283 for (i = 0; i < score->num_braces; i++)
284 _draw_brace (score, cr, score->braces[i], &brace_width);
286 /* Subtract space for brace itself */
287 cairo_translate (cr, brace_width, 0);
288 staff_width -= brace_width;
290 /* As well as some padding */
291 cairo_translate (cr, 2, 0);
295 /* Vertical lines at each end */
297 score->line_width / 2.0,
298 score->line_width / 2.0,
299 staff_width - score->line_width,
300 score->staff_height * 3);
301 cairo_set_source_rgb (cr, 0.0, 0.0, 0.0); /* black */
302 cairo_set_line_width (cr, score->line_width);
305 for (i = 0; i < score->num_staves; i++) {
306 _draw_staff (score, cr, score->staves[i], staff_width);
307 cairo_translate (cr, 0, 2 * score->staff_height);
314 score_add_brace (score_t *score, int staves)
316 score_brace_t *brace;
318 brace = talloc (score, score_brace_t);
322 brace->first_staff = score->num_staves;
323 brace->num_staves = staves;
326 score->braces = talloc_realloc (score,
330 if (score->braces == NULL) {
331 score->num_braces = 0;
335 score->braces[score->num_braces - 1] = brace;
340 score_add_staff (score_t *score, score_clef_t clef)
342 score_staff_t *staff;
344 staff = talloc (score, score_staff_t);
351 staff->num_notes = 0;
354 score->staves = talloc_realloc (score,
358 if (score->staves == NULL) {
359 score->num_staves = 0;
363 score->staves[score->num_staves - 1] = staff;
369 score_add_note (score_staff_t *staff,
372 score_duration_t duration)
376 note = talloc (staff, score_note_t);
382 note->octave = octave;
383 note->duration = duration;
386 staff->notes = talloc_realloc (staff,
390 if (staff->notes == NULL) {
391 staff->num_notes = 0;
395 staff->notes[staff->num_notes - 1] = note;
401 score_remove_note (score_note_t *note)
403 score_staff_t *staff = note->staff;
406 for (i = 0; i < staff->num_notes; i++)
407 if (staff->notes[i] == note)
410 if (i == staff->num_notes)
413 if (i < staff->num_notes - 1)
415 memmove (staff->notes + i,
416 staff->notes + i + 1,
417 (staff->num_notes - 1 - i) * sizeof (score_note_t *));
420 staff->num_notes -= 1;
424 score_staff_find_note (score_staff_t *staff,
427 score_duration_t duration)
432 for (i = 0; i < staff->num_notes; i++) {
433 note = staff->notes[i];
434 if (note->pitch == pitch &&
435 note->octave == octave &&
436 note->duration == duration)