LEFT | RIGHT |
1 % Feta (not the Font-En-Tja) music font -- ancient clefs | 1 % Feta (not the Font-En-Tja) music font -- ancient clefs |
2 % This file is part of LilyPond, the GNU music typesetter. | 2 % This file is part of LilyPond, the GNU music typesetter. |
3 % | 3 % |
4 % Copyright (C) 2001--2012 Juergen Reuter <reuter@ipd.uka.de> | 4 % Copyright (C) 2001--2012 Juergen Reuter <reuter@ipd.uka.de> |
5 % | 5 % |
6 % | 6 % |
7 % LilyPond is free software: you can redistribute it and/or modify | 7 % LilyPond is free software: you can redistribute it and/or modify |
8 % it under the terms of the GNU General Public License as published by | 8 % it under the terms of the GNU General Public License as published by |
9 % the Free Software Foundation, either version 3 of the License, or | 9 % the Free Software Foundation, either version 3 of the License, or |
10 % (at your option) any later version. | 10 % (at your option) any later version. |
(...skipping 1711 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1722 z11 = (1.023 staff_space, 0.554 staff_space); | 1722 z11 = (1.023 staff_space, 0.554 staff_space); |
1723 fill z1 .. z2{down} .. z3 | 1723 fill z1 .. z2{down} .. z3 |
1724 & z3 -- z4 | 1724 & z3 -- z4 |
1725 & z4 -- z5 | 1725 & z4 -- z5 |
1726 & z5 .. {up}z6 | 1726 & z5 .. {up}z6 |
1727 & z6{left} .. z7 | 1727 & z6{left} .. z7 |
1728 & z7 .. z8{up} .. z9 | 1728 & z7 .. z8{up} .. z9 |
1729 & z9 .. {right}z10 | 1729 & z9 .. {right}z10 |
1730 & z10 .. z11 | 1730 & z10 .. z11 |
1731 & z11 -- cycle; | 1731 & z11 -- cycle; |
1732 » set_char_box (0, 1.5 staff_space#, 1.0 staff_space#, 1.0 staff_space#); | 1732 » set_char_box (0, 1.5 staff_space#, 2.25 staff_space#, 0.55 staff_space#)
; |
1733 enddef; | 1733 enddef; |
1734 | 1734 |
1735 fet_beginchar ("kievan tsefaut clef", "kievan.do"); | 1735 fet_beginchar ("kievan tsefaut clef", "kievan.do"); |
1736 % this draws the Tse-Fa-Ut clef | 1736 % this draws the Tse-Fa-Ut clef |
1737 % it is a variant alto clef that always occurs on the third line of the
staff | 1737 % it is a variant alto clef that always occurs on the third line of the
staff |
1738 draw_kievan_do_clef; | 1738 draw_kievan_do_clef; |
1739 fet_endchar; | 1739 fet_endchar; |
1740 | 1740 |
1741 fet_beginchar ("mensural c clef", "kievan.do_change"); | 1741 fet_beginchar ("mensural c clef", "kievan.do_change"); |
1742 % This is the same thing as a do clef? | 1742 % This is the same thing as a do clef? |
1743 draw_kievan_do_clef; | 1743 draw_kievan_do_clef; |
1744 fet_endchar; | 1744 fet_endchar; |
1745 | 1745 |
1746 fet_endgroup ("clefs"); | 1746 fet_endgroup ("clefs"); |
LEFT | RIGHT |