summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/mxd/mxdglyph.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/mxd/mxdglyph.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/mxd/mxdglyph.mf1020
1 files changed, 1020 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/mxd/mxdglyph.mf b/Master/texmf-dist/fonts/source/public/mxd/mxdglyph.mf
new file mode 100644
index 00000000000..7a4868051ec
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/mxd/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