% Feta (not the Font-En-Tja) music font -- implement Clefs -*-Fundamental-*-
% This file is part of LilyPond, the GNU music typesetter.
%
-% Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>,
+% Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>,
% Jan Nieuwenhuizen <janneke@gnu.org>,
% Juergen Reuter <reuter@ipd.uka.de>
%
fill bulb;
- if double_shift <> 1:
-
- % transform helper points
- for n := 106, 110, 111, 112, 121:
- forsuffixes e := l,,r:
- z[n+100]e = z[n]e shifted (double_shift * reduced_ss, 0);
- endfor
- endfor
- for n := 110, 111:
- forsuffixes e := l,,r:
- z[n+100]'e = z[n]'e shifted (double_shift * reduced_ss, 0);
- endfor
- endfor
-
- fill swirl shifted (double_shift * reduced_ss, 0);
- penstroke z221e
- .. z210e{down_}
- .. z210'e
- .. z206e
- .. z211'e
- .. z211e{dir (-95 + corr_angle)}
- .. z212e{dir (bot_angle_)};
- fill bulb shifted (double_shift * reduced_ss, 0);
+ if double_shift <> 0:
+ addto currentpicture also
+ currentpicture shifted (double_shift * reduced_ss, 0);
fi;
penlabels (range 101 thru 121);