summaryrefslogtreecommitdiff
path: root/fonts/knot/found.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/knot/found.mf')
-rw-r--r--fonts/knot/found.mf177
1 files changed, 177 insertions, 0 deletions
diff --git a/fonts/knot/found.mf b/fonts/knot/found.mf
new file mode 100644
index 0000000000..7bef786f9d
--- /dev/null
+++ b/fonts/knot/found.mf
@@ -0,0 +1,177 @@
+def foundation_left =
+ z0 = (.5w,h);
+ penpos0(croswid, a3);
+ z1 = z0;
+ penpos1(knotwid, a3);
+ z2 = (.75w, .75h);
+ penpos2(knotwid, a3);
+ z7 = (w, .75h);
+ penpos7(knotwid, a4);
+ z3 = z0r;
+ penpos3(knotwid, a2);
+ z4 = (.25w,.75h);
+ penpos4(knotwid, a2);
+ z5 = (.25w,.25h);
+ penpos5(knotwid, a3);
+ z6 = (w, .25h);
+ penpos6(knotwid, a3);
+
+ llrrexp(7);
+ penstroke z1e---z2e{right}---z7e;
+ penstroke z3e---z4e---z5e{right}---z6e;
+enddef;
+
+def foundation_right =
+ z0 = (.5w,h);
+ penpos0(croswid, a3);
+ z1 = z0;
+ penpos1(knotwid, a3);
+ z2 = (.75w,.75h);
+ penpos2(knotwid, a3);
+ z3 = (.75w,.25h);
+ penpos3(knotwid, a2);
+ z4 = (0w,.25h);
+ penpos4(knotwid, a1);
+ z5 = z0r;
+ penpos5(knotwid, a2);
+ z6 = (.25w,.75h);
+ penpos6(knotwid, a2);
+ z7 = (0w,.75h);
+ penpos7(knotwid, a2);
+
+ llrrexp(7);
+ penstroke z1e---z2e---z3e{left}---z4e;
+ penstroke z5e---z6e{left}---z7e;
+enddef;
+
+def foundation_ileft =
+ z0 = (.5w,h);
+ penpos0(croswid, a3);
+ z1 = z0;
+ penpos1(knotwid, a3);
+ z2 = z3r;
+ penpos2(knotwid, a3);
+ z3 = (w,.5h);
+ penpos3(croswid, a2);
+ z4 = z3;
+ penpos4(knotwid, a2);
+ z5 = (.75w,.25h);
+ penpos5(knotwid, a2);
+ z6 = (0w,.25h);
+ penpos6(knotwid, a1);
+ z7 = z0r;
+ penpos7(knotwid, a2);
+ z8 = (.25w,.75h);
+ penpos8(knotwid, a2);
+ z9 = (0w,.75h);
+ penpos9(knotwid, a2);
+
+ llrrexp(9);
+ penstroke z1e---z2e;
+ penstroke z4e---z5e{left}---z6e;
+ penstroke z7e---z8e{left}---z9e;
+enddef;
+
+def foundation_iright =
+ z0 = (.5w,h);
+ penpos0(croswid, a3);
+ z1 = z0;
+ penpos1(knotwid, a3);
+ z2 = (.75w,.75h);
+ penpos2(knotwid, a3);
+ z3 = (w,.75h);
+ penpos3(knotwid, a4);
+ z4 = z0r;
+ penpos4(knotwid, a2);
+ z5 = (0w,.5h);
+ penpos5(knotwid, a2);
+ z6 = z5;
+ penpos6(croswid, a2);
+ z7 = z6l;
+ penpos7(knotwid, a3);
+ z8 = (.25w,.25h);
+ penpos8(knotwid, a3);
+ z9 = (w,.25h);
+ penpos9(knotwid, a3);
+
+ llrrexp(9);
+ penstroke z1e---z2e{right}---z3e;
+ penstroke z4e---z5e;
+ penstroke z7e---z8e{right}---z9e;
+enddef;
+
+beginchar ("I", sqwid#, sqht#, 0); "found-b left";
+ foundation_left;
+endchar;
+
+beginchar ("J", sqwid#, sqht#, 0); "found-b right";
+ foundation_right;
+endchar;
+
+beginchar ("K", sqwid#, sqht#, 0); "found-b mid-l";
+ foundation_ileft;
+endchar;
+
+beginchar ("L", sqwid#, sqht#, 0); "found-b mid-r";
+ foundation_iright;
+endchar;
+
+beginchar ("M", sqwid#, sqht#, 0); "found-t right";
+ foundation_left;
+ currentpicture := currentpicture rotated 180 shifted (w, h);
+endchar;
+
+beginchar ("N", sqwid#, sqht#, 0); "found-b left";
+ foundation_right;
+ currentpicture := currentpicture rotated 180 shifted (w, h);
+endchar;
+
+beginchar ("O", sqwid#, sqht#, 0); "found-b mid-l";
+ foundation_ileft;
+ currentpicture := currentpicture rotated 180 shifted (w, h);
+endchar;
+
+beginchar ("P", sqwid#, sqht#, 0); "found-b mid-r";
+ foundation_iright;
+ currentpicture := currentpicture rotated 180 shifted (w, h);
+endchar;
+
+beginchar ("Q", sqwid#, sqht#, 0); "found-l top";
+ foundation_left;
+ currentpicture := currentpicture rotated 270 shifted (0, h);
+endchar;
+
+beginchar ("R", sqwid#, sqht#, 0); "found-l bot";
+ foundation_right;
+ currentpicture := currentpicture rotated 270 shifted (0, h);
+endchar;
+
+beginchar ("S", sqwid#, sqht#, 0); "found-l mid-t";
+ foundation_ileft;
+ currentpicture := currentpicture rotated 270 shifted (0, h);
+endchar;
+
+beginchar ("T", sqwid#, sqht#, 0); "found-l mid-b";
+ foundation_iright;
+ currentpicture := currentpicture rotated 270 shifted (0, h);
+endchar;
+
+beginchar ("U", sqwid#, sqht#, 0); "found-r bot";
+ foundation_left;
+ currentpicture := currentpicture rotated 90 shifted (w, 0);
+endchar;
+
+beginchar ("V", sqwid#, sqht#, 0); "found-r top";
+ foundation_right;
+ currentpicture := currentpicture rotated 90 shifted (w, 0);
+endchar;
+
+beginchar ("W", sqwid#, sqht#, 0); "found-r mid-b";
+ foundation_ileft;
+ currentpicture := currentpicture rotated 90 shifted (w, 0);
+endchar;
+
+beginchar ("X", sqwid#, sqht#, 0); "found-r mid-t";
+ foundation_iright;
+ currentpicture := currentpicture rotated 90 shifted (w, 0);
+endchar;