summaryrefslogtreecommitdiff
path: root/fonts/orkhun/orhant11.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/orkhun/orhant11.mf')
-rw-r--r--fonts/orkhun/orhant11.mf99
1 files changed, 99 insertions, 0 deletions
diff --git a/fonts/orkhun/orhant11.mf b/fonts/orkhun/orhant11.mf
new file mode 100644
index 0000000000..2725200e96
--- /dev/null
+++ b/fonts/orkhun/orhant11.mf
@@ -0,0 +1,99 @@
+mode_def testing=
+ pixels_per_inch:=300*4;
+ blacker:=.1;
+ o_correction:=1;
+ fillin:=.01;
+ proofing:=2;
+ fontmaking:=0;
+ tracingtitles:=1;
+enddef;
+if unknown mode:
+mode:=testing; fi
+mode_setup;
+turningcheck := 0;
+
+if mode=testing: screenstrokes; fi
+
+% parameters that control what a wedge looks like.
+font_identifier := "bard";
+font_size 11pt#;
+u# := 1.2pt#;
+pw# := 2u#;
+runew# := 2pw#;
+runeh# := 4pw#;
+letter_fit# := 2pw#/3;
+font_normal_space := 2runew#;
+font_normal_stretch := 2runew#/3;
+font_normal_shrink := 4runew#/3;
+
+pen_thick# := u#/3;
+
+define_pixels(pw, runew, runeh, pen_thick, letter_fit)
+
+def penoct = makepen((.866,.5)--(.5,.866)--(-.5,.866)--(-.866,.5)
+ --(-.866,-.5)--(-.5,-.866)--(.5,-.866)--(.866,-.5)--cycle)
+enddef;
+
+def runepen = pickup penoct scaled pen_thick rotated 45; enddef;
+
+def adjust_fit(expr left_adj, right_adj) =
+ l := -hround(left_adj*hppp)-letter_fit;
+ interim xoffset := -l;
+ charwd := charwd+2letter_fit# + left_adj + right_adj;
+ r := l+hround(charwd*hppp);
+ w := r-hround(right_adj*hppp) - letter_fit;
+enddef;
+
+extra_beginchar := extra_beginchar & "runepen;adjust_fit(0,0);";
+
+def makebox(text r) =
+ r((-letter_fit,0), (w+letter_fit,0));
+ r((-letter_fit,h), (w+letter_fit,h));
+ r((-letter_fit,0), (-letter_fit,h));
+ r((w+letter_fit,0), (w+letter_fit,h));
+ r((0,0), (0,h));
+ r((w,0), (w,h));
+ if charic<>0:
+ r((w+charic*hppp,h.o_),(w+charic*hppp,.5h.o_));
+ fi
+enddef;
+
+% ============================================
+% Number 0, 19.07.93 jhl
+% ============================================
+beginchar("T",pw#,runeh#,0);
+z3 = (w/2, 0); %z3 = (w, 0);
+z1 = (w/7, h/4); %z1 = (0, h/2);
+z2 = (w/2, h/2); %z2 = (w, h);
+z4 = (6w/7, h/4); %z4 = (2w, h/2);
+z6 = (0, 7h/10); %z6 = (-w/5, 4h/5);
+z7 = (w, 7h/10); %z7 = (11w/5, 4h/5);
+z5 = (w/2, h); %z5 = (w, 11h/6);
+draw z1--z2--z4--z3--z1;
+draw z2--z5--z6;
+draw z5--z7;
+endchar;
+
+beginchar("A",pw#,runeh#,0);
+z1 = (0, h/5); %z1 = (0, h/3);
+z2 = (w/2, 0); %z2 = (w, 0);
+z3 = (w/2, h); %z3 = (w, 11h/6);
+z4 = (w, 4h/5); %z4 = (2w, 3h/2);
+draw z1--z2--z3--z4;
+endchar;
+
+beginchar("B",pw#,runeh#,0);
+z1 = (0, 0); %z1 = (w/4, 0);
+z2 = (w, 0); %z2 = (3w/4, 0);
+z3 = (-w/4, h/3); %z3 = (0, h/2);
+z7 = (5w/4, h/3); %z7 = (w, h/2);
+z5 = (w/2, h); %z5 = (w/2, h);
+z4 =.5[z3,z5]; %z4 =.5[z3,z5];
+z6 =.5[z5,z7]; %z6 =.5[z5,z7];
+draw z1--z6;
+draw z2--z4;
+draw z3--z5--z7;
+endchar;
+end
+
+