diff options
Diffstat (limited to 'language/mongolian/mxd/mfinput')
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdatoms.mf | 210 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdcodes.mf | 119 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdglyph.mf | 1020 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdligs.mf | 72 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdparmb.mf | 64 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdparmr.mf | 64 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdrb.mf | 19 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdrm.mf | 19 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdsb.mf | 19 | ||||
-rw-r--r-- | language/mongolian/mxd/mfinput/mxdsm.mf | 19 |
10 files changed, 1625 insertions, 0 deletions
diff --git a/language/mongolian/mxd/mfinput/mxdatoms.mf b/language/mongolian/mxd/mfinput/mxdatoms.mf new file mode 100644 index 0000000000..4c47bf7723 --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdatoms.mf @@ -0,0 +1,210 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdatoms.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def vowelcarrier = + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + x3=scribble+1/3[x1,x8]; + z3=(x3,y2+scribble); + z4=(scribble+x3,y1+scribble); + x5=scribble+2/3[x1,x8]; + z5=(x5,y1+scribble); + z6=(scribble+x5,y2+scribble); + z7=(scribble+x8,y2+scribble); + rt z8=(scribble+margin+awidth,y1+scribble); + draw z1--z2--z3--z4--z5--z6--z7--z8; +enddef; + +def empty_vowel = + pickup pensquare scaled .5thick; + undraw z1--z2--z3--z4--z5--z6--z7--z8; +enddef; + +def vowel_i (expr li, re) = % Vowel i + numeric x[]; numeric y[]; + x1=li; + x2=x4=1/2[x1,x3]; + x3=re; + y1=y3=height; + y2=2/3[height,vheight]; + y4=vheight; + fill z1..z2..z3 & z3..z4..z1 & cycle; + numeric x[]; numeric y[]; +enddef; + +def vowel_e (expr li, re) = % Vowel oe + numeric x[]; numeric y[]; + squarepen; + top lft z1=(li,vheight); + rt z2=(re,y1); + draw z1--z2; + pickup pensquare scaled 1/3thick; + top rt z3=(re,vheight); + bot z4=(x3,height); + draw z3--z4; + numeric x[]; numeric y[]; +enddef; + +def vowel_ue (expr li, re, v) = % Vowel oe + numeric x[]; numeric y[]; + squarepen; + bot lft z1=(li,-depth-v); + rt z2=(re,y1); + draw z1--z2; + pickup pensquare scaled 1/3thick; + bot rt z3=(re,-depth-v); + top z4=(x3,-v); + draw z3--z4; + numeric x[]; numeric y[]; +enddef; + +def vowel_u (expr li, re, v) = % Vowel i + numeric x[]; numeric y[]; + x1=li; + x2=x4=1/2[x1,x3]; + x3=re; + y1=y3=-v; + y2=2/3[y1,y4]; + y4=-depth-v; + fill z1..z2..z3 & z3..z4..z1 & cycle; + numeric x[]; numeric y[]; +enddef; + +def vowel_o (expr li, re) = % Vowel o + numeric x[]; numeric y[]; + z1r=(li,vheight); + z2r=(x3-.75thick,vheight); + z3l=(1/2[x1,x5],height); + z4r=(x3+.75thick,vheight); + z5r=(re,vheight); + penpos1(thick,100); + penpos2(thick,90); + penpos3(thin,90); + penpos4(thick,90); + penpos5(thick,80); + penstroke z1e--z2e--z3e--z4e--z5e; + numeric x[]; numeric y[]; +enddef; + +def vowel_oe (expr li, re) = % Vowel oe + numeric x[]; numeric y[]; + squarepen; + top lft z1=(li,vheight); + rt z2=(re,y1); + z3=(1/2[x1,x2],y1); + bot z4=(x3,height); + draw z1--z2; draw z3--z4; + numeric x[]; numeric y[]; +enddef; + +def kya = % Similar to kra, we build u-, ue-ligatures! + squarepen; + bot lft z1=(scribble+margin,0+scribble); + top z2=(scribble+x1,height+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + z5=(scribble+1/2[x2,x3],y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4--z5--z6; + z7=(scribble+margin,-0/8depth+scribble); + z8=(scribble+1/2[x7,x9],-3/4depth+scribble); + z9=(scribble+1/2[x7,x11],-0/8depth+scribble); + z10=(scribble+1/2[x9,x11],y8+scribble); + z11=(scribble+margin+cwidth,y7+scribble); + z12=(scribble+x10,-2/4depth+scribble); + z13=(scribble+x8,y12+scribble); + fill z7..z8..z9 & z9..z10..z11 & z11..z12..z9 & z9..z13..z7 & cycle; +enddef; + +def kra = % We define kra due to its enormous underlength + % which requires special -u, -ue-ligatures + squarepen; + top lft z1=(scribble+margin,height+scribble); + top rt z2=(scribble+cwidth+margin,height+scribble); + bot z3=(scribble+x2,-depth+n+scribble); + z4=(scribble+x1,1/2height+scribble); + bot z5=(scribble+x1,0+scribble); + z6=(scribble+1/2[x1,x2],y5+scribble); + z7=(scribble+x6,y1+scribble); + draw z1--z2--z3; + draw z4--z5--z6--z7; + z8l=(scribble+cwidth+margin,-depth+scribble); + penpos8(2/3thick,90); % + z9r=(scribble+1/3[x1,x2],-1/3depth+scribble); + penpos9(2/3thick,90); % + z10=(scribble+margin,-2/3depth+scribble); + penpos10(2/3thick,90); % + penstroke z8e..z9e..z10e; +enddef; + +def kla = % Well, same reason as kya and kra! + squarepen; + top z1=(scribble+1/2[x4,x5],height+scribble); + bot z2=(scribble+x1,0+scribble); + lft z3=(scribble+margin,y2+scribble); + z4=(scribble+x3,y1+scribble); + rt z5=(scribble+margin+cwidth,y1+scribble); + bot z6=(scribble+x5,0+scribble); + draw z1--z2--z3--z4--z5--z6; + z11r=(scribble+margin+cwidth,0+scribble); + penpos11(thick,0); % + z12r=(scribble+3/4[x3,x5],-3/4depth+scribble); + penpos12(3/4thick,-90); % + z13l=(scribble+1/4[x3,x5],-1/4depth+scribble); + penpos13(3/4thick,-90); % + z14l=(scribble+margin,-depth+scribble); + penpos14(thick,0); % + penstroke z11e..z12e..z13e..z14e; +enddef; + +def b = % The character b + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + rt z3=(scribble+margin+bwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + draw z1--z2--z3--z4; +enddef; + +def basic_r = % The character r. We repeat in another letter. + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + z3=(scribble+1/2[x1,x2],y1+scribble); + z4=(scribble+x3,1/2height+scribble); + bot z5=(scribble+x1,0+scribble); + z6=(scribble+x1,y4+scribble); + z7=(scribble+x2,y4+scribble); + z8=(scribble+x2,y5);; + draw z1--z2; draw z3--z4; draw z5--z6--z7--z8; +enddef; + +def basic_w = % The character w + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + rt z3=(scribble+margin+bwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + draw z1--z2--z3--z4--cycle; +enddef; + +def basic_l = % The character l, needed for a few things. + squarepen; + bot lft z1=(scribble+margin,0+scribble); + top z2=(scribble+x1,height+scribble); + z3=(scribble+1/2[x2,x6],y2+scribble); + z4=(scribble+x3,y1+scribble); + rt z5=(scribble+margin+cwidth,y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4--z5--z6; +enddef; + diff --git a/language/mongolian/mxd/mfinput/mxdcodes.mf b/language/mongolian/mxd/mfinput/mxdcodes.mf new file mode 100644 index 0000000000..4042fc5cb5 --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdcodes.mf @@ -0,0 +1,119 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdcodes.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +MXD_INIT := 123; % "{" "Xewtee Dorboljin Initial" +MXD_STOP := 46; % "." "Punctuation" +MXD_DVC := 96; % "`" "Dummy Vowel Carrier" +MXD_EVI := 128; % " " "Empty Vowel I" +MXD_EVE := 129; % " " "Empty Vowel E" +MXD_EVUE := 130; % " " "Empty Vowel UE" +MXD_EVU := 131; % " " "Empty Vowel U" +MXD_EVO := 132; % " " "Empty Vowel O" +MXD_EVOE := 133; % " " "Empty Vowel OE" +MXD_VC := 39; % "'" "Vowel Carrier" +MXD_VI := 136; % " " "Vowel I" +MXD_VE := 137; % " " "Vowel E" +MXD_VUE := 138; % " " "Vowel UE" +MXD_VU := 139; % " " "Vowel U" +MXD_VO := 140; % " " "Vowel O" +MXD_VOE := 141; % " " "Vowel OE" +MXD_LVM := 45; % "-" "Long Vowel Marker" +MXD_I := 105; % "i" "Vowel i" +MXD_E := 101; % "e" "Vowel e" +MXD_UE := 85; % "U" "Vowel ue" +MXD_U := 117; % "u" "Vowel u" +MXD_O := 111; % "o" "Vowel o" +MXD_OE := 79; % "O" "Vowel oe" +MXD_DU := 87; % "W" "Diphtong u" +MXD_DI := 73; % "I" "Diphtong i" +MXD_G := 103; % "g" "Consonant g" +MXD_K := 107; % "k" "Consonant k" +MXD_DN := 120; % "\d n" "Consonant dotted n" +MXD_Z := 122; % "z" "Consonant z" +MXD_C := 99; % "c" "Consonant c" +MXD_NNN := 61; % "\=n" "Consonant \=n" +MXD_D := 100; % "d" "Consonant d" +MXD_T := 116; % "t" "Consonant t" +MXD_N := 110; % "n" "Consonant n" +MXD_B := 98; % "b" "Consonant b" +MXD_LIGBI := 144; % "bi" "Ligature bi" +MXD_LIGBE := 145; % "be" "Ligature be" +MXD_LIGBUE := 146; % "bue" "Ligature bue" +MXD_LIGBU := 147; % "bu" "Ligature bu" +MXD_LIGBO := 148; % "bo" "Ligature bo" +MXD_LIGBOE := 149; % "boe" "Ligature boe" +MXD_P := 112; % "p" "Consonant p" +MXD_M := 109; % "m" "Consonant m" +MXD_Y := 121; % "y" "Consonant y" +MXD_R := 114; % "r" "Consonant r" +MXD_W := 119; % "w" "Consonant w" +MXD_LIGWI := 152; % "wi" "Ligature wi" +MXD_LIGWE := 153; % "we" "Ligature we" +MXD_LIGWUE := 154; % "wue" "Ligature wue" +MXD_LIGWU := 155; % "wu" "Ligature wu" +MXD_LIGWO := 156; % "wo" "Ligature wo" +MXD_LIGWOE := 157; % "woe" "Ligature woe" +MXD_L := 108; % "l" "Consonant l" +MXD_SH := 36; % "sh" "Consonant sh" +MXD_S := 115; % "s" "Consonant s" +MXD_H := 104; % "h" "Consonant h" +MXD_KDS := 33; % "kds" "Consonant k\d s" +MXD_A := 97; % "a" "Vowel a" +MXD_LIGRI := 37; % "ri" "Ligature ri" +MXD_LIGLI := 38; % "li" "Ligature li" +MXD_OM := 48; % "om" "Diacritic om" +MXD_EH := 72; % "H" "Empty H" +MXD_SG := 40; % "\sg" "Consonant sg" +MXD_GH := 41; % "gh" "Consonant gh" +MXD_J := 106; % "j" "Consonant j" +MXD_JH := 44; % "jh" "Consonant jh" +MXD_DT := 84; % "dt" "Consonant \d t" +MXD_DTH := 49; % "dth" "Consonant \d th" +MXD_DD := 50; % "dd" "Consonant \d d" +MXD_DDH := 51; % "ddh" "Consonant \d dh" +MXD_DDN := 52; % "ddn" "Consonant ddn" +MXD_DDD := 53; % "_d" "Consonant \_d" +MXD_DDDH := 54; % "_dh" "Consonant \_dh" +MXD_DB := 55; % "_b" "" +MXD_DBH := 56; % "_bh" "Consonant \_bh" +MXD_DS := 57; % "\d s" "Consonant \d s" +MXD_KY := 58; % "ky" "Ligature ky" +MXD_LIGKYUE := 178; % "kyue" "Ligature kyue" +MXD_LIGKYU := 179; % "kyu" "Ligature kyu" +MXD_KR := 59; % "kr" "Ligature kr" +MXD_KRUE := 176; % "krue" "Ligature krue" +MXD_KRU := 177; % "kru" "Ligature kru" +MXD_KL := 60; % "kl" "Ligature kl" +MXD_KLUE := 180; % "klue" "Ligature klue" +MXD_KLU := 181; % "klu" "Ligature klu" +MXD_KM := 62; % "km" "Ligature km" +MXD_KK := 63; % "kk" "Ligature kk" +MXD_DNK := 65; % "\.nk" "Ligature dnk" +MXD_NC := 69; % "\=nc" "Ligature nc" +MXD_DDNT := 124; % "\d n\d t" "Ligature ddnt" +MXD_NT := 126; % "nt" "Ligature nt" +MXD_MP := 80; % "mp" "Ligature mp" +MXD_LK := 89; % "lk" "Ligature lk" +MXD_SHK := 91; % "\vsk" "Ligature shk" +MXD_SK := 93; % "sk" "Ligature sk" +MXD_RK := 102; % "rk" "Ligature rk" +MXD_ZZ := 90; % "Z" "Undefined Z" +MXD_CC := 67; % "C" "Undefined C" +MXD_JJ := 74; % "J" "Undefined J" +MXD_DVC := 96; % "" "" +MXD_DVC := 96; % "" "" +MXD_DVC := 96; % "" "" +MXD_DVC := 96; % "" "" +MXD_EJ := 74; % "eJ" "Consonant Empty J" +MXD_X := 88; % "X" "Consonant X" +MXD_Q := 113; % "q" "Consonant q" +MXD_ACHUNG := 64; % "'a" "Vowel a chung" +% vim:ts=16 diff --git a/language/mongolian/mxd/mfinput/mxdglyph.mf b/language/mongolian/mxd/mfinput/mxdglyph.mf new file mode 100644 index 0000000000..7a4868051e --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdglyph.mf @@ -0,0 +1,1020 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdglyph.mf +% Date: Nov. 5th, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package drbl4tex +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%% This font contains the Xewtee Dorboljin alphabet. %%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%%%%%%%%% Character definitions. %%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(MXD_INIT,fullcw#,vheight#+14thin#,depth#); % + "Xewtee Dorboljin Initial"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + bot rt z3=(scribble+cwidth+margin,0+scribble); + z4=(scribble+x3,y1+scribble); + z5=(scribble+1/2[x1,x4],y1+scribble); + z6=(scribble+x5,1/2[y1,y2]+scribble); + draw z1--z2--z3--z4--z5--z6; + + % Mond + z26=(scribble+x1,vheight+scribble); + z27=(scribble+x5,height+thin+scribble); + z28=(scribble+x3,y26+scribble); + z29=(scribble+x5,y27+1.1thin+scribble); + fill z26..z27..z28 & z28..z29..z26 & cycle; + + % Sonne + pickup pencircle scaled 0.8thin; + z30=(scribble+x5,y29+thin+scribble); + z31=(scribble+x5,y30+4thin+scribble); + draw z30..z31..cycle; + + % Feuer + z32=(scribble+x5,y31+5thin+thin+scribble); + penpos32(epsilon,0); % + z33=(scribble+x5-1.5thin,y32-1.5thin+scribble); + penpos33(.75thin,0); % + z34=(scribble+x5,y31+2thin+scribble); + penpos34(.75thin,90); % + z35=(scribble+x5+1.5thin,y33+thin+scribble); + penpos35(.75thin,180); % + z36=(scribble+x5,y32+4thin+scribble); + penpos36(epsilon,180); % + penstroke z32e{down}..z33e..z34e..z35e{dir 135}..{up}z36e; +endchar; + +beginchar(MXD_STOP,2margin#+thick#,height#+2pt#,0); % + "Punctuation"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + draw z1--z2; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Der leere Vokaltraeger hat seinen eigenen Satz Ligaturen! +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MXD_DVC,fullaw#,height#+2pt#,depth#); % + "Dummy Vowel Carrier"; + vowelcarrier; + empty_vowel; +endchar; + +beginchar(MXD_EVI, fullaw#,vheight#+2pt#,depth#); % + "Empty Vowel I"; + vowel_i(scribble+margin,margin+awidth+scribble); + vowelcarrier; + empty_vowel; +endchar; + +beginchar(MXD_EVE, fullaw#,vheight#+2pt#,depth#); % + "Empty Vowel E"; + vowel_e(scribble+margin,margin+awidth+scribble); + vowelcarrier; + empty_vowel; +endchar; + +beginchar(MXD_EVUE, fullaw#,height#+2pt#,depth#); % + "Empty Vowel UE"; + vowel_ue(scribble+margin,margin+awidth,0+scribble); + vowelcarrier; + empty_vowel; +endchar; + +beginchar(MXD_EVU, fullaw#,height#+2pt#,depth#); % + "Empty Vowel U"; + vowel_u(scribble+margin,margin+awidth,0+scribble); + vowelcarrier; + empty_vowel; +endchar; + +beginchar(MXD_EVO, fullaw#,vheight#+2pt#,depth#); % + "Empty Vowel O"; + vowel_o(scribble+margin,margin+awidth+scribble); + vowelcarrier; + empty_vowel; +endchar; + +beginchar(MXD_EVOE, fullaw#,vheight#+2pt#,depth#); % + "Empty Vowel OE"; + vowel_oe(scribble+margin,margin+awidth+scribble); + vowelcarrier; + empty_vowel; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Der Vokaltraeger hat seinen eigenen Satz Ligaturen! +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MXD_VC, fullaw#,height#+2pt#,depth#); % + "Vowel Carrier"; + vowelcarrier; +endchar; + +beginchar(MXD_VI, fullaw#,vheight#+2pt#,depth#); % + "Vowel I"; + vowel_i(scribble+margin,margin+awidth+scribble); + vowelcarrier; +endchar; + +beginchar(MXD_VE, fullaw#,vheight#+2pt#,depth#); % + "Vowel E"; + vowel_e(scribble+margin,margin+awidth+scribble); + vowelcarrier; +endchar; + +beginchar(MXD_VUE, fullaw#,height#+2pt#,depth#); % + "Vowel UE"; + vowel_ue(scribble+margin,margin+awidth,0+scribble); + vowelcarrier; +endchar; + +beginchar(MXD_VU, fullaw#,height#+2pt#,depth#); % + "Vowel U"; + vowel_u(scribble+margin,margin+awidth,0+scribble); + vowelcarrier; +endchar; + +beginchar(MXD_VO, fullaw#,height#+2pt#,depth#); % + "Vowel O"; + vowelcarrier; + vowel_o(scribble+margin,margin+awidth+scribble); +endchar; + +beginchar(MXD_VOE, fullaw#,height#+2pt#,depth#); % + "Vowel OE"; + vowelcarrier; +endchar; + +beginchar(MXD_LVM,0,0,depth#); % + "Long Vowel Marker"; + z1l=(scribble-margin,0+scribble); + penpos1(thick,90); % + z2 =(scribble+3/4margin,-depth+scribble); + penpos2(3/4thin,90); % + penstroke z1e--z2e; +endchar; + +beginchar(MXD_I,0,vheight#+2pt#,0); % + "Vowel i"; + vowel_i(scribble-margin-cwidth,-margin+scribble); +endchar; + +beginchar(MXD_E,0,vheight#+2pt#,0); % + "Vowel e"; + vowel_e(scribble-margin-cwidth,-margin+scribble); +endchar; + +beginchar(MXD_UE,0,height#,0); % + "Vowel ue"; + vowel_ue(scribble-margin-cwidth,-margin,0+scribble); +endchar; + +beginchar(MXD_U,0,height#,0); % + "Vowel u"; + vowel_u(scribble-margin-cwidth,-margin,0+scribble); +endchar; + +beginchar(MXD_O,0,vheight#+2pt#,0); % + "Vowel o"; + vowel_o(scribble-margin-cwidth,-margin+scribble); +endchar; + +beginchar(MXD_OE,0,vheight#+2pt#,0); % + "Umlaut o"; + vowel_oe(scribble-margin-cwidth,-margin+scribble); +endchar; + +beginchar(MXD_DU,0,vheight#+2pt#,0); % + "Undefined: diphtong u"; +endchar; + +beginchar(MXD_DI,0,vheight#+2pt#,0); % + "Undefined: diphtong i"; +endchar; + +beginchar(MXD_G,fullcw#,height#+2pt#,depth#); % + "Consonant k"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + top rt z2=(scribble+cwidth+margin,height+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,1/2height+scribble); + z5=(scribble+x1,y3+scribble); + z6=(scribble+1/2[x1,x2],y3+scribble); + z7=(scribble+x6,y1+scribble); + draw z1--z2--z3; + draw z4--z5--z6--z7; +endchar; + +beginchar(MXD_K,fullcw#,height#+2pt#,depth#); % + "Consonant k"; + squarepen; + bot lft z1=(scribble+margin,0+scribble); + top z2=(scribble+x1,height+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + z5=(scribble+1/2[x2,x3],y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4--z5--z6; +endchar; + +beginchar(MXD_DN,fullcw#,height#+2pt#,depth#); % + "Consonant \d n"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + z3=(scribble+x2,1/2height+scribble); + z4=(scribble+x1,y3+scribble); + bot z5=(scribble+x1,0+scribble); + z6=(scribble+x2,y5+scribble); + draw z1--z2--z3--z4--z5--z6; +endchar; + +beginchar(MXD_Z,fullcw#,height#+2pt#,depth#); % + "Consonant z"; + squarepen; + z11l=(scribble+margin+cwidth,height+scribble); + z12 =(scribble+margin+cwidth+1/2margin,height+2n+scribble); + z13 =(scribble+x12+n,y12+scribble); + z14r=(scribble+x13+n,vheight+scribble); + penpos11(.25thin,90); % + penpos12(.75thick,90); % + penpos13(.75thick,90); % + penpos14(.25thin,90); % + penstroke z11e--z12e--z13e--z14e; + + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+1/2[x1,x2],y2+scribble); + z6=(scribble+x5,y3+scribble); + draw z1--z2--z3--z4; draw z5--z6; +endchar; + +beginchar(MXD_C,fullcw#,vheight#,depth#); % + "Consonant c"; + z11l=(scribble+margin+cwidth,height+scribble); + z12 =(scribble+margin+cwidth+1/2margin,height+2n+scribble); + z13 =(scribble+x12+n,y12+scribble); + z14r=(scribble+x13+n,vheight+scribble); + penpos11(.25thin,90); % + penpos12(.75thick,90); % + penpos13(.75thick,90); % + penpos14(.25thin,90); % + penstroke z11e--z12e--z13e--z14e; + + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+1/2[x1,x2],y2+scribble); + z6=(scribble+x5,y3+scribble); + draw z1--z2--z3--z4--cycle; draw z5--z6; +endchar; + +beginchar(MXD_NNN,fullcw#,height#+2pt#,depth#); % + "Consonant \= n"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x2,1/2height+scribble); + z5=(scribble+x1,y4+scribble); + z6=(scribble+x1,y3+scribble); + z7=(scribble+x2-2thick,y6+scribble); + draw z1--z2--z3; draw z4--z5--z6--z7; +endchar; + +beginchar(MXD_D,fullcw#,height#+2pt#,depth#); % + "Consonant d"; + squarepen; + bot lft z1=(scribble+margin,0+scribble); + top z2=(scribble+x1,height+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x1,1/2[y1,y2]+scribble); + z5=(scribble+x3,y4+scribble); + z6=(scribble+x3,y1+scribble); + draw z1--z2--z3; draw z4--z5--z6; +endchar; + +beginchar(MXD_T,fullcw#,height#+2pt#,depth#); % + "Consonant t"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+x1,1/2[y2,y3]+scribble); + z6=(scribble+x2,y5+scribble); + draw z1--z2--z3--z4--cycle; draw z5--z6; +endchar; + +beginchar(MXD_N,fullcw#,height#+2pt#,depth#); % + "Consonant n"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x2,1/2height+scribble); + z5=(scribble+x1,y4+scribble); + z6=(scribble+x1,y3+scribble); + z7=(scribble+1/2[x1,x2],y6+scribble); + z8=(scribble+x7,y4+scribble); + draw z1--z2--z3; draw z4--z5--z6--z7--z8; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Das "b" hat seinen eigenen Satz Ligaturen! +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MXD_B,fullbw#,height#+2pt#,depth#); % + "Consonant b"; + b; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MXD_LIGBI,fullbw#,vheight#+2pt#,depth#); % + "Ligature bi"; + vowel_i(scribble+margin,margin+bwidth+scribble); + b; +endchar; + +beginchar(MXD_LIGBE,fullbw#,vheight#+2pt#,depth#); % + "Ligature be"; + vowel_e(scribble+margin,margin+bwidth+scribble); + b; +endchar; + +beginchar(MXD_LIGBUE,fullbw#,height#+2pt#,depth#); % + "Ligature bue"; + vowel_ue(scribble+margin,margin+bwidth,0+scribble); + b; +endchar; + +beginchar(MXD_LIGBU,fullbw#,height#+2pt#,depth#); % + "Ligature bu"; + vowel_u(scribble+margin,margin+bwidth,0+scribble); + b; +endchar; + +beginchar(MXD_LIGBO,fullbw#,vheight#+2pt#,depth#); % + "Ligature bo"; + vowel_o(scribble+margin,margin+bwidth+scribble); + b; +endchar; + +beginchar(MXD_LIGBOE,fullbw#,vheight#+2pt#,depth#); % + "Ligature boe"; + vowel_oe(scribble+margin,margin+bwidth+scribble); + b; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(MXD_P,fullcw#,height#+2pt#,depth#); % + "Consonant p"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + z5=(scribble+1/2[x2,x3],y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4--z5--z6; +endchar; + +beginchar(MXD_M,fullcw#,height#+2pt#,depth#); % + "Consonant m"; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + bot z2=(scribble+x1,0+scribble); + lft z3=(scribble+margin,y2+scribble); + z4=(scribble+x3,y1+scribble); + z5=(scribble+1/2[x2,x3],y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4--z5--z6; +endchar; + +beginchar(MXD_Y,fullcw#,height#+2pt#,depth#); % + "Consonant y"; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + bot z2=(scribble+x1,0+scribble); + lft z3=(scribble+margin,y2+scribble); + z4=(scribble+x3,y1+scribble); + z5=(scribble+1/2[x2,x3],y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4; draw z5--z6; +endchar; + +beginchar(MXD_R,fullcw#,height#+2pt#,depth#); % + "Consonant r"; + basic_r; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Das "w" hat seinen eigenen Satz Ligaturen! +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MXD_W,fullbw#,height#+2pt#,depth#); % + "Consonant w"; + basic_w; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MXD_LIGWI,fullbw#,vheight#+2pt#,depth#); % + "Ligature wi"; + vowel_i(scribble+margin,margin+bwidth+scribble); + basic_w; +endchar; + +beginchar(MXD_LIGWE,fullbw#,vheight#+2pt#,depth#); % + "Ligature we"; + vowel_e(scribble+margin,margin+bwidth+scribble); + basic_w; +endchar; + +beginchar(MXD_LIGWUE,fullbw#,height#+2pt#,depth#); % + "Ligature wue"; + vowel_ue(scribble+margin,margin+bwidth,0+scribble); + basic_w; +endchar; + +beginchar(MXD_LIGWU,fullbw#,height#+2pt#,depth#); % + "Ligature wu"; + vowel_u(scribble+margin,margin+bwidth,0+scribble); + basic_w; +endchar; + +beginchar(MXD_LIGWO,fullbw#,vheight#+2pt#,depth#); % + "Ligature wo"; + vowel_o(scribble+margin,margin+bwidth+scribble); + basic_w; +endchar; + +beginchar(MXD_LIGWOE,fullbw#,vheight#+2pt#,depth#); % + "Ligature woe"; + vowel_oe(scribble+margin,margin+bwidth+scribble); + basic_w; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(MXD_L,fullcw#,height#+2pt#,depth#); % + "Consonant l"; + basic_l; +endchar; + +beginchar(MXD_SH,fullcw#,height#+2pt#,depth#); % + "Consonant sh"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + z3=(scribble+x1,1/2height+scribble); + z4=(scribble+1/2[x1,x8],y3+scribble); + z5=(scribble+x4,y1+scribble); + z6=(scribble+x4,y2+scribble); + rt z7=(scribble+margin+cwidth,y2+scribble); + z8=(scribble+x7,y1+scribble); + draw z1--z2; draw z3--z4; draw z5--z6--z7--z8--cycle; +endchar; + +beginchar(MXD_S,fullcw#,height#+2pt#,depth#); % + "s"; + z1l=(scribble+margin,0+scribble); + z2l=(scribble+margin,height+scribble); + penpos1(thick,0); % + penpos2(thick,0); % + penstroke z1e--z2e; + z3l=(scribble+margin+thin,height+scribble); + z4r=(scribble+margin+cwidth-thin,0+scribble); + penpos3(.9thick,0); % + penpos4(.9thick,0); % + penstroke z3e--z4e; + z5r=(scribble+margin+cwidth,0+scribble); + z6r=(scribble+margin+cwidth,height+scribble); + penpos5(thick,0); % + penpos6(thick,0); % + penstroke z5e--z6e; +endchar; + +beginchar(MXD_H,fullcw#,height#+2pt#,depth#); % + "h"; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+1/2[x1,x2],y3+scribble); + z5=(scribble+x4,1/2height+scribble); + z6=(scribble+x1,y5+scribble); + z7=(scribble+x1,y3+scribble); + draw z1--z2--z3--z4--z5--z6--z7; +endchar; + +beginchar(MXD_KDS,fullcw#,height#+2pt#,depth#); % + "k\d s"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+1/2[x1,x2],y1+scribble); + z5=(scribble+x4,1/2height+scribble); + z6=(scribble+x1,y5+scribble); + z7=(scribble+x1,y3+scribble); + z8=(scribble+x4,y3+scribble); + draw z1--z2--z3; draw z4--z5--z6--z7--z8; +endchar; + +beginchar(MXD_A,fullaw#,height#,0); % + "Undefined Vowel a"; +endchar; + +beginchar(MXD_LIGRI,fullcw#,vheight#+2pt#,depth#); % + "Ligature ri"; + vowel_i(scribble+margin,margin+cwidth+scribble); + basic_r; +endchar; + +beginchar(MXD_LIGLI,fullcw#,vheight#+2pt#,depth#); % + "Ligature li"; + vowel_i(scribble+margin,margin+cwidth+scribble); + basic_l; +endchar; + +beginchar(MXD_OM,0,om_height#+2pt#,0); % + "Undefined OM"; +endchar; + +beginchar(MXD_EH,fullaw#,height#+2pt#,0); % + "Undefined"; +endchar; + +beginchar(MXD_SG,fullcw#,height#+2pt#,depth#); % + "Consonant \sg"; + squarepen; + top z1=(scribble+1/2[x4,x5],height+scribble); + bot z2=(scribble+x1,0+scribble); + lft z3=(scribble+margin,y2+scribble); + z4=(scribble+x3,y1+scribble); + rt z5=(scribble+margin+cwidth,y1+scribble); + z6=(scribble+x5,y2+scribble); + draw z1--z2--z3--z4--z5--z6; +endchar; + +beginchar(MXD_GH,fullcw#,height#+2pt#,depth#); % + "Consonant gh"; + squarepen; + top z1=(scribble+1/2[x6,x7],height+scribble); + bot z2=(scribble+x1,0+scribble); + lft z3=(scribble+margin,y2+scribble); + z4=(scribble+x3,1/2height+scribble); + z5=(scribble+x1,1/2height+scribble); + z6=(scribble+x3,y1+scribble); + rt z7=(scribble+margin+cwidth,y1+scribble); + z8=(scribble+x7,y2+scribble); + draw z1--z2--z3--z4--z5; draw z6--z7--z8; +endchar; + +beginchar(MXD_J,fullcw#,vheight#+2pt#,depth#); % + "Consonant j"; + z11l=(scribble+margin+cwidth,height+scribble); + z12 =(scribble+margin+cwidth+1/2margin,height+2n+scribble); + z13 =(scribble+x12+2n,y12+scribble); + z14r=(scribble+x13+n,vheight+scribble); + penpos11(.25thin,90); % + penpos12(.75thick,90); % + penpos13(.75thick,90); % + penpos14(.25thin,90); % + penstroke z11e--z12e--z13e--z14e; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+x2,1/2height+scribble); + z6=(scribble+x1,y5+scribble); + draw z1--z2--z3--z4; draw z5--z6; +endchar; + +beginchar(MXD_JH,fullcw#,vheight#+2pt#,depth#); % + "Consonant jh"; + z11l=(scribble+margin+cwidth,height+scribble); + z12 =(scribble+margin+cwidth+1/2margin,height+2n+scribble); + z13 =(scribble+x12+2n,y12+scribble); + z14r=(scribble+x13+n,vheight+scribble); + penpos11(.25thin,90); % + penpos12(.75thick,90); % + penpos13(.75thick,90); % + penpos14(.25thin,90); % + penstroke z11e--z12e--z13e--z14e; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+x2,1/2height+scribble); + z6=(scribble+7/12[x2,x1],y5+scribble); + draw z1--z2--z3--z4; draw z5--z6; + z7r=(scribble+margin+cwidth,2/3[y3,y1]+scribble); + z8r=(scribble+x6+1/3thick,1/2[y7,y9]+scribble); + z9r=(scribble+margin+cwidth,1/3[y3,y1]+scribble); + penpos7(thin,45); % + penpos8(thin,180); % + penpos9(thin,315); % + penstroke z7e..z8e..z9e; +endchar; + +beginchar(MXD_DT,fullcw#,height#+2pt#,depth#); % + "Consonant \d t"; + z1=(scribble+margin,7/12height+scribble); + penpos1(thick,90); % + z2=(scribble+margin+cwidth-thick,y1+scribble); + penpos2(thick,90); % + z3r=(scribble+margin+cwidth,y1+1/2thick+scribble); + penpos3(thick,0); % + z4 =(scribble+1/2[x1,x2],0+scribble); + penpos4(thick,0); % + penstroke z1e--z2e; + penstroke z3e--z4e; + + numeric x[]; numeric y[]; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + draw z1--z2--z3; +endchar; + +beginchar(MXD_DTH,fullcw#,height#+2pt#,depth#); % + "Consonant \d th"; + z1l=(scribble+margin,height+scribble); + penpos1(thick,0); % + z2r=(scribble+margin+cwidth,0+scribble); + penpos2(thick,0); % + penstroke z1e--z2e; + + z3r=(scribble+margin+cwidth,height+scribble); + penpos3(thick,0); % + z4l=(scribble+margin,0+scribble); + penpos4(thick,0); % + penstroke z3e--z4e; + + z5r=(scribble+margin+thick,height+scribble); + penpos5(thick,90); % + z6r=(scribble+margin+cwidth-thick,height+scribble); + penpos6(thick,90); % + penstroke z5e--z6e; + + z7l=(scribble+margin+thick,0+scribble); + penpos7(thick,90); % + z8l=(scribble+margin+cwidth-thick,0+scribble); + penpos8(thick,90); % + penstroke z7e--z8e; +endchar; + +beginchar(MXD_DD,fullcw#,height#+2pt#,depth#); % + "Consonant \d d"; + z1l=(scribble+margin,height+scribble); + penpos1(thick,0); % + z2r=(scribble+margin+cwidth,0+scribble); + penpos2(thick,0); % + penstroke z1e--z2e; + + z5r=(scribble+margin+thick,height+scribble); + penpos5(thick,90); % + z6r=(scribble+margin+cwidth,height+scribble); + penpos6(thick,90); % + penstroke z5e--z6e; + + z7l=(scribble+margin,0+scribble); + penpos7(thick,90); % + z8l=(scribble+margin+cwidth-thick,0+scribble); + penpos8(thick,90); % + penstroke z7e--z8e; +endchar; + +beginchar(MXD_DDH,fullcw#,height#+2pt#,depth#); % + "Consonant \d dh"; + z1l=(scribble+margin,height+scribble); + penpos1(thick,0); % + z2r=(scribble+margin+cwidth,0+scribble); + penpos2(thick,0); % + penstroke z1e--z2e; + + z3l=(scribble+margin,0+scribble); + penpos3(thick,90); % + z4l=(scribble+margin+cwidth-thick,0+scribble); + penpos4(thick,90); % + penstroke z3e--z4e; + + squarepen; + top lft z5=(scribble+margin+thick,height+scribble); + rt z6=(scribble+margin+cwidth,y5+scribble); + bot z7=(scribble+x6,height-2thick+scribble); + draw z5--z6--z7; +endchar; + +beginchar(MXD_DDN,fullcw#,height#+2pt#,depth#); % + "Consonant \d n"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + draw z1--z2--z3; + + z4 =(scribble+x2,9/12height+scribble); + z5l=(scribble+margin,4.5/12height+scribble); + penpos4(thick,-30); % + penpos5(thick,-30); % + penstroke z4e--z5e; + z6l=(scribble+x2-1/2thick,0+scribble); + z7l=(scribble+margin,4.5/12height+scribble); + penpos6(thick,30); % + penpos7(thick,30); % + penstroke z6e--z7e; +endchar; + +beginchar(MXD_DDD,fullcw#,height#+2pt#,depth#); % + "Consonant \_d"; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + z3=(scribble+x2,1/2height+scribble); + z4=(scribble+x1,y3+scribble); + bot z5=(scribble+x1,0+scribble); + z6=(scribble+x2,y5+scribble); + draw z1--z2--z3--z4--z5--z6; +endchar; + +beginchar(MXD_DDDH,fullcw#,height#+2pt#,depth#); % + "Consonant \_dh"; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x2,1/2height+scribble); + z5=(scribble+x1,y4+scribble); + draw z1--z2--z3; draw z4--z5; + z11=(scribble+margin+cwidth,y4+1/2thick+scribble); + z12=(scribble+5/12[x2,x1],1/2[y11,y13]+scribble); + z13=(scribble+x11,0+scribble); + fill z11{left}..z12..{right}z13 & z13--z11 & cycle; + z14=(scribble+x11,y11-1/3thin+scribble); + z15=(scribble+x12+4/4thick,y12+scribble); + z16=(scribble+x11,y13+1/3thin+scribble); + erase unfill z14{left}..z15..{right}z16 & z16--z14 & cycle; +endchar; + +beginchar(MXD_DB,fullcw#,height#+2pt#,depth#); % + "Consonant _b"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + bot z2=(scribble+x1,0+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + draw z1--z2--z3--z4--cycle; +endchar; + +beginchar(MXD_DBH,fullcw#,height#+2pt#,depth#); % + "Consonant \_bh"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + draw z1--z2--z3--z4; + z11=(scribble+margin+thick,height+scribble); + z12=(scribble+6/12[x1,x2],1/2height+scribble); + z13=(scribble+x11,0+scribble); + z14=(scribble+margin,y11+scribble); + z15=(scribble+x12-thick,y12+scribble); + z16=(scribble+x14,0+scribble); + fill z11..z12..z13 & z13--z16--z14--z11--cycle; + erase fill z14..z15..z16 & z16--z14 & cycle; +endchar; + +beginchar(MXD_DS,fullcw#,height#+2pt#,depth#); % + "Consonant \d s"; + squarepen; + top rt z1=(scribble+margin+cwidth,height+scribble); + lft z2=(scribble+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+1/2[x2,x1]+2/3thick,y1+scribble); + z6=(scribble+x5,7.5/12height+scribble); + z7r=(scribble+1/2[x2,x1]+2/3thick,7.25/12height+scribble); + z8r=(scribble+x7,0+scribble); + draw z1--z2--z3; draw z5--z6; + + penpos7(3/5thick,90); % + penpos8(3/5thick,270); % + penstroke z7e..z8e..cycle; +endchar; + +beginchar(MXD_KY,fullcw#,height#+2pt#,depth#+2pt#); % + "Ligature kya"; + kya; +endchar; + +beginchar(MXD_LIGKYUE,fullcw#,height#+2pt#,depth#+3pt#); % + "Ligature kyue"; + vowel_ue(scribble+margin,cwidth+margin,3/4depth+scribble); + kya; +endchar; + +beginchar(MXD_LIGKYU,fullcw#,height#+2pt#,depth#+3pt#); % + "Ligature kyu"; + vowel_u(scribble+margin,cwidth+margin,5/8depth+scribble); + kya; +endchar; + +beginchar(MXD_KR,fullcw#,height#+2pt#,depth#+2pt#); % + "Ligature kra"; + kra; +endchar; + +beginchar(MXD_KRUE,fullcw#,height#+2pt#,depth#+4pt#); % + "Ligature krue"; + vowel_ue(scribble+margin,cwidth+margin,depth+scribble); + kra; +endchar; + +beginchar(MXD_KRU,fullcw#,height#+2pt#,depth#+4pt#); % + "Ligature kru"; + vowel_u(scribble+margin,cwidth+margin,depth+scribble); + kra; +endchar; + +beginchar(MXD_KL,fullcw#,height#+2pt#,depth#+2pt#); % + "Ligature kla"; + kla; +endchar; + +beginchar(MXD_KLUE,fullcw#,height#+2pt#,depth#+3pt#); % + "Ligature klue"; + vowel_ue(scribble+margin,cwidth+margin,6/8depth+scribble); + kla; +endchar; + +beginchar(MXD_KLU,fullcw#,height#+2pt#,depth#+4pt#); % + "Ligature klu"; + vowel_u(scribble+margin,cwidth+margin,depth+scribble); + kla; +endchar; + +beginchar(MXD_KM,fullaw#,height#+2pt#,depth#); % + "Undefined Ligature km"; +endchar; + +beginchar(MXD_KK,fullaw#,height#+2pt#,depth#); % + "Undefined Ligaute kk"; +endchar; + +beginchar(MXD_DNK,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_NC,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_DDNT,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_NT,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_MP,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_LK,fullcw#,height#+2pt#,depth#); % + "lka"; + squarepen; + top lft z1=(scribble+margin,29/48height+scribble); + rt z2=(scribble+cwidth+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + top z4=(scribble+x1,2/6height+scribble); + z5=(scribble+x1,y3+scribble); + z6=(scribble+1/2[x1,x2],y3+scribble); + top z7=(scribble+x6,height+scribble); + z8=(scribble+x2,y7+scribble); + z9=(scribble+x1,19/24height+scribble); + z10=(scribble+x1,y7+scribble); + draw z1--z2--z3; + draw z4--z5--z6--z7; + draw z8--z2; + draw z9--z10--z7; +endchar; + +beginchar(MXD_SHK,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_SK,fullcw#,height#+2pt#,depth#); % + "Ligature ska"; + squarepen; + top lft z1=(scribble+margin,29/48height+scribble); + rt z2=(scribble+cwidth+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + top z4=(scribble+x1,2/6height+scribble); + z5=(scribble+x1,y3+scribble); + z6=(scribble+1/2[x1,x2],y3+scribble); + z7=(scribble+x6,y1+scribble); + top z8=(scribble+x2,height+scribble); + z9=(scribble+x1,19/24height+scribble); + z10=(scribble+x1,y8+scribble); + draw z1--z2--z3; + draw z4--z5--z6--z7; + draw z8--z2; + draw z9--z10; + z11l=(scribble+margin+1/4thick,height+scribble); + z12r=(scribble+margin+cwidth,y1+1/2thick+scribble); + penpos11(1.00thick,0); % + penpos12(1.00thick,0); % + penstroke z11e--z12e; +endchar; + +beginchar(MXD_RK,fullcw#,height#+2pt#,depth#); % + "Ligature rka"; + squarepen; + top lft z1=(scribble+margin,4/6height+scribble); + rt z2=(scribble+cwidth+margin,y1+scribble); + bot z3=(scribble+x2,0+scribble); + top z4=(scribble+x1,2/6height+scribble); + z5=(scribble+x1,y3+scribble); + z6=(scribble+1/2[x1,x2],y3+scribble); + top z7=(scribble+x6,height+scribble); + draw z1--z2--z3; + draw z4--z5--z6--z7; + draw (scribble+x1,y7)--(scribble+x2,y7+scribble); +endchar; + +beginchar(MXD_ZZ,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_CC,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_EJ,fullaw#,height#+2pt#,depth#); % + "Undefined"; +endchar; + +beginchar(MXD_X,fullcw#,height#+2pt#,depth#); % + "Consonant X"; + squarepen; + bot lft z1=(scribble+margin,0+scribble); + top z2=(scribble+x1,height+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x3,y1+scribble); + draw z1--z2--z3--z4; + z5=(scribble+x3-1/2thick,2/3height+scribble); + z6=(scribble+x1+1.75thick,1/2[y5,y7]+scribble); + z7=(scribble+x5,1/3height-thick+scribble); + penpos5(thin,90); % + penpos6(.75thick,180); % + penpos7(thin,270); % + penstroke z5e{left}..z6e..{right}z7e; +endchar; + +beginchar(MXD_Q,fullcw#,height#+2pt#,depth#); % + "Consonant q"; + squarepen; + top lft z1=(scribble+margin,height+scribble); + rt z2=(scribble+margin+cwidth,y1+scribble); + bot z3=(scribble+x2,0+scribble); + z4=(scribble+x1,y3+scribble); + z5=(scribble+x1,1/2[y2,y3]+scribble); + z6=(scribble+x2,y5+scribble); + draw z1--z2--z3--z4; draw z5--z6; +endchar; + + +beginchar(MXD_ACHUNG,fullcw#,height#+2pt#,depth#); % + "'a (a chung)"; + squarepen; + bot lft z1=(scribble+margin,0+scribble); + top z2=(scribble+x1,height+scribble); + rt z3=(scribble+margin+cwidth,y2+scribble); + z4=(scribble+x3,1/2height+scribble); + z5=(scribble+1/2[x2,x3],y4+scribble); + z6=(scribble+x5,y1+scribble); + z7=(scribble+x3,y1+scribble); + draw z1--z2--z3--z4--z5--z6--z7; +endchar; +end. +% vim:ts=8 diff --git a/language/mongolian/mxd/mfinput/mxdligs.mf b/language/mongolian/mxd/mfinput/mxdligs.mf new file mode 100644 index 0000000000..bf30049caa --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdligs.mf @@ -0,0 +1,72 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdligs.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%% Ligature definitions for Xewtee Dorboljin. %%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + ligtable "c": "a" =: "c"; + ligtable "d": "a" =: "d"; + ligtable "g": "a" =: "g"; + ligtable "h": "a" =: "h"; + ligtable "k": "a" =: "k"; + ligtable "l": "a" =: "l"; + ligtable "m": "a" =: "m"; + ligtable "n": "a" =: "n", + "g" =: "x", + "y" =: "="; + ligtable "p": "a" =: "p"; + ligtable "r": "a" =: "r"; + ligtable "s": "h" =: "$", + "a" =: "s"; + ligtable "t": "a" =: "t"; + ligtable "x": "a" =: "x"; + ligtable "y": "a" =: "y"; + ligtable "z": "a" =: "z"; + ligtable "=": "a" =: "="; + ligtable "$": "a" =: "$"; + ligtable "(": "a" =: "("; + ligtable "!": "a" =: "!"; + + ligtable "`": "i" =: 128, + "e" =: 129, + "U" =: 130, + "u" =: 131, + "o" =: 132, + "O" =: 133, + "a" =: "`"; + ligtable "'": "i" =: 136, + "e" =: 137, + "U" =: 138, + "u" =: 139, + "o" =: 140, + "O" =: 141, + "a" =: "'"; + ligtable "b": "a" =: "b", + "i" =: 144, + "e" =: 145, + "U" =: 146, + "u" =: 147, + "o" =: 148, + "O" =: 149; + ligtable "w": "i" =: 152, + "e" =: 153, + "U" =: 154, + "u" =: 155, + "o" =: 156, + "O" =: 157, + "a" =: "w"; + ligtable ";": "U" =: 176, + "u" =: 177; + ligtable ":": "U" =: 178, + "u" =: 179; + ligtable "<": "U" =: 180, + "u" =: 181; diff --git a/language/mongolian/mxd/mfinput/mxdparmb.mf b/language/mongolian/mxd/mfinput/mxdparmb.mf new file mode 100644 index 0000000000..486e6e380c --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdparmb.mf @@ -0,0 +1,64 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdparmb.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%% This font contains the Xewtee Dorboljin primitives. %%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +screen_rows:=640; +screen_cols:=640; +% +mode_setup; + if unknown mag: mag := 1; fi; + % mg:=4/4; % Now in base file + n#:=mg*pt#; + margin#:=mg*1.5pt#; + awidth#:=mg*14pt#; + bwidth#:=4/7awidth#; + cwidth#:=5/7awidth#; + fullaw#:=2margin#+awidth#; + fullbw#:=2margin#+bwidth#; + fullcw#:=2margin#+cwidth#; + thin#:=mg*1pt#; + thick#:=mg*2pt#; + height#:=mg*12pt#; + vheight#:=height#+mg*4pt#; + om_height#:=vheight#+mg*4pt#; + depth#:=mg*4pt#; + define_pixels(thin,thick,awidth,bwidth,cwidth,height, + vheight,om_height,n,margin,depth); + + font_size = 14pt#; + + font_normal_space 1/2fullcw#; + font_x_height height#; + font_quad fullaw#; + font_extra_space .25fullcw#; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%%%%%%%%% primitive definitions. %%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +def squarepen = % Basic pen definition + pickup pensquare scaled thick +enddef; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%%%%%%%%% Segment definitions. %%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Hier wird Schreibschrift aus unseren Buchstaben! +vardef scribble = normaldeviate * Rauhheit enddef; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%% The definition file for Xewtee Dorboljin %%%%%%%%%% +%%%%%%%%%% ends here. Oliver Corff, Ulaanbaatar 2001 %%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% diff --git a/language/mongolian/mxd/mfinput/mxdparmr.mf b/language/mongolian/mxd/mfinput/mxdparmr.mf new file mode 100644 index 0000000000..47a9340210 --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdparmr.mf @@ -0,0 +1,64 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdparmr.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%% This font contains the Xewtee Dorboljin primitives. %%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +screen_rows:=640; +screen_cols:=640; +% +mode_setup; + if unknown mag: mag := 1; fi; + % mg:=4/4; % Now in base file + n#:=mg*pt#; + margin#:=mg*1.5pt#; + awidth#:=mg*14pt#; + bwidth#:=4/7awidth#; + cwidth#:=5/7awidth#; + fullaw#:=2margin#+awidth#; + fullbw#:=2margin#+bwidth#; + fullcw#:=2margin#+cwidth#; + thin#:=mg*.75pt#; + thick#:=mg*1.5pt#; + height#:=mg*12pt#; + vheight#:=height#+mg*4pt#; + om_height#:=vheight#+mg*4pt#; + depth#:=mg*4pt#; + define_pixels(thin,thick,awidth,bwidth,cwidth,height, + vheight,om_height,n,margin,depth); + + font_size = 14pt#; + + font_normal_space 1/2fullcw#; + font_x_height height#; + font_quad fullaw#; + font_extra_space .25fullcw#; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%%%%%%%%% primitive definitions. %%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +def squarepen = % Basic pen definition + pickup pensquare scaled thick +enddef; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + %%%%%%%%%% Segment definitions. %%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Hier wird Schreibschrift aus unseren Buchstaben! +vardef scribble = normaldeviate * Rauhheit enddef; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%% The definition file for Xewtee Dorboljin %%%%%%%%%% +%%%%%%%%%% ends here. Oliver Corff, Ulaanbaatar 2001 %%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% diff --git a/language/mongolian/mxd/mfinput/mxdrb.mf b/language/mongolian/mxd/mfinput/mxdrb.mf new file mode 100644 index 0000000000..aa4faa0aea --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdrb.mf @@ -0,0 +1,19 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdrb.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + mg:=4/4; + Rauhheit=mg*0pt; +input mxdatoms.mf; +input mxdparmb.mf; +input mxdcodes.mf; +input mxdligs.mf; +input mxdglyph.mf; +end. diff --git a/language/mongolian/mxd/mfinput/mxdrm.mf b/language/mongolian/mxd/mfinput/mxdrm.mf new file mode 100644 index 0000000000..4dcd6ed579 --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdrm.mf @@ -0,0 +1,19 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdrm.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + mg:=4/4; + Rauhheit=mg*0pt; +input mxdatoms.mf; +input mxdparmr.mf; +input mxdcodes.mf; +input mxdligs.mf; +input mxdglyph.mf; +end. diff --git a/language/mongolian/mxd/mfinput/mxdsb.mf b/language/mongolian/mxd/mfinput/mxdsb.mf new file mode 100644 index 0000000000..208c5d8e25 --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdsb.mf @@ -0,0 +1,19 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdsbmf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + mg:=4/4; + Rauhheit=mg*0.125pt#; +input mxdatoms.mf; +input mxdparmb.mf; +input mxdcodes.mf; +input mxdligs.mf; +input mxdglyph.mf; +end. diff --git a/language/mongolian/mxd/mfinput/mxdsm.mf b/language/mongolian/mxd/mfinput/mxdsm.mf new file mode 100644 index 0000000000..5f151c4cec --- /dev/null +++ b/language/mongolian/mxd/mfinput/mxdsm.mf @@ -0,0 +1,19 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mxdsm.mf +% Date: November 5, 2001 +% Author: Oliver Corff +% (c) 2001 Ulaanbaatar, Berlin +% +% A metafont for providing the Xewtee +% Dorboljin script to LaTeX-users. +% +% Usage: see package documentation mxd4tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + mg:=4/4; + Rauhheit=mg*0.125pt#; +input mxdatoms.mf; +input mxdparmr.mf; +input mxdcodes.mf; +input mxdligs.mf; +input mxdglyph.mf; +end. |