diff options
Diffstat (limited to 'fonts/orkhun/orhant11.mf')
-rw-r--r-- | fonts/orkhun/orhant11.mf | 99 |
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 + + |