+/* Line containing middle C for the given clef. */
+static int
+_score_clef_c_line (score_clef_t clef)
+{
+ switch (clef)
+ {
+ default:
+ case SCORE_CLEF_G:
+ return 5;
+ case SCORE_CLEF_F:
+ return -1;
+ }
+}
+
+static double
+_score_note_to_line (score_staff_t *staff, score_note_t *note)
+{
+ score_pitch_name_t name = SCORE_PITCH_NAME (note->pitch);
+ int c_line = _score_clef_c_line (staff->clef);
+
+ return c_line - (name - SCORE_PITCH_NAME_C) / 2.0 - 3.5 * (note->octave - 4);
+}
+
+/* chord->width is updated as a side effect */
+static void
+_draw_chord (score_t *score, cairo_t *cr,
+ score_staff_t *staff, score_chord_t *chord)
+{
+ cairo_text_extents_t chord_extents;
+ double total_staff_height;
+
+ /* XXX: The staff should manage this height itself. */
+ total_staff_height = (staff->upper_ledger_lines * score->space_height +
+ score->staff_height +
+ staff->lower_ledger_lines * score->space_height);
+
+ cairo_save (cr);
+
+ cairo_text_extents (cr, chord->name, &chord_extents);
+
+ cairo_select_font_face (cr, "serif", 0, 0);
+ cairo_set_font_size (cr, score->space_height * 3);
+
+ if (staff->clef == SCORE_CLEF_G)
+ cairo_move_to (cr, 0, - score->space_height * 0.5);
+ else
+ cairo_move_to (cr, 0, score->space_height * 0.5 + total_staff_height + chord_extents.y_bearing);
+
+ cairo_show_text (cr, chord->name);
+
+ chord->width = chord_extents.x_advance;
+
+ cairo_restore (cr);
+}
+
+static void
+_draw_note (score_t *score, cairo_t *cr,
+ score_staff_t *staff, score_note_t *note)
+{
+ double line;
+ cairo_glyph_t note_glyph[2];
+ static double extend_factor = 0.25;
+ cairo_text_extents_t extents;
+ int num_glyphs = 0;
+
+ void _draw_ledger_line (double line, double offset, double width) {
+ cairo_move_to (cr, offset - extend_factor * width / 2.0,
+ score->space_height * line + score->line_width / 2.0);
+ cairo_rel_line_to (cr, (1 + extend_factor) * width, 0);
+ cairo_stroke (cr);
+ }
+
+ cairo_save (cr);
+
+ /* Move right so that X==0 is natural position for non-displaced
+ * noteheads.
+ */
+ cairo_translate (cr, score->space_height, 0);
+
+ /* Which line should the note appear on? Line 0 is the top line of
+ * the staff and increasing downwards. (Negative values indicate a
+ * note on a ledger line above the staff). Values half way between
+ * integers indicate notes appearing on a space between two staff
+ * lines (or ledger lines). */
+ line = _score_note_to_line (staff, note);
+
+ cairo_select_font_face (cr, "Gonville-26", 0, 0);
+ cairo_set_font_size (cr, score->staff_height);
+
+ /* XXX: The hard-coded glyph indices here are very ugly. We should
+ * figure out how to lookup glyphs by name from this font. */
+ switch (SCORE_PITCH_ACCIDENTAL (note->pitch)) {
+ case SCORE_PITCH_ACCIDENTAL_DOUBLE_FLAT:
+ note_glyph[num_glyphs].index = 77;
+ break;
+ case SCORE_PITCH_ACCIDENTAL_FLAT:
+ note_glyph[num_glyphs].index = 68;
+ break;
+ case SCORE_PITCH_ACCIDENTAL_NATURAL:
+ note_glyph[num_glyphs].index = 101;
+ break;
+ case SCORE_PITCH_ACCIDENTAL_SHARP:
+ note_glyph[num_glyphs].index = 134;
+ break;
+ case SCORE_PITCH_ACCIDENTAL_DOUBLE_SHARP:
+ note_glyph[num_glyphs].index = 142;
+ break;
+ }
+
+ if (SCORE_PITCH_ACCIDENTAL (note->pitch) != SCORE_PITCH_ACCIDENTAL_NATURAL)
+ {
+ note_glyph[num_glyphs].x = 0;
+
+ note_glyph[num_glyphs].y = score->space_height * line;
+
+ num_glyphs++;
+
+ cairo_glyph_extents (cr, note_glyph, num_glyphs, &extents);
+
+#define ACCIDENTAL_NOTE_SPACING (score->space_height * .15)
+
+ note_glyph[0].x = - (extents.width + ACCIDENTAL_NOTE_SPACING);
+ }
+
+ switch (note->duration) {
+ case SCORE_DURATION_1:
+ note_glyph[num_glyphs].index = 127;
+ break;
+ case SCORE_DURATION_2:
+ note_glyph[num_glyphs].index = 85;
+ break;
+ case SCORE_DURATION_4:
+ case SCORE_DURATION_8:
+ case SCORE_DURATION_16:
+ case SCORE_DURATION_32:
+ case SCORE_DURATION_64:
+ case SCORE_DURATION_128:
+ default:
+ note_glyph[num_glyphs].index = 84;
+ }
+
+ note_glyph[num_glyphs].x = 0;
+ note_glyph[num_glyphs].y = score->space_height * line;
+
+ num_glyphs++;
+
+ if (line < 0 || line > 4) {
+ double offset, width;
+ int i;
+
+ cairo_glyph_extents (cr, note_glyph, num_glyphs, &extents);
+ offset = note_glyph[0].x + extents.x_bearing;
+ width = extents.width;
+
+ if (line < 0) {
+ for (i = -1; i >= line; i--)
+ _draw_ledger_line (i, offset, width);
+ } else {
+ for (i = 5; i <= line; i++)
+ _draw_ledger_line (i, offset, width);
+ }
+ }
+
+ cairo_set_source_rgb (cr,
+ note->color.r,
+ note->color.g,
+ note->color.b);
+ cairo_show_glyphs (cr, note_glyph, num_glyphs);
+
+ cairo_restore (cr);
+}
+