factor out autometric_parameter declarations

diff --git a/mf/declare-autometric-parameters.mf b/mf/declare-autometric-parameters.mf
new file mode 100644 (file)
index 0000000..89bf921
--- /dev/null
+++ b/mf/declare-autometric-parameters.mf
@@ -0,0 +1,9 @@
+% TODO: i'm not sure if the name is right - is this declaring or something else?
+
+autometric_parameter ("staffsize", staffsize#);
+autometric_parameter ("stafflinethickness", stafflinethickness#);
+autometric_parameter ("staff_space", staff_space#);
+autometric_parameter ("linethickness", linethickness#);
+autometric_parameter ("black_notehead_width", black_notehead_width#);
+autometric_parameter ("ledgerlinethickness", ledgerlinethickness#);
+autometric_parameter ("blot_diameter", blot_diameter#);

diff --git a/mf/feta-flags-generic.mf b/mf/feta-flags-generic.mf
index 64042220f4335d2f09dfe2c5a43d65d501418842..7b41062bd66abf84944803cbbdd2f3069f1cb56e 100644 (file)
--- a/mf/feta-flags-generic.mf
+++ b/mf/feta-flags-generic.mf
@@ -31,12 +31,5 @@ fet_beginfont ("feta", design_size, "fetaMusic");
 
 input feta-flags;
 
-autometric_parameter ("staffsize", staffsize#);
-autometric_parameter ("stafflinethickness", stafflinethickness#);
-autometric_parameter ("staff_space", staff_space#);
-autometric_parameter ("linethickness", linethickness#);
-autometric_parameter ("black_notehead_width", black_notehead_width#);
-autometric_parameter ("ledgerlinethickness", ledgerlinethickness#);
-autometric_parameter ("blot_diameter", blot_diameter#);
-
+       input declare-autometric-parameters;
 fet_endfont;

diff --git a/mf/feta-noteheads-generic.mf b/mf/feta-noteheads-generic.mf
index 47293eb13c4428aa6afa40a3ec025597950d488f..c7da14daa6ebb55d1467e7b98b7fdda0e8a13a64 100644 (file)
--- a/mf/feta-noteheads-generic.mf
+++ b/mf/feta-noteheads-generic.mf
@@ -31,12 +31,5 @@ fet_beginfont ("feta", design_size, "fetaMusic");
 
 input feta-noteheads;
 
-autometric_parameter ("staffsize", staffsize#);
-autometric_parameter ("stafflinethickness", stafflinethickness#);
-autometric_parameter ("staff_space", staff_space#);
-autometric_parameter ("linethickness", linethickness#);
-autometric_parameter ("black_notehead_width", black_notehead_width#);
-autometric_parameter ("ledgerlinethickness", ledgerlinethickness#);
-autometric_parameter ("blot_diameter", blot_diameter#);
-
+       input declare-autometric-parameters;
 fet_endfont;

diff --git a/mf/feta-other-generic.mf b/mf/feta-other-generic.mf
index 6012e2adee7f31fc474ed7837a508fe4a10e8398..4058b91a79eb3b74207353739642ba212f0881d2 100644 (file)
--- a/mf/feta-other-generic.mf
+++ b/mf/feta-other-generic.mf
@@ -43,12 +43,6 @@ if test = 0:
        input feta-ties;
 fi
 
-autometric_parameter ("staffsize", staffsize#);
-autometric_parameter ("stafflinethickness", stafflinethickness#);
-autometric_parameter ("staff_space", staff_space#);
-autometric_parameter ("linethickness", linethickness#);
-autometric_parameter ("black_notehead_width", black_notehead_width#);
-autometric_parameter ("ledgerlinethickness", ledgerlinethickness#);
-autometric_parameter ("blot_diameter", blot_diameter#);
 
+       input declare-autometric-parameters;
 fet_endfont;