LEFT | RIGHT |
(no file at all) | |
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 1682 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1693 draw_staff (-1, 3, 0.0); | 1693 draw_staff (-1, 3, 0.0); |
1694 fi; | 1694 fi; |
1695 draw_hufnagel_do_fa_clef ((0, 0), 1.0); | 1695 draw_hufnagel_do_fa_clef ((0, 0), 1.0); |
1696 fet_endchar; | 1696 fet_endchar; |
1697 | 1697 |
1698 | 1698 |
1699 fet_beginchar ("Hufnagel do/fa clef", "hufnagel.do.fa_change"); | 1699 fet_beginchar ("Hufnagel do/fa clef", "hufnagel.do.fa_change"); |
1700 draw_hufnagel_do_fa_clef ((0, 0), .8); | 1700 draw_hufnagel_do_fa_clef ((0, 0), .8); |
1701 fet_endchar; | 1701 fet_endchar; |
1702 | 1702 |
| 1703 %%%%%%%% |
| 1704 %% |
| 1705 %% Medieval East-Slavic (Kievan) Notation clefs |
| 1706 %% Code by Aleksandr Andreev <aleksandr.andreev@gmail.com> |
| 1707 %% |
| 1708 %%%%%%%% |
| 1709 |
| 1710 def draw_kievan_do_clef = |
| 1711 z1 = (1.108 staff_space, 0.554 staff_space); |
| 1712 z2 = (1.063 staff_space, -0.122 staff_space); |
| 1713 z3 = (1.467 staff_space, -1.621 staff_space); |
| 1714 z4 = (1.002 staff_space, -2.253 staff_space); |
| 1715 y5 = y3; |
| 1716 x4 - x5 = x3 - x4; |
| 1717 z6 = (0.917 staff_space, -0.383 staff_space); |
| 1718 z7 = (0.012 staff_space, -0.448 staff_space); |
| 1719 z8 = (0, -0.167 staff_space); |
| 1720 z9 = (0.057 staff_space, 0.464 staff_space); |
| 1721 z10 = (0.994 staff_space, 0.387 staff_space); |
| 1722 z11 = (1.023 staff_space, 0.554 staff_space); |
| 1723 fill z1 .. z2{down} .. z3 |
| 1724 & z3 -- z4 |
| 1725 & z4 -- z5 |
| 1726 & z5 .. {up}z6 |
| 1727 & z6{left} .. z7 |
| 1728 & z7 .. z8{up} .. z9 |
| 1729 & z9 .. {right}z10 |
| 1730 & z10 .. z11 |
| 1731 & z11 -- cycle; |
| 1732 set_char_box (0, 1.5 staff_space#, 2.25 staff_space#, 0.55 staff_space#)
; |
| 1733 enddef; |
| 1734 |
| 1735 fet_beginchar ("kievan tsefaut clef", "kievan.do"); |
| 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 |
| 1738 draw_kievan_do_clef; |
| 1739 fet_endchar; |
| 1740 |
| 1741 fet_beginchar ("mensural c clef", "kievan.do_change"); |
| 1742 % This is the same thing as a do clef? |
| 1743 draw_kievan_do_clef; |
| 1744 fet_endchar; |
1703 | 1745 |
1704 fet_endgroup ("clefs"); | 1746 fet_endgroup ("clefs"); |
LEFT | RIGHT |