Am 19.10.2010 11:14, schrieb Werner LEMBERG:
So the advice
---
The recommended calling sequence of mf2pt1 is
mf2pt1 --rounding=0.0001<other options> <font>
You need mf2pt1 version 2.1 or newer.
---
in README should read
cd mf/
ln -s out/mf2pt1.mem .
FONTFORGE=foo ../scripts/build/out/mf2pt1 --rounding=0.0001 feta13
Yes. For development, I simply copy all MF files and the mf2pt1 perl
file (and the mf2pt1.mp) to another directory, create the mem file and
run then mf2pt1 $(Q#|(B I don't like working directly within the git
repository.
Ok. I created a new branch and tried to improve the varsegno in there.
Now my mf knowledge is <cough> a bit </cough> rusty, so all I can come
up with
is attached in the patch.
Marc
Werner
From 1fa7fdb7d035eea56f406489a09dd496937c6474 Mon Sep 17 00:00:00 2001
From: Marc Hohl <m...@hohlart.de>
Date: Tue, 19 Oct 2010 11:44:07 +0200
Subject: [PATCH] Font: removing intersecting paths in varsegno
---
mf/feta-scripts.mf | 20 ++++++++++++++++----
1 files changed, 16 insertions(+), 4 deletions(-)
diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index 8496fd7..f87f716 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -1153,7 +1153,7 @@ fet_endchar;
fet_beginchar ("Varied Segno", "varsegno");
- save ht, wd, loopdist, loopangle;
+ save ht, wd, loopdist, loopangle, looptension;
save thin, med, thick;
save bulbradius, center;
pair center;
@@ -1166,6 +1166,7 @@ fet_beginchar ("Varied Segno", "varsegno");
loopdist = 4/3 staff_space;
loopangle = 35;
+ looptension = 1.1;
thick = 1/2 staff_space;
med = 1/4 staff_space;
@@ -1212,6 +1213,10 @@ fet_beginchar ("Varied Segno", "varsegno");
z12 = -center;
penpos12 (thick, 270 - loopangle);
+
+ x13 = x9;
+ y13 = y9 - loopdist;
+ penpos13 (thick, 270 - loopangle);
z1' = 4/3[z1l, z1r];
bulbradius = length (z1l - z1');
@@ -1224,16 +1229,23 @@ fet_beginchar ("Varied Segno", "varsegno");
.. z3e
.. z4e{dir (-loopangle)}
.. z5e{dir (-loopangle)}
+ .. tension looptension
.. z6e
- .. z7e
+ .. tension looptension
+ .. z7e{dir (180 - loopangle)}
+ .. tension looptension
.. z8e
+ .. tension looptension
.. z9e{dir (-loopangle)}
.. z10e{dir (-loopangle)}
+ .. tension looptension
.. z11e
- .. {dir (180 - loopangle)}z12e;
+ .. tension looptension
+ .. {dir (180 - loopangle)}z12e
+ .. {dir (180 - loopangle)}z13e;
addto currentpicture also currentpicture scaled -1;
- penlabels (1, 1', 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);
+ penlabels (1, 1', 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13);
% draw_staff (-2, 2, 0);
fet_endchar;
--
1.7.0.4
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel