1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
/*
easy-notation.cc -- implement easy notation heads
source file of the GNU LilyPond music typesetter
(c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "note-head.hh"
#include <cctype>
using namespace std;
#include "font-interface.hh"
#include "grob.hh"
#include "music.hh"
#include "output-def.hh"
#include "staff-symbol-referencer.hh"
#include "stem.hh"
#include "stream-event.hh"
#include "text-interface.hh"
#include "rhythmic-head.hh"
/*
TODO: move to scheme
*/
MAKE_SCHEME_CALLBACK (Note_head, brew_ez_stencil, 1);
SCM
Note_head::brew_ez_stencil (SCM smob)
{
Grob *me = unsmob_grob (smob);
int log = Rhythmic_head::duration_log (me);
SCM cause = me->get_property ("cause");
SCM spitch = unsmob_stream_event (cause)->get_property ("pitch");
Pitch *pit = unsmob_pitch (spitch);
SCM idx = scm_from_int (pit->get_notename ());
SCM names = me->get_property ("note-names");
SCM charstr = SCM_EOL;
if (scm_is_vector (names))
charstr = scm_vector_ref (names, idx);
else
{
char s[2] = "a";
s[0] = (pit->get_notename () + 2) % 7 + 'a';
s[0] = toupper (s[0]);
charstr = scm_from_locale_string (s);
}
SCM letter
= Text_interface::interpret_string (me->layout ()->self_scm (),
Font_interface::text_font_alist_chain (me),
charstr);
Stencil l (*unsmob_stencil (letter));
l.align_to (X_AXIS, CENTER);
l.align_to (Y_AXIS, CENTER);
l = Stencil (Box (), l.expr ());
Real ss = Staff_symbol_referencer::staff_space (me);
Real lt = Staff_symbol_referencer::line_thickness (me);
Real radius = (ss + lt) / 2.0;
Real stem_thick = 1.3 * lt;
if (Grob *stem = unsmob_grob (me->get_object ("stem")))
stem_thick = Stem::thickness (stem);
int black = (log >= 2);
Stencil head;
Box extent (Interval (-radius, radius),
Interval (-radius, radius));
Stencil black_head (extent,
scm_list_4 (ly_symbol2scm ("circle"),
scm_from_double (radius),
scm_from_double (0.0),
SCM_BOOL_T));
Stencil white_head;
if (black)
l = l.in_color (1, 1, 1);
else
{
white_head = Stencil (extent,
scm_list_4 (ly_symbol2scm ("circle"),
scm_from_double (radius - stem_thick),
scm_from_double (0.0),
SCM_BOOL_T));
white_head = white_head.in_color (1, 1, 1);
}
Stencil total;
total.add_stencil (l);
total.add_stencil (white_head);
total.add_stencil (black_head);
total.translate_axis (radius, X_AXIS);
return total.smobbed_copy ();
}
|
