-% -*- Fundamental -*- (emacs-20 mf mode mucks
-% feta-schrift.mf -- implement scripts
+% Feta (not the Font-En-Tja) music font -- implement scripts
+% This file is part of LilyPond, the GNU music typesetter.
%
-% source file of the Feta (defintively not an abbreviation for Font-En-Tja)
-% music font
-%
-% (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+% Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
% Jan Nieuwenhuizen <janneke@gnu.org>
%
+%
+% 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 ("scripts");
define_pixels (height, width);
define_whole_blacker_pixels (thickness);
- set_char_box (width# / 2, width# / 2, height# / 2, height# / 2);
+ set_char_box (width# / 2, width# / 2, height# / 2, height# * 3 / 4);
penpos1 (thickness, 90);
penpos2 (thickness, 180);
penpos4 (thickness, 0);
x1 = 0;
- y1r = h;
+ y1r = height / 2;
x3 = x1;
y3r = -y1r;
- x4r = w;
+ x4r = width / 2;
y4 = 0;
x2r = -x4r;
y2 = y4;
.. z4
.. cycle;
fi;
+
z5 = (0, 0);
- z6 = (x5, 1.5*y1r);
- pickup pencircle scaled thickness;
- draw z5 -- z6;
+ z6 = (x5, 1.5 y1r);
+
+ draw_gridline (z5, z6, thickness);
+
+ labels (5, 6);
fet_endchar;
fet_endgroup ("scripts");