diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/montex/maglyphs.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/montex/maglyphs.mf | 660 |
1 files changed, 660 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/montex/maglyphs.mf b/Master/texmf-dist/fonts/source/public/montex/maglyphs.mf new file mode 100644 index 00000000000..84c2c1c2a41 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/montex/maglyphs.mf @@ -0,0 +1,660 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: maglyphs.mf +% Author: Oliver Corff +% Date: October 1st, 2001 +% Version: 0.8 +% Copyright: Ulaanbaatar, Beijing, Berlin +% +% Description: Local Manju Script (LMA) +% Manju Bithe Glyph Definitions +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% + writing:=Bithe; +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TASLAL,tewidth#,height#,depth#); + "Manju Taslal Temdeg"; + manjudusal(2/4tewidth,Centerline,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_FULLSTOP,bawidth#,height#,depth#); + "Manju Full Stop"; + manjudusal(5/16bawidth,Centerline,3thin,2thick); + ManjuDusal(11/16bawidth,Centerline,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_E,shudwidth#,height#,depth#); + "Manju letter e, dotted shud"; + shud(0); + dusal (1/2w,underinner+thin,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DUBENE,shudwidth#,height#,depth#); + "Manju letter e in final position"; + suul; + dusal (12/12w,underinner+thin,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_U,gedeswidth#,height#,depth#); + "Manju letter u, dotted gedes"; + nuruu(w,0); + z1r=(w-bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(bearing,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + penlabels(1,2,3); + dusal (1/2gedeswidth,underinner+thin,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DUBENU,eswidth#,height#,depth#); + "Manju letter final u"; + nuruu(w,w-numtaigedeswidth); + + z1r=(w-1/2bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(w-numtaigedeswidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + + z4 =(x1,nuruuright); + z5r=(1/2[x4,x6],underouter); + z6r=(0,nuruuright); % nuruuright was Centerline + penpos4(thin,0); + penpos5(underinner-underouter,-90); + penpos6(1/4thin,-180); + penstroke (z4e{down}..z5e..{up}z6e) ifrotated; + penlabels(1,2,3,4,5,6); + dusal (17/36w,1.6underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_UU,gedeswidth#+shilbewidth#,height#,depth#); + "Manju letter ^u"; + nuruu(w,0); + z1r=(w-bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(bearing+shilbewidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + z4r=(shilbewidth,nuruuleft); + z5r=(+3thin,shilbeheight); + penpos4(2thin,0); + penpos5(4thin,60); + penstroke (z4e--z5e) ifrotated; + penlabels(1,2,3,4,5); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DUBENUU,gedeswidth#+shudwidth#,height#,depth#); + "Manju letter ^u, final form"; + nuruu(w,shudwidth); + z1r=(w-bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(bearing+shudwidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + z4=(shudwidth,Centerline); + z5=(1/2shudwidth,Centerline); + z6=(0,nuruuleft+thin); + penpos4(nuruuwidth,90); + penpos5(14/16nuruuwidth,80); + penpos6(epsilon,45); + penstroke (z4e---z5e..z6e) ifrotated; + penlabels(1,2,3,4,5,6); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNGA,tewidth#,height#,depth#); + "Manju letter initial ga"; + xewteeqix; + dusal(-1/2shudwidth,underinner+thin,2thick,1thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNHA,tewidth#,height#,depth#); + "Manju letter initial ha"; + xewteeqix; + dugui(-1/2shudwidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_G,2shudwidth#,height#,depth#); + "Manju letter medial g"; + shud(0); + shud(shudwidth); + dusal(shudwidth,underinner+thin,2thick,1thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_H,2shudwidth#,height#,depth#); + "Manju letter medial ha"; + shud(0); + shud(shudwidth); + dugui(shudwidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_GE,tewidth#,height#,depth#); + "Manju Ligature GE"; + ligka; + dusal (21/36w,1.35underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HE,tewidth#,height#,depth#); + "Manju Ligature: HE"; + ligka; + dugui (21/36w,1.6underouter,1.5thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_GI,eswidth#+secAwidth#,height#,depth#); + "Manju Manju Ligature: GI"; + ligki; + dusal (22/36w,1.35underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HI,eswidth#+secAwidth#,height#,depth#); + "Manju Manju Ligature: HI"; + ligki; + dugui (22/36w,1.6underouter,1.5thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_GU,bawidth#,height#,depth#); + "Manju Ligature: GU"; + ligku; + dusal (18/36w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HU,bawidth#,height#,depth#); + "Manju Ligature: HU"; + ligku; + dugui (18/36w,1.9underouter,1.5thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_KH,gedeswidth#,height#,depth#); + "Manju letter kh"; + qagt; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_KHA,bawidth#,height#,depth#); + "Manju Ligature: KHA"; + ligkha; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_KHO,bawidth#,height#,depth#); + "Manju Ligature: KHO"; + ligkhu; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_GH,gedeswidth#,height#,depth#); + "Manju letter GH"; + qagt; + dusal (15/36w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_GHA,bawidth#,height#,depth#); + "Manju Ligature: GHA"; + ligkha; + dusal (21/36w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_GHO,bawidth#,height#,depth#); + "Manju Ligature: GHO"; + ligkhu; + dusal (19/36w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HH,gedeswidth#,height#,depth#); + "Manju letter HH"; + qagt; + dugui (15/36w,1.9underouter,1.5thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HHA,bawidth#,height#,depth#); + "Manju Ligature: HHA"; + ligkha; + dugui (21/36w,1.9underouter,1.5thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HHO,bawidth#,height#,depth#); + "Manju Ligature: HHO"; + ligkhu; + dugui (18/36w,1.9underouter,1.5thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DUBENK,2shudwidth#,height#,depth#); + "Manju Final k"; + shud(shudwidth); + bagaodoisuul; + dusal(9/12shudwidth,gedesouter,3thin,2thick); + dusal(3/12shudwidth,gedesouter,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_BE,bawidth#,height#,depth#); + "Manju Manju Ligature: BE"; + ligba; + dusal (21/36w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_BU,2numtaigedeswidth#,height#,depth#); + "Manju Ligature: BU"; + ligbu(0); + dusal (1/2w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_BUU,2numtaigedeswidth#+shilbewidth#,height#,depth#); + "Manju Ligature: BUU"; + ligbu(shilbewidth); + nuruu(shilbewidth,0); + z11r=(shilbewidth,nuruuleft); + z12r=(+3thin,shilbeheight); + penpos11(2thin,0); + penpos12(4thin,60); + penstroke (z11e--z12e) ifrotated; + penlabels(1,2,3,4,5,11,12); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_D,eswidth#,height#,depth#); + "Manju letter de"; + roundgedestshilbe; + dusal(1/2shudwidth,underinner+thin,2thick,1thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_T,eswidth#,height#,depth#); + "Manju letter te"; + roundgedestshilbe; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUND,cewidth#,height#,depth#); + "Manju letter initial D"; + deribun_ta; + dusal(1/2shudwidth,underinner+thin,2thick,1thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNT,cewidth#,height#,depth#); + "Manju letter initial t"; + deribun_ta; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DE,eswidth#,height#,depth#); + "Manju letter de"; + manju_te; + dusal(1/2shudwidth,underinner+thin,2thick,1thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TE,eswidth#,height#,depth#); + "Manju letter te"; + manju_te; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNDE,cewidth#,height#,depth#); + "Manju letter De"; + deribun_te; + dusal(-1/4shudwidth,underinner+thin,2thick,1thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNTE,cewidth#,height#,depth#); + "Manju initial letter Te"; + deribun_te; + penlabels(1,2,3,4); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TIBT,eswidth#,height#,depth#); + "Manju initial letter Te"; + nuruu(w,0); + z1r=(w-1/2bearing,nuruuleft); + z2 =(07/16w,orxicouter); + penpos1(2thin,0); + penpos2(2thin,45); + penstroke (z1e--z2e) ifrotated; + z3r=z2; + z4r=(bearing,7/12[y1,y2]); + + penpos3(2thin,115 ); + penpos4(2thin,210); + + z5 =(6/16w,3/12[y1,y2]); + z6 =(x1-2u,nuruuleft); + + penpos5(1.5thin,230); + penpos6(1.5thin,180); + penstroke (z3e{dir 205}..tension 2.5..z4e..tension 2.5.. + z5e..tension infinity..z6e) + ifrotated; + penlabels(1,2,3,4,5,6); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_SH,tewidth#,height#,depth#); + "Manju letter `sh'"; + zawj; + manju_sh_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNSH,tewidth#,height#,depth#); + "Manju letter `sh' in initial position"; + exenzawj; + manju_sh_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DUBENSH,tewidth#,height#,depth#); + "Manju letter `sh' in final position"; + suulzawj; + manju_sh_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DZ,tewidth#,height#,depth#); + "Manju letter `dz'"; + zawj; + manju_dz_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNDZ,tewidth#,height#,depth#); + "Manju letter `dz' in initial position"; + exenzawj; + manju_dz_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DZI,tewidth#,height#,depth#); + "Manju ligature `dzi'"; + manju_si; + manju_dz_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNDZI,tewidth#,height#,depth#); + "Manju letter `dzi' in initial position"; + manju_deribun_si; + manju_dz_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TS,tewidth#,height#,depth#); + "Manju letter `ts'"; + zawj; + manju_dz_stroke; + dugui(3/5tewidth,1.1suulouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNTS,tewidth#,height#,depth#); + "Manju letter `ts' in initial position"; + exenzawj; + manju_dz_stroke; + dugui(3/5tewidth,1.1suulouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TSH,tewidth#,height#,depth#); + "Manju letter `tsh'"; + zawj; + manju_dz_stroke; + manju_tsh_stroke; + tsh_picture:=currentpicture; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNTSH,tewidth#,height#,depth#); + "Manju letter `tsh' in initial position"; + exenzawj; + manju_dz_stroke; + manju_tsh_stroke; + deribuntsh_picture:=currentpicture; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TSHY,shudwidth#+tewidth#,height#,depth#); + "Manju letter `tshy'"; + currentpicture:= tsh_picture shifted + if LR: (0,0) else: (shudwidth,0) fi; + sy_nuruu(shudwidth,0); +% manju_dz_stroke; +% manju_tsh_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNTSHY,shudwidth#+tewidth#,height#,depth#); + "Manju letter `tshy' in initial position"; + currentpicture:= deribuntsh_picture shifted + if LR: (0,0) else: (shudwidth,0) fi; + sy_nuruu(shudwidth,0); +% manju_dz_stroke; +% manju_tsh_stroke; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_Z,tewidth#,height#,depth#); + "Manju letter `z'"; + zawj; + dugui(3/5tewidth,suulouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNZ,tewidth#,height#,depth#); + "Manju letter `z' in initial position"; + exenzawj; + dugui(3/5tewidth,suulouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_ZH,tewidth#,height#,depth#); + "Manju letter `zh'"; + zawj; + manju_sh_stroke; + dugui(3/5tewidth,suulouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNZH,tewidth#,height#,depth#); + "Manju letter `zh' in initial position"; + exenzawj; + manju_sh_stroke; + dugui(3/5tewidth,suulouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_NGA,shudwidth#,height#,depth#); + "Manju (Tibetan) letter `ng'"; + shud(0); + dugui(1/2shudwidth,yashilbeheight,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNNGA,shudwidth#,height#,depth#); + "Manju (Tibetan) letter `ng' in initial position"; + titem; + dugui(1/2shudwidth,yashilbeheight,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_JY,eswidth#,height#,depth#); + "Manju letter jy; bosoo_shilbe with circle"; + bosoo_shilbe; + dugui(1/2eswidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNJY,shilbewidth#,height#,depth#); + "Manju letter jy; shilbe with circle"; + shilbe(0); + dugui(1/2shilbewidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_CY,eswidth#,height#,depth#); + "Manju letter cy"; + seree_ewer; + dugui(1/2eswidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_SY,tewidth#+shudwidth#,height#,depth#); + "Manju letter sy"; + currentpicture:= zawjpicture shifted + if LR: (0,0) else: (shudwidth,0) fi; + sy_nuruu(shudwidth,0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNSY,tewidth#+shudwidth#,height#,depth#); + "Manju letter initial sy"; + currentpicture:= exenzawjpicture shifted + if LR: (0,0) else: (shudwidth,0) fi; + sy_nuruu(shudwidth,0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_ZR,shudwidth#,height#,depth#); + "Manju letter zr"; + nuruu(shudwidth,0); + z1 =(1/2shudwidth,gedesinner); + z2 =(1/2shudwidth,underinner); + penpos1(2.5thin,-15); + penpos2(2.5thin,-15); + penstroke (z1e--z2e) ifrotated; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNZR,shudwidth#,height#,depth#); + "Manju letter initial zr"; + nuruu(1/2shudwidth,0); + z1r=(1/2shudwidth,gedesinner); + z2r=(1/2shudwidth,underinner); + penpos1(2.5thin,-15); + penpos2(2.5thin,-15); + penstroke (z1e--z2e) ifrotated; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_LH,shudwidth#,height#,depth#); + "Manju Tibetan letter lh"; + shud(0); + l_ewer(1/2shudwidth); + dugui(-1/2shudwidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=wood: exenlwidth#:=numtaigedeswidth#+shudwidth# fi; +if style=steel: exenlwidth#:=shudwidth# fi; + +beginchar(MANJU_DERIBUNLH,shudwidth#,height#,depth#); + "Manju Tibetan letter initial lh"; + if style=wood: + "Style: Wood"; + titem_stroke(shudwidth); + shud(0); + l_ewer(1/2shudwidth); + fi; + if style=steel: + "Style: Steel"; + titem; + l_ewer(1/2shudwidth); + fi; + dugui(-1/2shudwidth,underinner,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_HIGHLH,shudwidth#,height#,depth#); + "Manju Tibetan letter lh"; + shud(0); + l_ewer(1/2shudwidth); + dugui(-1/2shudwidth,underouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=wood: exenlwidth#:=numtaigedeswidth#+shudwidth# fi; +if style=steel: exenlwidth#:=shudwidth# fi; + +beginchar(MANJU_HIGHDERIBUNLH,shudwidth#,height#,depth#); + "Manju Tibetan letter initial lh"; + if style=wood: + titem_stroke(shudwidth); + shud(0); + l_ewer(1/2shudwidth); + fi; + if style=steel: + titem; + l_ewer(1/2shudwidth); + fi; + dugui(-1/2shudwidth,underouter,1.5thick) +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_F,cewidth#,height#,depth#); + "Manju letter f"; + nuruu(cewidth,0); + z1 =(1/8gedeswidth,gedesinner); + z2r=(3/8gedeswidth,yashilbeheight); + z3 =(7/8gedeswidth-1/4bearing,nuruuleft); % was 8/8gedeswidth + penpos1(epsilon,+135); + penpos2(3.75thin,+90); + penpos3(1.50thin,0); + z4 =(10/8gedeswidth,underinner-thin); % was 11/8 + z5 =(12/8gedeswidth,underinner); % was 13/8 + penpos4(3.25thin, 90); + penpos5( epsilon,+135); + penstroke (z1e..tension 2.50..z2e..tension 3.5..z3e + ..tension 3.5..z4e..tension 1.75..z5e) ifrotated; + penlabels(1,2,3,4,5); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_DERIBUNF,cewidth#,height#,depth#); + "Manju letter initial f"; + nuruu(gedeswidth+1/3bearing,0); + z1 =(1/8gedeswidth,gedesinner); + z2r=(3/8gedeswidth,yashilbeheight); + z3 =(gedeswidth-1/4bearing,nuruuleft); + penpos1(epsilon,+135); + penpos2(3.75thin,+90); + penpos3(1.50thin,0); + z4 =(11/8gedeswidth,underinner); + z5 =(13/8gedeswidth,underinner+thin); + penpos4(3.25thin, 90); + penpos5( epsilon,+135); + penstroke (z1e..tension 2.50..z2e..tension 3.5..z3e + ..tension 3.5..z4e..tension 1.75..z5e) ifrotated; + penlabels(1,2,3,4,5); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_P,eswidth#,height#,depth#); + "Manju letter `p'"; + nuruu(eswidth,eswidth-numtaigedeswidth); + + z1r=(eswidth-1/2bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(eswidth-numtaigedeswidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + + z4 =(x1,nuruuright); + z5r=(1/4[x4,x8],underouter); + z6 =(1/2[x4,x8],0); + z7l=(3/4[x4,x8],underouter); + z8l=(0,Centerline); + penpos4(thin,0); + penpos5(underinner-underouter,-90); + penpos6(1/4thin,-180); + penpos7(3/4(underinner-underouter),-270); + penpos8(1/2thin, 0); + penstroke (z4e{down}..z5e..{up}z6e) ifrotated; + penstroke (z6e{down}..z7e..tension 1.2..{up}z8e) ifrotated; + penlabels(1,2,3,4,5,6,7,8); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_PA,bawidth#,height#,depth#); + "Manju ligature `pa'"; + manju_pa; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_PE,bawidth#,height#,depth#); + "Manju ligature `pe'"; + manju_pa; + dusal (22/36bawidth,1.85underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_PI,biwidth#,height#,depth#); + "Manju ligature `pi'"; + manju_pi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_PO,bawidth#,height#,depth#); + "Manju ligature `po'"; + manju_po; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_PU,bawidth#,height#,depth#); + "Manju ligature `pu'"; + manju_po; + dusal (1/2w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TIBPE,bawidth#,height#,depth#); + "Manju ligature p'e"; + ligmongpa; + dusal (1/2w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MANJU_TIBPU,bawidth#,height#,depth#); + "Manju ligature p'u"; + ligmongpu; + dusal (1/2w,1.65underouter,2thick,1thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |