+++ /dev/null
-% Feta (not the Font-En-Tja) music font -- a duration dot
-% This file is part of LilyPond, the GNU music typesetter.
-%
-% Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
-%
-% LilyPond is free software: you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation, either version 3 of the License, or
-% (at your option) any later version.
-%
-% LilyPond is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
-
-fet_begingroup ("dots");
-
-save dot_diam;
-
-2 dot_diam# = staff_space# - stafflinethickness#;
-define_whole_blacker_pixels (dot_diam);
-
-fet_beginchar ("duration dot", "dot");
- pickup pencircle scaled dot_diam;
-
- lft x0 = 0;
- top y0 = vround (.5 dot_diam);
-
- drawdot z0;
-
- set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#);
-fet_endchar;
-
-fet_endgroup ("dots");