LEFT | RIGHT |
(no file at all) | |
1 % Feta (not the Font-En-Tja) music font -- ancient accidentals | 1 % Feta (not the Font-En-Tja) music font -- ancient accidentals |
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 374 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
385 % -- z6; | 385 % -- z6; |
386 | 386 |
387 set_char_box (0.00 staff_space# + 1.0 stemthick#, | 387 set_char_box (0.00 staff_space# + 1.0 stemthick#, |
388 0.50 staff_space# + 1.0 stemthick#, | 388 0.50 staff_space# + 1.0 stemthick#, |
389 0.30 staff_space# + 0.5 stemthick#,· | 389 0.30 staff_space# + 0.5 stemthick#,· |
390 1.80 staff_space# + 0.5 stemthick#); | 390 1.80 staff_space# + 0.5 stemthick#); |
391 | 391 |
392 labels (1, 2, 3, 4, 5, 6); | 392 labels (1, 2, 3, 4, 5, 6); |
393 fet_endchar; | 393 fet_endchar; |
394 | 394 |
| 395 %%%%%%%%%%%%%%% |
| 396 %%% |
| 397 %%% Glyphs for Kievan Music Notation |
| 398 %%% |
| 399 %%%%%%%%%%%%%%% |
| 400 |
| 401 fet_beginchar ("kievan sharp", "kievan1"); |
| 402 % this draws the sharp |
| 403 % the sharp never occurs in Synodal music. |
| 404 % It can only be found in some early manuscripts |
| 405 z1 = (0.579 staff_space, 1.459 staff_space); |
| 406 z2 = (1.414 staff_space, -0.904 staff_space); |
| 407 z3 = (0.187 staff_space, 0.904 staff_space); |
| 408 x2 - x1 = x4 - x3; |
| 409 y1 - y2 = y3 - y4; |
| 410 z5 = (1.296 staff_space, 1.613 staff_space); |
| 411 z6 = (0.090 staff_space, -0.864 staff_space); |
| 412 z7 = (1.532 staff_space, 0.892 staff_space); |
| 413 x5 - x6 = x7 - x8; |
| 414 y5 - y6 = y7 - y8; |
| 415 pickup pensquare xscaled 0.167staff_space |
| 416 yscaled 0.167staff_space |
| 417 rotated -69.2; |
| 418 draw z1{dir -69.2} .. {dir -74.1}z2; |
| 419 draw z3{dir -69.2} .. {dir -74.1}z4; |
| 420 pickup pensquare xscaled 0.167staff_space |
| 421 yscaled 0.167staff_space |
| 422 rotated -114.6; |
| 423 draw z5{dir -114.6} ... {dir -125.0}z6; |
| 424 draw z7{dir -114.6} ... {dir -125.0}z8; |
| 425 set_char_box (0, 1.6 staff_space#, 1.6 staff_space#, 1.6 staff_space#); |
| 426 fet_endchar; |
| 427 |
| 428 fet_beginchar ("kievan flat", "kievanM1"); |
| 429 % this draws the flat sign |
| 430 % In Synodal music, the flat only occurs on the high B |
| 431 % but it may be used elsewhere in early manuscripts |
| 432 z1 = (0.452 staff_space, 1.772 staff_space); |
| 433 z2 = (0.481 staff_space, 1.735 staff_space); |
| 434 z3 = (0.464 staff_space, 1.626 staff_space); |
| 435 z4 = (0.249 staff_space, 0.322 staff_space); |
| 436 z5 = (0.432 staff_space, -0.762 staff_space); |
| 437 z6 = (0.611 staff_space, -0.583 staff_space); |
| 438 z7 = (0.611 staff_space, 0.224 staff_space); |
| 439 z8 = (0.652 staff_space, 0.513 staff_space); |
| 440 z9 = (0.900 staff_space, 0.684 staff_space); |
| 441 z10 = (0.872 staff_space, 0.640 staff_space); |
| 442 z11 = (0.811 staff_space, 0.359 staff_space); |
| 443 z12 = (0.811 staff_space, -0.587 staff_space); |
| 444 z13 = (0.338 staff_space, -1.063 staff_space); |
| 445 z14 = (0.016 staff_space, 0.196 staff_space); |
| 446 z15 = (0.204 staff_space, 1.316 staff_space); |
| 447 fill z13 |
| 448 .. z14{up} |
| 449 .. z15{dir 70.8} |
| 450 .. z1{dir 4.9} |
| 451 .. z2 |
| 452 .. z3 |
| 453 .. z4{down} |
| 454 .. z5 |
| 455 & z5 -- cycle; |
| 456 fill z5 -- z6 |
| 457 & z6 -- z7 |
| 458 & z7 -- z11 |
| 459 & z11 -- z12 |
| 460 & z12 -- z13 |
| 461 & z13 -- cycle; |
| 462 fill z7{up} .. z8 .. {dir 23}z9 |
| 463 & z9 .. z10{dir -135} .. {down}z11 |
| 464 & z11 -- cycle; |
| 465 set_char_box (0, 1.0 staff_space#, 1.0 staff_space#, 1.8 staff_space#); |
| 466 fet_endchar; |
395 | 467 |
396 fet_endgroup ("accidentals"); | 468 fet_endgroup ("accidentals"); |
LEFT | RIGHT |