Re: add dynamic n for “niente” to feta (issue 339090043 by address@hidden)

[lilypond]

On 2017/12/27 13:48:56, Malte Meyn wrote:
> (hopefully) let git-cl create sf issue after 500 server error

So this worked almost as expected :) Here follows a unified diff of the
metafont code for “mezzo” m and “niente” n:

--- M   2017-12-27 12:33:33.131465907 +0100
+++ N   2017-12-27 12:35:23.368302386 +0100
@@ -1,21 +1,12 @@
 %
 % NOTES:
 %
-% * Right stem is fatter and more straight than the left two stems.
-%
-% * The twiddle at the left is similar to the `p' twiddle.
-%
-% * The bottoms of the stems are blotted.
-%
-%
-% This is cut & paste programming.  Somehow three `i' shapes in two
-% characters (`p' and `m') -- doesn't seem worth the trouble of writing
-% a macro.
+% * This is mostly copied from dynamic m (see above)
 %

-code := 108;
+code := 109;

-fet_beginchar ("dynamic m", "m");
+fet_beginchar ("dynamic n", "n");
        save i_thick, i_angle, i_twiddle_thick;
        save i_twiddle_start_angle, i_twiddle_start_y;
        save i_twiddle_end_angle, i_left_space;
@@ -25,7 +16,7 @@
        pair center, idir, right_ending;
        path p;

-       set_char_box (0, 1.5 ex#, 0, 1.0 ex#);
+       set_char_box (0, 1.14 ex#, 0, 1.0 ex#);

        % should share code with p for twiddle.

@@ -38,8 +29,6 @@

        center = (0, 0);

-       currenttransform := currenttransform slanted slant;
-
        i_angle := 0;
        idir := dir (90 - i_angle);
        i_left_space = 16/80 ex;
@@ -84,52 +73,10 @@

        clearxy;

-       i_angle := -3.2;
-       idir := dir (90 - i_angle);
-       i_left_space := 14/80 ex;
-
-       penpos1 (serif_thick, -i_twiddle_start_angle);
-       z1r = right_ending;
-
-       y2l = ex+ overshoot;
-       z2l = .08 [z3l, z3r] + whatever * idir;
-       z2r = 5/8 [z1r, z3l] + whatever * idir;
-       y2r = y5l + 1/9 ex;
-       z2 = 1/2 [z2l, z2r];
-
-       penpos3 (i_thick, 0);
-       y3 = 0.5 bottom_blot + ypart center;
-       z3l = z5l + whatever * idir;
-
-       penpos4 (i_thick - bottom_blot, 0);
-       y4 = ypart center;
-       z4 - z3 = whatever * idir;
-
-       penpos5 (i_thick, 0);
-       z5l = right_ending + (i_left_space, 0);
-
-       fill simple_serif (z1l, z1r, 90)
-            ..tension 1.05.. z2r{right}
-            .. z5l{z3 - z5}
-            -- z3l
-            ..  z4l{right}
-            -- z4r{right}
-            .. z3r{z5 - z3}
-            -- z5r{z5 - z3}
-            ..tension 1.2.. z2l{left}
-            .. cycle;
-
-       right_ending := z5r;
-       penlabels (1, 2, 3, 4, 5);
-
-       %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-       clearxy;
-
        i_thick := 23/80 ex;
        i_angle := -6;
        idir := dir (90 - i_angle);
-       i_left_space := 14/80 ex;
+       i_left_space := 20/80 ex;

        penpos1 (serif_thick, -i_twiddle_start_angle);
        z1r = right_ending;


https://codereview.appspot.com/339090043/