Left: | ||
Right: |
LEFT | RIGHT |
---|---|
1 % Feta (not the Font-En-Tja) music font -- ancient note heads | 1 % Feta (not the Font-En-Tja) music font -- ancient note heads |
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 % Neo-mensural heads originally by | 6 % Neo-mensural heads originally by |
7 % Christian Mondrup and Mats Bengtsson | 7 % Christian Mondrup and Mats Bengtsson |
8 % | 8 % |
9 % LilyPond is free software: you can redistribute it and/or modify | 9 % LilyPond is free software: you can redistribute it and/or modify |
10 % it under the terms of the GNU General Public License as published by | 10 % it under the terms of the GNU General Public License as published by |
(...skipping 1792 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
1803 z7 = (0.58 * staff_space, -1.91 * staff_space); | 1803 z7 = (0.58 * staff_space, -1.91 * staff_space); |
1804 z8 = (0.73 * staff_space, -0.35 * staff_space); | 1804 z8 = (0.73 * staff_space, -0.35 * staff_space); |
1805 z9 = (0.02 * staff_space, -0.39 * staff_space); | 1805 z9 = (0.02 * staff_space, -0.39 * staff_space); |
1806 z10 = (0, -0.24 * staff_space); | 1806 z10 = (0, -0.24 * staff_space); |
1807 fill z1{dir 8.6} .. z2 .. z3 | 1807 fill z1{dir 8.6} .. z2 .. z3 |
1808 & z3 .. z4 .. z5 | 1808 & z3 .. z4 .. z5 |
1809 & z5 -- z6 | 1809 & z5 -- z6 |
1810 & z6 .. z7 .. z8 | 1810 & z6 .. z7 .. z8 |
1811 & z8{left} .. z9 | 1811 & z8{left} .. z9 |
1812 & z9 .. z10 ... {dir 75}cycle; | 1812 & z9 .. z10 ... {dir 75}cycle; |
1813 » set_char_box (0, 1.02 staff_space#, 0.37 staff_space#, 0.40 staff_space# ); | 1813 » set_char_box (0, 1.02 staff_space#, 2.50 staff_space#, 0.40 staff_space# ); |
janek
2012/01/17 23:49:04
the last number is too small. I guess it should b
| |
1814 fet_endchar; | 1814 fet_endchar; |
1815 | 1815 |
1816 fet_beginchar ("Kievan quarter note up", "u2kievan"); | 1816 fet_beginchar ("Kievan quarter note up", "u2kievan"); |
1817 z1 = (0.090 staff_space, -0.330 staff_space); | 1817 z1 = (0.090 staff_space, -0.330 staff_space); |
1818 z2 = (0.664 staff_space, -0.371 staff_space); | 1818 z2 = (0.664 staff_space, -0.371 staff_space); |
1819 z3 = (0.986 staff_space, -0.363 staff_space); | 1819 z3 = (0.986 staff_space, -0.363 staff_space); |
1820 z4 = (0.897 staff_space, 1.051 staff_space); | 1820 z4 = (0.897 staff_space, 1.051 staff_space); |
1821 z5 = (1.019 staff_space, 2.387 staff_space); | 1821 z5 = (1.019 staff_space, 2.387 staff_space); |
1822 z6 = (0.603 staff_space, 2.587 staff_space); | 1822 z6 = (0.603 staff_space, 2.587 staff_space); |
1823 z7 = (0.583 staff_space, 1.911 staff_space); | 1823 z7 = (0.583 staff_space, 1.911 staff_space); |
1824 z8 = (0.725 staff_space, 0.346 staff_space); | 1824 z8 = (0.725 staff_space, 0.346 staff_space); |
1825 z9 = (0.017 staff_space, 0.391 staff_space); | 1825 z9 = (0.017 staff_space, 0.391 staff_space); |
1826 z10 = (0, 0.240 staff_space); | 1826 z10 = (0, 0.240 staff_space); |
1827 fill z1{dir -6.9} .. z2 .. z3 | 1827 fill z1{dir -6.9} .. z2 .. z3 |
1828 & z3 .. z4 .. z5 | 1828 & z3 .. z4 .. z5 |
1829 & z5 -- z6 | 1829 & z5 -- z6 |
1830 & z6 .. z7 .. z8 | 1830 & z6 .. z7 .. z8 |
1831 & z8{left} .. z9 | 1831 & z8{left} .. z9 |
1832 & z9 .. z10 ... {dir -76.9}cycle; | 1832 & z9 .. z10 ... {dir -76.9}cycle; |
1833 » set_char_box (0, 1.02 staff_space#, 0.40 staff_space#, 0.4 staff_space#) ; | 1833 » set_char_box (0, 1.02 staff_space#, 0.40 staff_space#, 2.6 staff_space#) ; |
janek
2012/01/17 23:49:04
the last number is too small. I guess it should b
| |
1834 fet_endchar; | 1834 fet_endchar; |
1835 | 1835 |
1836 fet_beginchar ("kievan half note (line position)", "s1kievan"); | 1836 fet_beginchar ("kievan half note (line position)", "s1kievan"); |
1837 % this draws the half note with a short tail up and a long tail down | 1837 % this draws the half note with a short tail up and a long tail down |
1838 % this version of the half note is used on any line of the staff | 1838 % this version of the half note is used on any line of the staff |
1839 z1 = (1.031 staff_space, 0.945 staff_space); | 1839 z1 = (1.031 staff_space, 0.945 staff_space); |
1840 z2 = (0.945 staff_space, -0.122 staff_space); | 1840 z2 = (0.945 staff_space, -0.122 staff_space); |
1841 z3 = (1.059 staff_space, -1.393 staff_space); | 1841 z3 = (1.059 staff_space, -1.393 staff_space); |
1842 z4 = (0.713 staff_space, -1.564 staff_space); | 1842 z4 = (0.713 staff_space, -1.564 staff_space); |
1843 z5 = (0.672 staff_space, -0.729 staff_space); | 1843 z5 = (0.672 staff_space, -0.729 staff_space); |
(...skipping 59 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
1903 fill z1{right} .. z2 | 1903 fill z1{right} .. z2 |
1904 & z2 -- z3 | 1904 & z2 -- z3 |
1905 & z3{right} .. z4 | 1905 & z3{right} .. z4 |
1906 & z4 .. z5{down} .. z6 | 1906 & z4 .. z5{down} .. z6 |
1907 & z6 -- z7 | 1907 & z6 -- z7 |
1908 & z7 .. z8{up} .. z9 | 1908 & z7 .. z8{up} .. z9 |
1909 & z9 .. {left}z10 | 1909 & z9 .. {left}z10 |
1910 & z10{dir 78.7} .. z11 | 1910 & z10{dir 78.7} .. z11 |
1911 & z11 .. {left}z12 | 1911 & z11 .. {left}z12 |
1912 & z12{dir 78.7} .. {dir 62}cycle; | 1912 & z12{dir 78.7} .. {dir 62}cycle; |
1913 » set_char_box (0, 1.25 staff_space#, 1.5 staff_space#, 0.5 staff_space#); | 1913 » set_char_box (0, 1.25 staff_space#, 3.0 staff_space#, 0.5 staff_space#); |
1914 fet_endchar; | 1914 fet_endchar; |
1915 | 1915 |
1916 fet_beginchar ("kievan eighth note (up)", "u3kievan"); | 1916 fet_beginchar ("kievan eighth note (up)", "u3kievan"); |
1917 % this draws the flagged eighth note | 1917 % this draws the flagged eighth note |
1918 % this version of the eighth note occurs on the second line or lower | 1918 % this version of the eighth note occurs on the second line or lower |
1919 % first, draw the upside down quarter note | 1919 % first, draw the upside down quarter note |
1920 z1 = (0.090 staff_space, -0.33 staff_space); | 1920 z1 = (0.090 staff_space, -0.33 staff_space); |
1921 z2 = (0.664 staff_space, -0.371 staff_space); | 1921 z2 = (0.664 staff_space, -0.371 staff_space); |
1922 z3 = (0.986 staff_space, -0.363 staff_space); | 1922 z3 = (0.986 staff_space, -0.363 staff_space); |
1923 z4 = (0.896 staff_space, 1.051 staff_space); | 1923 z4 = (0.896 staff_space, 1.051 staff_space); |
(...skipping 14 matching lines...) Expand all Loading... | |
1938 z12 = (0.391 staff_space, 2.648 staff_space); | 1938 z12 = (0.391 staff_space, 2.648 staff_space); |
1939 z13 = (0.354 staff_space, 2.290 staff_space); | 1939 z13 = (0.354 staff_space, 2.290 staff_space); |
1940 z14 = (0.676 staff_space, 1.076 staff_space); | 1940 z14 = (0.676 staff_space, 1.076 staff_space); |
1941 z15 = (0.693 staff_space, 0.88 staff_space); | 1941 z15 = (0.693 staff_space, 0.88 staff_space); |
1942 z16 = (0.208 staff_space, 1.699 staff_space); | 1942 z16 = (0.208 staff_space, 1.699 staff_space); |
1943 z17 = (0.024 staff_space, 2.616 staff_space); | 1943 z17 = (0.024 staff_space, 2.616 staff_space); |
1944 fill z11 -- z12 | 1944 fill z11 -- z12 |
1945 & z12 .. z13{down} .. z14 | 1945 & z12 .. z13{down} .. z14 |
1946 & z14 -- z15 | 1946 & z14 -- z15 |
1947 & z15 .. z16 .. z17{up} .. cycle; | 1947 & z15 .. z16 .. z17{up} .. cycle; |
1948 » set_char_box (0, 1.0 staff_space#, 0.4 staff_space#, 0.4 staff_space#); | 1948 » set_char_box (0, 1.0 staff_space#, 0.4 staff_space#, 2.9 staff_space#); |
1949 fet_endchar; | 1949 fet_endchar; |
1950 | 1950 |
1951 fet_endgroup ("noteheads"); | 1951 fet_endgroup ("noteheads"); |
LEFT | RIGHT |