source file of the GNU LilyPond music typesetter
(c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
-
*/
#include "note-head.hh"
Stencil head;
Box extent (Interval (-radius, radius),
Interval (-radius, radius));
-
+
Stencil black_head (extent,
scm_list_4 (ly_symbol2scm ("circle"),
scm_from_double (radius),
Stencil white_head;
if (black)
{
- l = l.in_color (1, 1, 1);
+ 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));
+ 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);