Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(406)

Delta Between Two Patch Sets: mf/parmesan-clefs.mf

Issue 4951062: Glyphs for Kievan Notation (Closed)
Left Patch Set: Updating Appendix docs to show new glyphs Created 12 years, 6 months ago
Right Patch Set: Fixing remaining char_box issues Created 12 years, 2 months ago
Left:
Right:
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
Right: Side by side diff | Download
« no previous file with change/comment | « mf/parmesan-accidentals.mf ('k') | mf/parmesan-dots.mf » ('j') | no next file with change/comment »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
LEFTRIGHT
(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
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");
LEFTRIGHT

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b