LEFT | RIGHT |
(no file at all) | |
1 % Feta (not the Font-En-Tja) music font -- ancient script symbols | 1 % Feta (not the Font-En-Tja) music font -- ancient script symbols |
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) 2002--2012 Juergen Reuter <reuter@ipd.uka.de> | 4 % Copyright (C) 2002--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 220 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
231 draw_signum_congruentiae; | 231 draw_signum_congruentiae; |
232 labels (1, 2, 3, 4, 5, 6, 7, 8); | 232 labels (1, 2, 3, 4, 5, 6, 7, 8); |
233 fet_endchar; | 233 fet_endchar; |
234 | 234 |
235 | 235 |
236 fet_beginchar ("signum congruentiae down", "dsignumcongruentiae"); | 236 fet_beginchar ("signum congruentiae down", "dsignumcongruentiae"); |
237 draw_signum_congruentiae; | 237 draw_signum_congruentiae; |
238 xy_mirror_char; | 238 xy_mirror_char; |
239 fet_endchar; | 239 fet_endchar; |
240 | 240 |
| 241 %%%%%%%%%%%%% |
| 242 %%%% |
| 243 %%%% Code for Kievan Notation |
| 244 %%%% |
| 245 %%%%%%%%%%%%% |
| 246 |
| 247 fet_beginchar ("kievan end of piece (slash)", "barline.kievan"); |
| 248 % this draws the end of piece figure |
| 249 % this figure is placed at the end of the musical piece, after the staff |
| 250 save hair_thickness, thick_thickness, width, depth, height, padding; |
| 251 hair# = 1.9 linethickness#; |
| 252 thick# = 6.0 linethickness#; |
| 253 width = .8 staff_space; |
| 254 height# + depth# = 4 staff_space#; |
| 255 depth# = height# + hair# / 2; |
| 256 padding = .2 staff_space; |
| 257 |
| 258 set_char_box (0, 0, depth#, height#); |
| 259 define_pixels (hair, thick); |
| 260 |
| 261 x1r - x2l = width; |
| 262 y1 - y3r = d + h + linethickness / 2; |
| 263 z3 = z2; |
| 264 z4 = .5 [z1, z2] = (width / 2 + padding, hair / 8); |
| 265 z5 = (x2 - .17 staff_space, 9/10 [y2, y1]); |
| 266 z7 - z6 = (.5 staff_space, -.2 staff_space); |
| 267 .4 [z6, z7] = 7/6 [z2, z1]; |
| 268 |
| 269 pickup pencircle scaled blot_diameter; |
| 270 penpos1 (hair, 0); |
| 271 penpos2 (hair, 0); |
| 272 penpos3 (hair, -90); |
| 273 penpos4 (thick, 10); |
| 274 penpos5 (thick, 35); |
| 275 penpos6 (hair, -90); |
| 276 penpos7 (.5 thick, -120); |
| 277 |
| 278 penlabels (1, 2, 3, 4, 5, 6, 7); |
| 279 |
| 280 penstroke z1e |
| 281 -- z2e; |
| 282 |
| 283 fill simple_serif (z3l, z3r, 90){1.5 right} |
| 284 .. z4r |
| 285 .. z5r |
| 286 .. z6r |
| 287 .. simple_serif (z7r, z7l, 80) |
| 288 .. {left}z6l |
| 289 .. z5l |
| 290 .. z4l |
| 291 .. cycle; |
| 292 fet_endchar; |
241 | 293 |
242 fet_endgroup ("scripts"); | 294 fet_endgroup ("scripts"); |
LEFT | RIGHT |