Some fixes change outlines to ensure proper overlap handling with FontForge
(this doesn't alter the final shape, however).
One change (in `barline.kievan') slightly changes the shape to avoid gracing
intersections.
-fet_beginchar ("kievan sharp", "kievan1");
+fet_beginchar ("Kievan sharp", "kievan1");
% This draws the sharp.
% It never occurs in Synodal music and
% can only be found in some early manuscripts.
% This draws the sharp.
% It never occurs in Synodal music and
% can only be found in some early manuscripts.
-fet_beginchar ("kievan flat", "kievanM1");
+fet_beginchar ("Kievan flat", "kievanM1");
% This draws the flat sign.
% In Synodal music, the flat only occurs on the high B
% but it may be used elsewhere in early manuscripts.
% This draws the flat sign.
% In Synodal music, the flat only occurs on the high B
% but it may be used elsewhere in early manuscripts.
- & z5 -- cycle;
- fill z5 -- z6
- & z6 -- z7
- & z7 -- z11
- & z11 -- z12
- & z12 -- z13
- & z13 -- cycle;
- fill z7{up}
.. z8
.. {dir 23}z9
& z9
.. z10{dir -135}
.. {down}z11
.. z8
.. {dir 23}z9
& z9
.. z10{dir -135}
.. {down}z11
+ -- z12
+ -- z13
+ & cycle;
set_char_box (0, 1.0 staff_space#,
1.0 staff_space#, 1.8 staff_space#);
set_char_box (0, 1.0 staff_space#,
1.0 staff_space#, 1.8 staff_space#);
fill z1
.. z2{down}
.. z3
fill z1
.. z2{down}
.. z3
- & z3 -- z4
- & z4 -- z5
- & z5 .. {up}z6
- & z6{left} .. z7
- & z7 .. z8{up} .. z9
- & z9 .. {right}z10
- & z10 .. z11
- & z11 -- cycle;
+ -- z4
+ -- z5
+ .. {up}z6
+ & z6{left}
+ .. z7
+ & z7
+ .. z8{up}
+ .. z9
+ & z9
+ .. {right}z10
+ & z10
+ .. z11
+ -- cycle;
set_char_box (0, 1.5 staff_space#,
2.25 staff_space#, 0.55 staff_space#);
enddef;
set_char_box (0, 1.5 staff_space#,
2.25 staff_space#, 0.55 staff_space#);
enddef;
-fet_beginchar ("kievan tsefaut clef", "kievan.do");
+fet_beginchar ("Kievan tsefaut clef", "kievan.do");
% This draws the Tse-Fa-Ut clef; it is a variant alto clef that
% always occurs on the third line of the staff.
draw_kievan_do_clef;
fet_endchar;
% This draws the Tse-Fa-Ut clef; it is a variant alto clef that
% always occurs on the third line of the staff.
draw_kievan_do_clef;
fet_endchar;
-fet_beginchar ("mensural c clef", "kievan.do_change");
+fet_beginchar ("Kievan tsefaut clef", "kievan.do_change");
% This is the same thing as a do clef?
draw_kievan_do_clef;
fet_endchar;
% This is the same thing as a do clef?
draw_kievan_do_clef;
fet_endchar;
define_whole_pixels (kievan_dot_diam);
define_whole_pixels (kievan_dot_diam);
-fet_beginchar ("kievan augmentation dot", "dotkievan");
+fet_beginchar ("Kievan augmentation dot", "dotkievan");
% parameters for superellipse are right, top, left, bottom
fill superellipse ((kievan_dot_diam, 0),
(kievan_dot_diam / 2, kievan_dot_diam / 2),
% parameters for superellipse are right, top, left, bottom
fill superellipse ((kievan_dot_diam, 0),
(kievan_dot_diam / 2, kievan_dot_diam / 2),
-fet_beginchar ("kievan final note", "sM2kievan");
+fet_beginchar ("Kievan final note", "sM2kievan");
% This draws the Final Note.
% It is the last note of a piece of music
% equivalent to having a whole note and fermata in CMN.
% This draws the Final Note.
% It is the last note of a piece of music
% equivalent to having a whole note and fermata in CMN.
path p;
p := (0, blank_space)
-- (0, staff_space - blank_space)
path p;
p := (0, blank_space)
-- (0, staff_space - blank_space)
- -- (note_width, staff_space - blank_space)
- -- (note_width, blank_space)
+ -- (note_width + 0.5 vert_bar_thickness,
+ staff_space - blank_space)
+ -- (note_width + 0.5 vert_bar_thickness, blank_space)
-- cycle;
fill p;
fill p reflectedabout ((0, 0), (1, 0));
-- cycle;
fill p;
fill p reflectedabout ((0, 0), (1, 0));
-fet_beginchar ("kievan recitative mark", "sM1kievan");
+fet_beginchar ("Kievan recitative mark", "sM1kievan");
inner_width# := 4 * staff_space#;
vert_bar_thickness# := 2 * stafflinethickness#;
vert_bar_height# := staff_space# - stafflinethickness#;
inner_width# := 4 * staff_space#;
vert_bar_thickness# := 2 * stafflinethickness#;
vert_bar_height# := staff_space# - stafflinethickness#;
define_blacker_pixels (vert_bar_thickness);
path p;
define_blacker_pixels (vert_bar_thickness);
path p;
- p := (3 * vert_bar_thickness, blank_space)
- -- (3 * vert_bar_thickness, vert_bar_height - blank_space)
- -- (3 * vert_bar_thickness + inner_width,
+ p := (2.5 * vert_bar_thickness, blank_space)
+ -- (2.5 * vert_bar_thickness, vert_bar_height - blank_space)
+ -- (3.5 * vert_bar_thickness + inner_width,
vert_bar_height - blank_space)
vert_bar_height - blank_space)
- -- (3 * vert_bar_thickness + inner_width, blank_space)
+ -- (3.5 * vert_bar_thickness + inner_width, blank_space)
-- cycle;
fill p;
fill p reflectedabout ((0, 0), (1, 0));
-- cycle;
fill p;
fill p reflectedabout ((0, 0), (1, 0));
fill z1{dir 8.6}
.. z2
.. z3
fill z1{dir 8.6}
.. z2
.. z3
- & z3 .. z4 .. z5
- & z5 -- z6
- & z6 .. z7 .. z8
- & z8{left} .. z9
- & z9 .. z10 ... {dir 75}cycle;
+ & z3
+ .. z4
+ .. z5
+ -- z6
+ .. z7
+ .. z8
+ & z8{left}
+ .. z9
+ & z9
+ .. z10
+ ... {dir 75}cycle;
set_char_box (0, 1.02 staff_space#,
2.50 staff_space#, 0.40 staff_space#);
set_char_box (0, 1.02 staff_space#,
2.50 staff_space#, 0.40 staff_space#);
fill z1{dir -6.9}
.. z2
.. z3
fill z1{dir -6.9}
.. z2
.. z3
- & z3 .. z4 .. z5
- & z5 -- z6
- & z6 .. z7 .. z8
- & z8{left} .. z9
- & z9 .. z10 ... {dir -76.9}cycle;
+ & z3
+ .. z4
+ .. z5
+ -- z6
+ .. z7
+ .. z8
+ & z8{left}
+ .. z9
+ & z9
+ .. z10
+ ... {dir -76.9}cycle;
set_char_box (0, 1.02 staff_space#,
0.40 staff_space#, 2.6 staff_space#);
set_char_box (0, 1.02 staff_space#,
0.40 staff_space#, 2.6 staff_space#);
fill z1
.. z2{down}
.. z3
fill z1
.. z2{down}
.. z3
- & z3 -- z4
- & z4 .. z5{up} .. z6
- & z6 .. z7{left} .. z8
- & z8 -- z9
- & z9 .. {right}z10
- & z10{up} .. z11
- & z11 -- cycle;
+ -- z4
+ .. z5{up}
+ .. z6
+ & z6
+ .. z7{left}
+ .. z8
+ -- z9
+ .. {right}z10
+ & z10{up}
+ .. z11
+ -- cycle;
set_char_box (0, 1.06 staff_space#,
1.6 staff_space#, 1.0 staff_space#);
set_char_box (0, 1.06 staff_space#,
1.6 staff_space#, 1.0 staff_space#);
fill z1
.. z2{down}
.. z3
fill z1
.. z2{down}
.. z3
- & z3 -- z4
- & z4 .. z5{up} .. z6
- & z6 .. z7{left} .. z8
- & z8 -- z9
- & z9 .. z10{right}
- & z10 .. z11 .. z12
- & z12 -- cycle;
+ -- z4
+ .. z5{up}
+ .. z6
+ & z6
+ .. z7{left}
+ .. z8
+ -- z9
+ .. z10{right}
+ & z10
+ .. z11
+ .. z12
+ -- cycle;
set_char_box (0, 1.1 staff_space#,
1.0 staff_space#, 1.4 staff_space#);
set_char_box (0, 1.1 staff_space#,
1.0 staff_space#, 1.4 staff_space#);
- & z2 -- z3
- & z3{right} .. z4
- & z4 .. z5{down} .. z6
- & z6 -- z7
- & z7 .. z8{up} .. z9
- & z9 .. {left}z10
- & z10{dir 78.7} .. z11
- & z11 .. {left}z12
- & z12{dir 78.7} .. {dir 62}cycle;
+ -- z3{right}
+ .. z4
+ & z4
+ .. z5{down}
+ .. z6
+ -- z7
+ .. z8{up}
+ .. z9
+ & z9
+ .. {left}z10
+ & z10{dir 78.7}
+ .. z11
+ & z11
+ .. {left}z12
+ & z12{dir 78.7}
+ .. {dir 62}cycle;
set_char_box (0, 1.25 staff_space#,
3.0 staff_space#, 0.5 staff_space#);
set_char_box (0, 1.25 staff_space#,
3.0 staff_space#, 0.5 staff_space#);
fill z1{dir -6.9}
.. z2
.. z3
fill z1{dir -6.9}
.. z2
.. z3
- & z3 .. z4 .. z5
- & z5 -- z6
- & z6 .. z7 .. z8
- & z8{left} .. z9
- & z9 .. z10 ... {dir -76.9}cycle;
+ & z3
+ .. z4
+ .. z5
+ -- z6
+ .. z7
+ .. z8
+ & z8{left}
+ .. z9
+ & z9
+ .. z10
+ ... {dir -76.9}cycle;
% now, draw the stem
z11 = (0.033 staff_space, 2.823 staff_space);
% now, draw the stem
z11 = (0.033 staff_space, 2.823 staff_space);
- & z12 .. z13{down} .. z14
- & z14 -- z15
- & z15 .. z16 .. z17{up} .. cycle;
+ .. z13{down}
+ .. z14
+ -- z15
+ .. z16
+ .. z17{up}
+ .. cycle;
set_char_box (0, 1.0 staff_space#,
0.4 staff_space#, 2.9 staff_space#);
set_char_box (0, 1.0 staff_space#,
0.4 staff_space#, 2.9 staff_space#);
z7 - z6 = (.5 staff_space, -.2 staff_space);
.4 [z6, z7] = 7/6 [z2, z1];
z7 - z6 = (.5 staff_space, -.2 staff_space);
.4 [z6, z7] = 7/6 [z2, z1];
- pickup pencircle scaled blot_diameter;
penpos1 (hair, 0);
penpos2 (hair, 0);
penpos3 (hair, -90);
penpos1 (hair, 0);
penpos2 (hair, 0);
penpos3 (hair, -90);
- fill simple_serif (z3l, z3r, 90){1.5 right}
+ fill z3l
+ -- z2l{z2 - z1}
+ .. z3r{right}
.. {left}z6l
.. z5l
.. z4l
.. {left}z6l
.. z5l
.. z4l
fet_endchar;
fet_endgroup ("scripts");
fet_endchar;
fet_endgroup ("scripts");