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

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

Issue 4951062: Glyphs for Kievan Notation (Closed)
Left Patch Set: 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 | « ly/engraver-init.ly ('k') | mf/parmesan-clefs.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 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
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");
LEFTRIGHT

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