LEFT | RIGHT |
(no file at all) | |
1 % Feta (not the Font-En-Tja) music font -- dot vaticana | 1 % Feta (not the Font-En-Tja) music font -- dot vaticana |
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) 2006--2012 Juergen Reuter <reuter@ipd.uka.de> | 4 % Copyright (C) 2006--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 17 matching lines...) Expand all Loading... |
28 pickup pencircle scaled dot_diam; | 28 pickup pencircle scaled dot_diam; |
29 | 29 |
30 lft x0 = 0; | 30 lft x0 = 0; |
31 top y0 = vround (.5 dot_diam); | 31 top y0 = vround (.5 dot_diam); |
32 | 32 |
33 drawdot z0; | 33 drawdot z0; |
34 | 34 |
35 set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#); | 35 set_char_box (0, dot_diam#, .5 dot_diam#, .5 dot_diam#); |
36 fet_endchar; | 36 fet_endchar; |
37 | 37 |
| 38 %%%%%%%%%%%%% |
| 39 %%% |
| 40 %%% Code for Kievan Music Notation |
| 41 %%% |
| 42 %%%%%%%%%%%%% |
| 43 |
| 44 save kievan_dot_diam; |
| 45 kievan_dot_diam# := staff_space# - stafflinethickness#; |
| 46 define_whole_pixels (kievan_dot_diam); |
| 47 |
| 48 fet_beginchar ("kievan augmentation dot", "dotkievan"); |
| 49 % pars for superellipse are right, top, left, bottom |
| 50 fill superellipse((kievan_dot_diam, 0), |
| 51 (kievan_dot_diam / 2, kievan_dot_diam / 2), |
| 52 (0, 0), |
| 53 (kievan_dot_diam / 2, -kievan_dot_diam / 2), |
| 54 0.51); |
| 55 set_char_box (0, kievan_dot_diam#, 0.5 kievan_dot_diam#, 0.5 kievan_dot_
diam#); |
| 56 fet_endchar; |
| 57 |
38 fet_endgroup ("dots"); | 58 fet_endgroup ("dots"); |
LEFT | RIGHT |