diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public')
31 files changed, 0 insertions, 11023 deletions
diff --git a/Master/texmf-dist/fonts/source/public/itrans/kan12.mf b/Master/texmf-dist/fonts/source/public/itrans/kan12.mf deleted file mode 100644 index 77c76cd2d2d..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kan12.mf +++ /dev/null @@ -1,7 +0,0 @@ -%kan12% -%input kanmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.5pt#; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kan12b.mf b/Master/texmf-dist/fonts/source/public/itrans/kan12b.mf deleted file mode 100644 index 24b4b8bcf21..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kan12b.mf +++ /dev/null @@ -1,7 +0,0 @@ -%kan12b% -%input kanmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.68pt#; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kan12nx.mf b/Master/texmf-dist/fonts/source/public/itrans/kan12nx.mf deleted file mode 100644 index 4c08daab7a8..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kan12nx.mf +++ /dev/null @@ -1,10 +0,0 @@ -%kan12nx% non-uniform pen(x-axis) -%input kanmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.74pt#; -vardef special_kanpen = - pickup pencircle xscaled (pen_width/2) yscaled (pen_width); -enddef; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kan12ny.mf b/Master/texmf-dist/fonts/source/public/itrans/kan12ny.mf deleted file mode 100644 index 7c75f240bd1..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kan12ny.mf +++ /dev/null @@ -1,10 +0,0 @@ -%kan12ny% non-uniform pen(y-axis) -%input kanmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.65pt#; -vardef special_kanpen = - pickup pencircle xscaled pen_width yscaled (pen_width/2); -enddef; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kan12s.mf b/Master/texmf-dist/fonts/source/public/itrans/kan12s.mf deleted file mode 100644 index a06fd7485a8..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kan12s.mf +++ /dev/null @@ -1,7 +0,0 @@ -%kan12s% -%input kanmode; -font_size 12pt#; -slant:=1/4; -pen_width#:=0.61pt#; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kan18.mf b/Master/texmf-dist/fonts/source/public/itrans/kan18.mf deleted file mode 100644 index eaa54528774..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kan18.mf +++ /dev/null @@ -1,7 +0,0 @@ -%kan18% -%input kanmode; -font_size 18pt#; -slant:=0; -pen_width#:=0.86pt#; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanbase.mf b/Master/texmf-dist/fonts/source/public/itrans/kanbase.mf deleted file mode 100644 index 8aab7aeb8cf..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanbase.mf +++ /dev/null @@ -1,896 +0,0 @@ -% This file is part of the KannadaTeX Software Package. -%Copyright (c) 1991 G.S. Jagadeesh & Venkatesh. Gopinath. -% -%Author: Modified from TeluguTex by, GS. Jagadeesh. -%The KannadaTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the KannadaTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the KannadaTeX Software Package, but only under the conditions described in the -%KannadaTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with KannadaTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% - -% This file contains several macros. These are used for setting -% up the environment and character generation. Before you change -% anything in this file you should be very clear about the impact -% of the change. -% - % when testing is false all symbols in the font are - % generated automatically else when testing is true - % only selected symbols will be generated. - - -if unknown testing:boolean testing; testing:=false; fi -showstopping := 1; % for debugging only -let kanchar=\; -let generate=input; -let sketch=draw; -let pos=penpos; -let stop=bye; -string tl_symname,tl_stra,tl_strb,tl_strc,tl_strw,tl_strx,tl_stry; - % contains the name of the symbol being created -tl_symname:=""; % used for creating substitute commands on log file -tl_stra:="OFFSETA{"; tl_strb:="OFFSETB{"; tl_strc:="OFFSETC{"; -tl_strw:="CODE{"; -tl_strx:="\def\";tl_stry:="}%"; - - -if testing: - %To test different characters use following definitions of - % stest and etest. - def stest (text s) = - quote def s = - enddef; - let etest=enddef; -else: - %To generate all the characters use following definitions of - % stest and etest. - def stest (text s) = - tl_symname := str s;% symbol name - used in various messages - enddef; - let etest=;; -fi; - -let ee:=end; - -% We should be very careful about implications of currenttransform -% (particularly 'slanted' transform). When a path is drawn/filled -% currenttransform is applied. When a transform is applied to -% currentpicture, the transform is really applied to slanted (or -% whatever currenttransform is) path. -def font_setup = - let adjust_fit = normal_adjust_fit; - currenttransform := currenttransform slanted slant; - define_pixels(u,v,uh,asc_height,des_depth,x_height); - define_pixels(pen_width,ul,ur,em_width); - - define_pixels(pen_thick,ul,ur,em_width); - - define_pixels(bot_depth,top_height); - define_pixels(fig_height,kfig_height,kfig_width); - define_pixels(ascunit,vmwidth); - define_pixels(top_accent,bot_accent); - define_pixels(bot_cc_ceiling,bot_cc_floor,bot_cc_width,ccwidth); - define_pixels(c_height,w_height,j_height); - define_pixels(asc_height1,asc_height2); - define_pixels(dot_radius,wedge_height,wedge_depth); - define_pixels(half_plus_width,sc_height); - - define_pixels(v_a_width,v_e_width,v_u_width, v_uu_width); - define_pixels(v_ro_width,v_ea_width,v_i_width); - - define_pixels(vm_a_width,vm_aa_width,vm_e_width,vm_ee_width,vm_e_height1); - define_pixels(vm_e_height2,vm_e_heightx,vm_e_heightj, vm_u_width, vm_uu_width); - define_pixels(vm_ro_width,vm_y_width,vm_bar_width, vm_ao_width,vm_aoo_width); - define_pixels(vm_ea_width, vm_ea_height, vm_ea1_width, vm_ah_height, vm_ah_width, vm_au_width); - - define_pixels(cb_ka_width,cb_kha_width,cb_ga_width,cb_cha_width); - define_pixels(cb_ja_width,cb_tta_width,cb_nna_width); - define_pixels(cb_ta_width,cb_da_width,cb_na_width); - define_pixels(cb_ba_width,cb_ya_width,cb_ra_width, cb_rra_width); - define_pixels(cb_la_width,cb_lla_width,cb_pa_width,cb_ca_width); - define_pixels(cb_sha_width,cb_ksha_width); - define_pixels(cb_ksha_depth); - define_pixels(cb_np_width,cb_vg_width, cb_ha_width); - - define_pixels(cv_pu_width,cv_pu_depth); - - define_pixels(p_comma_width); - - %define pen - if unknown special_kanpen: - pickup pencircle scaled pen_width; - %pickup pencircle xscaled 1/2pt yscaled 1/3 rotated -35; - %pickup pencircle yscaled pen_width xscaled pen_thick rotated 30 ; - kanpen:=savepen; - else: - special_kanpen; - kanpen:=savepen; - fi; - - %print titles if generating font - if unknown offsets_only: - tracingtitles:=1; - fi; -enddef; - -newinternal l,r; %adjustment to spacing - -def normal_adjust_fit(expr left_adjustment,right_adjustment) = - l := -hround(left_adjustment*hppp); - interim xoffset := -l; - charwd := charwd + left_adjustment + right_adjustment; - r := l+hround(charwd*hppp) ; - w := r - hround(right_adjustment*hppp) ; -enddef; - -def makebox(text rule) = - for y=0,asc_height,-des_depth,x_height,-bot_depth, - top_height,w_height,c_height, - j_height: rule((l,y)t_,(r,y)t_); % horizontal rules - endfor; - rule((0,h),(r+pen_width,h)); rule((0,-d),(r+pen_width,-d));%height,depth markers - for x=l,r:rule((x,-bot_depth)t_,(x,top_height)t_); % vertical - endfor; - for x=u*(1+floor(l/u)) step u until r-1: - rule((x,-bot_depth)t_,(x,top_height)t_); - endfor; % vertical lines at each u - if charic <> 0: - rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); - fi % italic correction -enddef; - -rulepen := pensquare; - -def begintchar(expr a,b,c,d,e,f,g) = - beginchar(a,b,c,d); - italcorr e; - if known offsets_only: - message tl_strx&tl_symname&tl_strw&decimal(a)&tl_stry; - fi; - numeric left_space,right_space,l_s,r_s; - l_s:=f; r_s:=g; - left_space:=hround(hppp*f); right_space:=hround(hppp*g); - pickup kanpen; - enddef; - -extra_endchar := extra_endchar&"w:=r-l;"; - -def endtchar = - charwd:=w/hppp; charht:= h/vppp; chardp:= d/vppp; - adjust_fit(l_s,r_s); - penlabels(range 1 thru 20); - message ""; - % If any special effects are needed then those should be - % defined as special_effects macro. - if known special_effects: special_effects; fi; - endchar; - enddef; - -% pivot_message macro is used to print offsets to certain points -% in the symbol being generated. These offsets are used by syllable -% building macros to allign vowel modifiers/consonant conjuncts. -% Unlike in english where all symbols stand alone, in Kannada -% various symbols in the font combine to form text. -% For consonant bases two/three offsets are identified. One is used to place -% vowel modifiers and the other is used to place consonant conjuncts(excluding -% those that appear on side). Third offset is used in attaching vowel modifiers -% in some special cases. Offsets have suffixes A,B and C. -% Vowel modifiers, accents and consonant -% conjuncts that appear above/below base consonant indicate one offset value. -% Same macro works in all cases. -% The messages are in the form of TeX macros. -% The log file contains TeX macros mixed with other messages. Use -% some pattern matching program like grep to eliminate all lines containing -% not begining with a \ sign. Name this file tloffsets. -% grep '^\\' xxxxx.log>tloffsets.tex -% The offsets are in em units. So the offsets would be same for any designsize -% and pen width combination. -% Print the offsets only when offsets are being generated. -if unknown offsets_only: % do not print offsets - def pivot_message (text t) = - enddef; -else: %print offsets - def pivot_message (text t) = - numeric count,piv[],index; - % count indicates the number of arguments - count:=0; - for index=t: count:=count+1; piv[count]:=index; endfor; - if count=1: - message tl_strx&tl_symname&tl_stra&decimal((piv[1]+left_space)/em_width)&tl_stry; - elseif count=2: - message tl_strx&tl_symname&tl_stra&decimal((piv[1]+left_space)/em_width)&tl_stry; - message tl_strx&tl_symname&tl_strb&decimal((piv[2]+left_space)/em_width)&tl_stry; - else: - message tl_strx&tl_symname&tl_stra&decimal((piv[1]+left_space)/em_width)&tl_stry; - message tl_strx&tl_symname&tl_strb&decimal((piv[2]+left_space)/em_width)&tl_stry; - message tl_strx&tl_symname&tl_strc&decimal((piv[3]+left_space)/em_width)&tl_stry; - - fi; - enddef; -fi;%end of if unknown offsets - -def fill_dot(suffix $) = - z$t = (x$,y$+dot_radius); - z$l = (x$-dot_radius,y$); - z$b = (x$,y$-dot_radius); - z$r = (x$+dot_radius,y$); - path fill_dot_p; - fill_dot_p = z$t..z$l..z$b..z$r..cycle; - fill fill_dot_p; - penlabels($t,$l,$b,$r); - enddef; - -def fill_dotb(suffix $) = - z$t = (x$,y$+.75dot_radius); - z$l = (x$-.75dot_radius,y$); - z$b = (x$,y$-.75dot_radius); - z$r = (x$+.75dot_radius,y$); - path fill_dot_p; - fill_dot_p = z$t..z$l..z$b..z$r..cycle; - fill fill_dot_p; - penlabels($t,$l,$b,$r); - enddef; - -def lit_cir_form = - lft z61l = (0,c_height/2); top z61t = (c_height/2,c_height); - rt z61 = (c_height,c_height/2); bot z61b = (c_height/2,0); - path lit_cir_p; - lit_cir_p = z61..z61t..z61l..z61b..cycle; - sketch lit_cir_p; - penlabels(61t,61l,61b); - enddef; - -def barandhook_formk (suffix $)(expr bar_width,t) = - z$a=(x$+bar_width-u,y$); rt z$b=(x$a+u,y$-uh); - bot z$c =(x$b-u,y$-2uh); lft z$d=(x$b-2u,y$b); - top z$e=(x$a-u,y$); rt z$f=(x$b,y$+1.5uh); - top z$g=(x$a,y$f+uh); z$h=(x$d,y$f); -path barandhook_p; -barandhook_p= subpath(0,t) of (rt z$--z$a..z$b..z$c..z$d..z$e..z$f..z$g..z$h); -sketch barandhook_p; -penlabels($a,$b,$c,$d); -enddef; - -def wedge(suffix $) = -bot z$w=(x$,-wedge_depth); - path wedge_p; - wedge_p = z$--z$w; - sketch wedge_p; - penlabels($u,$v,$w,$x,$y); - enddef; - - -def vm_hook_form (suffix $)(expr t) = - z$a = (x$,y$+1.5ascunit); - z$b = (x$+u,y$+3ascunit); - z$c = (x$+2u,y$+1.5ascunit); - sketch subpath (0,t) of (z$..z$a..z$b..z$c); - penlabels ($a,$b,$c); - h:=top y$b; -enddef; - - def v_a_form = - top z1=(1/4v_a_width,x_height); - z10=(x1-u,y1-uh); z11=(x1,y1-2(y1-y10)); - lft z3=(0,2/3x_height); bot z4=(1/2v_a_width,0); - rt z5=(v_a_width,2/3x_height); top z6=(v_a_width-1.5u,x_height); - z7=(3.5/5x5,1/2x_height); z8=(1/4w,1/2x_height); - z12=(.65v_a_width,5/6x_height); rt z2=(v_a_width,1/2x_height); - enddef; - -def v_e_form = - lft z1=(0,j_height); top z2=(1/5v_e_width,x_height); - z3=(2/5v_e_width,1.2j_height); top z4=(3/5v_e_width,x_height); - rt z5=(v_e_width,1/2x_height); z6=(4/5v_e_width,1/5x_height); - bot z7=(1/2v_e_width,0); z8=(1/5v_e_width,1/4x_height); - z9=(1/2v_e_width,1/2x_height); rt z10=(v_e_width,-1/5des_depth); - path v_e_p; - v_e_p = z1..z2..tension 1.2..z3&z3..tension 1.2..z4..z5..z6..z7..z8..z9..z10; - sketch v_e_p; - enddef; - -def v_u_form = - z1=(v_u_width-1/2w_height,1/2w_height); z2=(v_u_width-u,w_height); - rt z3=(v_u_width,1/6x_height); bot z4=(3/4v_u_width,0); - z5=(1/2v_u_width,w_height); bot z6=(1/3v_u_width,0); - lft z7=(0,1/2x_height); top z8=(1/2v_u_width,x_height); - top z9=(v_u_width-w_height,x_height); -path v_u_p; -v_u_p=z1..z2..z3..z4..tension 1.2..z5&z5..tension 1.2..z6..z7..z8..z9; -sketch v_u_p; - enddef; - -def v_lo_form = - lft z1=(0,j_height); top z2=(v_lo_width/5,x_height); - z3=(2/5v_lo_width,j_height); top z4=(3/5v_lo_width,x_height); - z5=(4/5v_lo_width,j_height); z6=(3/5v_lo_width,w_height); - bot z7=(4/5v_lo_width,0); rt z8=(v_lo_width,1/2x_height); - top z9=(9/10v_lo_width,x_height); - path v_lo_p; -v_lo_p= z1..z2..z3&z3..z4..z5..z6..z7..z8..z9; -sketch v_lo_p; - enddef; - -def v_ea_form = - lit_cir_form; - bot z2=(2/3v_ea_width,0); rt z3=(v_ea_width,1/3x_height); - z4=(2/3v_ea_width,4/5x_height);top z5=(1/3v_ea_width,x_height); -sketch z1..z2..z3..z4..z5; - enddef; - - def vm_a_form (suffix $) = - path vm_a_p ; - top lft z$a=(x$-2/5vm_a_width,asc_height1); - top rt z$b=(x$+3/5vm_a_width,asc_height); - z$c = z$; - vm_a_p = z$a..tension 6..z$c..tension 16..z$b; - sketch vm_a_p; - penlabels($a,$b,$c); - enddef; - -def vm_e_form = - lft z1 = (0,x_height+1.2ascunit); - top z2 = (1/2vm_e_width,x_height); - rt z3 = (vm_e_width,x_height+2ascunit); - lft z5 = (0,x_height+3ascunit); - z6 = (1/2vm_e_width,y5); - top z7=(1/2vm_e_width,vm_e_height1+ascunit); - sketch subpath (0.4,1) of z1{down}..{right}z2..z3..z7..z5..z6; - % hook can be attached at z7 -enddef; - -def vm_e_form_a (expr xcoord) = -% used for vowel modifier e for some consonants (eg. khe, che, ne etc) -% 999 was chosen arbitrarily. we needed something not used elsewhere! -% same suffix should be used by vm_ee_form_a. - top z999=(xcoord,vm_e_height1); rt z999i=((lft x999)-1.8u,(y999+y999j)/2); - top z999j=(x999,asc_height1); - path vm_e_pa; - vm_e_pa=z999..z999i..z999j..cycle; h:= (top y999)+pen_width; - penlabels(z999,z999i,z999j); -enddef; - -def vm_ee_form_a (expr xcoord) = -% used for vowel modifier ee for some consonants (eg. khee, chee, nee etc) -% 999 was chosen arbitrarily. we needed something not used elsewhere! -% same suffix should be used by vm_e_form_a. - vm_e_form_a(xcoord); vm_hook_form(999,3); -enddef; - -def vm_u_form (suffix $) = - bot z$a = (x$+vm_u_width/2,0); - rt z$b = (x$+vm_u_width,y$); - z$c = (x$+3/4vm_u_width,3/4x_height); - top z$d = (x$+.55vm_u_width,x_height); -path vm_u_p; - vm_u_p=z$..z$a..z$b..z$c..z$d; - sketch vm_u_p; - penlabels($a,$b,$c,$d); - enddef; - -def vm_ro_form = - z1 = (1/3vm_ro_width,-1/2des_depth); - z2 = (1/2vm_ro_width,-1/2des_depth); - z3 = (1/3vm_ro_width,0); - lft z4 = (0,-1/2des_depth); - bot z5 = (1/2vm_ro_width,-des_depth); - rt z6 = (vm_ro_width,(y5+y7)/2); - top z7 = (1/2vm_ro_width,x_height); -sketch z1..z2..z3..z4..z5..z6..z7; -enddef; - -def vm_ea_form(suffix $) (expr bar_width) = - z$a=(5/7bar_width,y$); - z$b=(x$a,asc_height2); - lft z$c=(0,y$b); - rt z$d=(bar_width,(y$+y$b)/2); -penlabels ($a,$b,$c,$d); - sketch z$c--z$b..z$d..z$a--z$; -enddef; - -def vm_ao_form(suffix $)(expr x_offset) = - z$a = (1/6vm_ao_width+x_offset,x_height); - lft z$b = (0+x_offset,asc_height1); - z$c = (1/6vm_ao_width+x_offset,asc_height2); - z$d = (2/6vm_ao_width+x_offset,asc_height1); - z$e = (3/6vm_ao_width+x_offset,asc_height2); - z$f = (5/6vm_ao_width+x_offset,asc_height2); - rt z$g = (vm_ao_width+x_offset,1/2(asc_height1+asc_height2)); - top z$h = (5/6vm_ao_width+x_offset,asc_height1); - z$i = (4/6vm_ao_width+x_offset,asc_height2); - top z$j = (5/6vm_ao_width+x_offset,asc_height); - top z$k = (vm_aoo_width+x_offset-1.5u,asc_height); - rt z$l = (vm_aoo_width+x_offset,asc_height2); - %rt z$l = (vm_aoo_width+x_offset,1/2(asc_height+asc_height2)); - %rt z$k = (vm_ao_width+x_offset,1/2(asc_height+asc_height2)); - path vm_ao_pa,vm_ao_pb; - vm_ao_pa = z$a..z$b..z$c..tension1.2..z$d; - vm_ao_pb= z$d..tension1.2..z$e..tension 1.8..z$f..z$g..z$h..z$i..z$j..tension 1.8..z$k..z$l; - w:= rt x$g; h:= top y$c; - penlabels ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l); -enddef; - -% b---------c--------------d -% | |_| -% $------a -def vm_au_form (suffix $)(expr bar_width) = % see the above diagram - numeric na; - top z$e=z$; - z$a = (x$e+2/10(bar_width-u),y$e); - z1000 = (x$-u,asc_height2); - % 1000 was chosen arbitrarily - % we needed some suffix not used by any user of - % this macro - barandhook_form(1000,bar_width,5); - z$d=z1000a; - %next two statements solve for c - x$c = x$a; - z$c = whatever[z1000,z$d]; - na:=x$c+(x1000a-x$c)/3; % used for alligning pa,pha,sha.. - sketch z$e--z$a{right}..{left}z$c; - penlabels($a,$b,$c,$d,$e,1000); -enddef; - -def cb_ka_form = -rt x1=rt x5=cb_ka_width; y1=8/10x_height; y5=1/4x_height; -x2=x4=x6=1/2cb_ka_width; top y2=x_height; y4=1/2x_height; bot y6=0; -lft x3=lft x7=0; y3=3/4x_height; y7=x_height-y1; -path cb_ka_p; -%cb_ka_p=z7..z6..z5..z4..z3..z2..z1..cycle; -% added a .. cycle to make a kannada "ka" -cb_ka_p=z7..z6..z5..z4..z3..z2..z1..cycle; -enddef; - -def cb_kha_form = -z1=(4/15cb_kha_width,5/6x_height);z2=(2/15cb_kha_width,y1-uh); -lft z3=(0,y1); top z4=(x6,x_height); -z5=(5/12cb_kha_width,1/8x_height); bot z6=(1/4cb_kha_width,0); -lft z7=(0,1/4x_height); z8=(1/4cb_kha_width,1/3x_height); -bot z9=(3/4cb_kha_width,0); rt z10=(cb_kha_width,1/3x_height); -top z11=(x9,x_height); -path cb_kha_p; -cb_kha_p=z1..z2..z3..z4..z5..z6..z7..z8..z9..z10..z11; -sketch cb_kha_p; -numeric a,b; -(a,b)=(subpath (3,5) of cb_kha_p) intersectiontimes - subpath (6,9) of cb_kha_p; -z15 = point a of (subpath (3,5) of cb_kha_p); wedge(15); -enddef; - -def cb_ga_form = -bot z1=(u,0); x5=cb_ga_width-x1; bot y5=0; -y2=y4=1/3x_height; lft x2=0; rt x4=cb_ga_width; -top z3=(1/2cb_ga_width,x_height); -path cb_ga_p,cv_ge_p; - cb_ga_p=z1..z2..z3..z4..z5; - sketch cb_ga_p; - numeric na,nb,nc,nd; - (na,nb)= cb_ga_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_ga_width,vm_e_height2)); - z30= point na of cb_ga_p; - (nc,nd)= cb_ga_p intersectiontimes - ((1/2cb_ga_width,vm_e_height2)--(cb_ga_width,vm_e_height2)); - z32= point nc of cb_ga_p; - top z31=(1/2cb_ga_width,vm_e_height3); - cv_ge_p=z30..z31..z32; -enddef; - -def cb_cha_form = - lft z1=(0,x_height/2); z2=(cb_cha_width/3,x_height/2); - z3=(cb_cha_width/6,w_height); bot z4=(cb_cha_width/4,0); -z5=(cb_cha_width/2,w_height); bot z6=(3/4cb_cha_width,0); - rt z7=(cb_cha_width,w_height); top z8=(cb_cha_width/2,x_height); - path cb_cha_p; - cb_cha_p=z1--z2..z3..z4..tension1.2..z5&z5..tension1.2..z6..z7..z8; - sketch cb_cha_p; - enddef; - -def cb_ja_form = - lft z1 = (0,j_height); top z2 = (cb_ja_width/4,x_height); - z3 = (cb_ja_width/2,j_height); z4 = (cb_ja_width/4,x_height/2); - lft z5 = (0,w_height); bot z6 = (cb_ja_width/4,0); - z7 = (cb_ja_width/2,w_height); bot z8 = (3/4cb_ja_width,0); - rt z9 = (cb_ja_width,w_height); - %following are useful for defining a bowl at the top - bot lft z3w=top z3; z3x=(x8,y1); rt z3y=(w,5/6x_height); - top z3z=(4/5w,x_height); - path cb_ja_pa,cb_ja_pb; - cb_ja_pa=z1..z2..z3..z4..z5..z6..tension1.2..z7&z7..tension1.2..z8..z9; - cb_ja_pb=z3w..z3x..z3y..z3z; - sketch cb_ja_pa; - penlabels(3w,3x,3y,3z); - enddef; - -def cb_tta_form = - top z1=(1/4cb_tta_width,x_height); - y2=y6=1/2x_height; - lft x2=0; rt x6=cb_tta_width; - x3=x1; x5=cb_tta_width-x3; - bot y3=bot y5=0; - top z4=(1/2cb_tta_width,w_height); - top z7=(cb_tta_width-x1,x_height); - z11=(x1+1.5u,y1-1.45uh); - path cb_tta_p,cb_tta_pa,cb_tta_pb; - cb_tta_pb=z1..z2..z3..tension1.2..z4&z4..tension1.2..z5..z6..z7; - numeric na,nb,nc,nd; - (na,nb)= cb_tta_pb intersectiontimes - ((0,5/6x_height)--(1/2cb_tta_width,5/6x_height)); - z8=point na of cb_tta_pb; - (nc,nd)= cb_tta_pb intersectiontimes - ((0.6cb_tta_width,w_height)--(cb_tta_width,w_height)); - z20=point nc of cb_tta_pb; - z19=rt z20; - cb_tta_pa=bot z8..z11..z1; - cb_tta_p=cb_tta_pa..cb_tta_pb; - bot lft z18= z1;% used for placing a vertical line - enddef; - -def cb_nna_form = -z1a=(1/3cb_nna_width,1/2sc_height); -bot z1=(1/4cb_nna_width,0); lft z2=(0,1/4x_height); -z3=(1/6cb_nna_width,1/2x_height); lft z4=(0,3/4x_height); -top z5=(1/4cb_nna_width,x_height); z6=(1/2cb_nna_width,j_height); -top z7=(5/8cb_nna_width,x_height); rt z8=(cb_nna_width,1/2x_height); -bot z9=(2/3cb_nna_width,0); z10=(x9-1/2sc_height,sc_height); -z11=(x9,3/2sc_height); z12=(x9+1/2sc_height,sc_height); - path cb_nna_p; -cb_nna_p= z1a..z1..z2..z3&z3..z4..z5..z6&z6..z7..z8..z9..z10..z11..z12; -sketch cb_nna_p; - penlabels(1a); -enddef; - -def cb_ta_form = -lft z1=(0,1/2x_height); -z2=(x1+u,y1-uh); z3=(x1+2u,y1); z4=(x2,y1+uh); -bot z5=(1/2cb_ta_width,0); rt z6=(cb_ta_width,1/2x_height); -z7=(x6-u,y6+uh); z8=(x6-2u,y6); z9=(x7,y6-uh); -top z10=(1/2cb_ta_width,x_height); - path cb_ta_p; - cb_ta_p = z1..z2..z3..z4..z1..z5..z6..z7..z8..z9..z6..{left}z10; -enddef; - -def cb_da_form = - top z1=(1/2cb_da_width,x_height); lft z2=(0,w_height); - bot z3=(1/3cb_da_width,0);z4=(1/2cb_da_width,w_height); - bot z5=(2/3cb_da_width,0);rt z6=(cb_da_width,1/2x_height); - path cb_da_p,cv_de_p; - cb_da_p= z4..tension 1.2..z5..z6..z1..z2..z3..tension 1.2..z4; - sketch cb_da_p; - numeric na,nb,nc,nd; - (na,nb)= cb_da_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_da_width,vm_e_height2)); - z30= point na of cb_da_p; - (nc,nd)= cb_da_p intersectiontimes - ((1/2cb_da_width,vm_e_height2)--(cb_da_width,vm_e_height2)); - z32= point nc of cb_da_p; - top z31=(1/2cb_da_width,vm_e_height3); - cv_de_p=z30..z31..z32; - enddef; - -def cb_na_form = - bot lft z1=(0,0); lft z2=(0,1/2w_height); - z3=(1/3cb_na_width,w_height); bot z4=(2/3cb_na_width,0); - rt z5=(cb_na_width,1/3x_height); top z6=(1/2cb_na_width,x_height); - path cb_na_p; - cb_na_p=z1..z2..z3..z4..z5..z6; - enddef; - -def cb_ba_form = - lft z1 = (u/2,j_height); top z2 = (cb_ba_width/5,x_height); - z3 = (cb_ba_width/3,j_height); lft z4 = (0,w_height); - bot z5 = (cb_ba_width/4,0); bot z6 = (cb_ba_width/2,w_height); - bot z7 = (3/4cb_ba_width,0); - rt z8 = (cb_ba_width,w_height); %z8 contact point - top z9 = (2/3cb_ba_width,x_height); % z9 another contact point - path cb_ba_p; - cb_ba_p = z1..z2..z3..z4..z5..tension 1.2..z6&z6..tension 1.2..z7..z8..z9; - sketch cb_ba_p; - enddef; - -def cb_ya_form = - lft z1 = (0,2/5x_height); - top z2 = (3/10cb_ya_width,8/10x_height); - rt z3 = (3/5cb_ya_width,y1); - bot z4 = (x2,0); - bot z5 = (4/5cb_ya_width,0); - rt z6 = (cb_ya_width,w_height); - z7 = ((x5+x6)/2,7.3/10x_height); - top z8 = (9/20cb_ya_width,x_height); -enddef; - -def cb_ra_form = - top z1=(cb_ra_width/2,x_height); - lft z2 = (0,w_height); - bot z3 = (cb_ra_width/2,0); - rt z4 = (cb_ra_width,y2); - path cb_ra_p,cv_re_p; - cb_ra_p = z1..z2..z3..z4..cycle; - sketch cb_ra_p; - numeric na,nb,nc,nd; - (na,nb)= cb_ra_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_ra_width,vm_e_height2)); - z30= point na of cb_ra_p; - (nc,nd)= cb_ra_p intersectiontimes - ((1/2cb_ra_width,vm_e_height2)--(cb_ra_width,vm_e_height2)); - z32= point nc of cb_ra_p; - top z31=(1/2cb_ra_width,vm_e_height3); - cv_re_p=z30..z31..z32; - enddef; - -def cb_rra_form = -cb_tta_form; -z14=(cb_tta_width-1.5x1,x_height-sc_height); -z15=(x7,1/2x_height);z16=(x1,y15); - path cb_rra_p; - cb_rra_p= cb_tta_p..z14..z15--z16; - sketch cb_rra_p; -enddef; - -def cb_la_form = -top z1=(1/4cb_la_width,x_height); -lft z2=(0,x_height/2); bot z3=(1/2cb_la_width,0); -rt z4=(cb_la_width,y2); top z5=(cb_la_width-x1,x_height); -z7=(x1+1.5u,2/3x_height); - path cb_la_pa,cb_la_pb,cb_la_p; - cb_la_pb=z1..z2..z3..z4..z5; -z6=point 0.35 of cb_la_pb; - cb_la_pa= bot rt z6..z7..z1; - cb_la_p=cb_la_pa..cb_la_pb; -% z8 is useful for la+u and la+uu -numeric na,nb; -(na,nb)=cb_la_pb intersectiontimes - ((cb_la_width/2,w_height)..(cb_la_width,w_height)); -z9=point na of cb_la_pb; -z8=rt z9; -enddef; - -def cb_lla_form = -top z1=(cb_lla_width/2,w_height); -bot z2 =(x1,0); -z6=(1/3cb_lla_width,x_height-2uh); z3=(x6+u/2,y6-uh); -z4=(x6,.6x_height); z5=(x6+u/2,y3); lft z7=(0,2/3x_height); -bot z8=top z1; rt z9=(cb_lla_width,y7); top z10=(1/2cb_lla_width,x_height); -path cb_lla_pa,cb_lla_pb; -cb_lla_pa=z3..z4..z5..z6..z7..z8..z9..z10; -cb_lla_pb=z1..z2..cycle; -sketch cb_lla_pa; -sketch cb_lla_pb; -% z12 is useful for lla+u and lla+uu -numeric na,nb; -(na,nb)=cb_lla_pa intersectiontimes - ((cb_lla_width/2,x_height/2)..(cb_lla_width,x_height/2)); -z13=point na of cb_lla_pa; -z12=rt z13; -enddef; - -def cb_va_form = - lit_cir_form; - bot z62 = (3/5cb_pa_width,0); rt z63 = (cb_pa_width,w_height); - z64 = (7/8cb_pa_width,j_height); top lft z65 = (x1,x_height); -path cb_va_p,cv_paa_p; -cb_va_p=z61..z62..z63..z64..z65; -top z20=(cb_pa_width/2,h); -cv_paa_p=subpath(0,2) of cb_va_p{up}..z20; -% z22 is useful for alligning au modifier -numeric na,nb; -(na,nb)=cv_paa_p intersectiontimes - ((cb_pa_width/2,asc_height2)..(cb_pa_width,asc_height2)); -z22=point na of cv_paa_p; - enddef; - -def cb_ca_form = -lft z1=(0,1/2x_height); z2=(1/3cb_ca_width,6/8x_height); -bot z3=(1/3cb_ca_width,0); z4=(3/4cb_ca_width,1/3x_height); -rt z5=(cb_ca_width,2/3x_height); top z6=(1/2cb_ca_width,x_height); -lft z7=(0,1/6x_height); -path cb_ca_p,cb_ca_pa; -cb_ca_p=z1..z2{right}..z4..z3..z7..z4..z5..z6; -sketch cb_ca_p; -% z10 is useful for ca+u and ca+uu -cb_ca_pa=subpath(1,3) of cb_ca_p; -numeric na,nb; -(na,nb)=cb_ca_pa intersectiontimes - ((0,w_height)..(cb_ca_width,w_height)); -z11=point na of cb_ca_pa; -z10=rt z11; -enddef; - -def cb_ksha_form = - cb_ka_form; - top z11 = (1/5cb_ka_width,0); - lft z12 = (0,-1/2cb_ksha_depth); - bot z13 = (x11,-cb_ksha_depth); - z14 = (2/5cb_ka_width,-2/3cb_ksha_depth); - bot z15 = (3/5cb_ka_width,-cb_ksha_depth); - z16 = (4/5cb_ka_width,-1/2cb_ksha_depth); - top z17 = (x15,0); - bot rt z18 = (cb_ka_width,-cb_ksha_depth); - sketch z11..z12..z13..z14; sketch z14..z15..z16..z17; - sketch z16..z18; - enddef; - - -def cc_clear = -%erase all that is drawn so far. - clearit; - lft z99=(0,100); - left_spill := xpart(lft (z99 scaled cc_scale)) - xpart(lft z99); - bot z98=(100,0); - bot_spill := ypart(bot (z98 scaled cc_scale)) - ypart(bot z98); - top((z97 scaled cc_scale) - shifted (0,-bot_accent-(x_height*cc_scale)) - shifted (-left_spill,-bot_spill))= - (w*cc_scale/2,x_height); -enddef; - -def cc_transform(text t) = -% used to obtain consonant conjuncts for some consonants and vowels lo&loo -path cc_transformed_path; -cc_transformed_path = t scaled cc_scale - shifted (0,-bot_accent-(x_height*cc_scale)); -sketch cc_transformed_path; -enddef; - -def cc_my_transform(text t) = -% used to obtain consonant conjuncts for some consonants and vowels lo&loo -path cc_transformed_path; -cc_transformed_path = t scaled cc_scale - shifted (0,-bot_accent-(x_height*cc_scale)); -sketch cc_transformed_path; -enddef; - -def cc_f_transform(text t) = -% used to obtain consonant conjuncts for some consonants and vowels lo&loo -fill t scaled cc_scale - shifted (0,-bot_accent-(x_height*cc_scale)); -enddef; - -def cc_whd (expr hh,dd) = -%this macro sets w, h and d for accents that appear below baseline. -% for some consonant conjuncts that result from transforming -% consonant bases the height is not zero (eg. cha, ba ,pa etc) -% for such symbols hh should be 1 and for others hh should be 0. -% Some consonant bases have wedges that hang below base line (eg. bha, pha -% ddha etc. ). For these dd should be 1 and for others dd should be 0. -% -%When a picture is scaled, what really happens is the componant paths -% are scaled and the picture is redrawn. Hence we need to adjust w,h and d. -% Still consonant conjunct for nya needs special care( for d). -w:=w*cc_scale-pen_width*cc_scale+pen_width;; -h:=hh*x_height; -d:=bot_accent+((x_height+(dd*wedge_depth))*cc_scale)+dd*bot_spill; -% (x,y) slanted s shifted (a,b) is (x+sy+a,y+b) whereas -% (x,y) shifted (a,b) slanted s is (x+sy+a+ bs,y+b). Hence we -% need to add the correction 'bs'. 'bs' is -bot_spill*slant -currentpicture:=currentpicture shifted - (-left_spill+((-bot_spill)*slant),-bot_spill); -enddef; - -def cv_ngu_form = - z1=(0,j_height); z2=(cb_ja_width/4,j_height-uh#); - rt z3=(cb_ja_width/2,5/6x_height); top z4=(4/10cb_ja_width,x_height); - sketch z1..z2..z3..z4; -enddef; - -def cv_ju_form = - z1=(0,5/6x_height); z2=(cb_ja_width/4,j_height); - rt z3=(cb_ja_width/2,y1); top z4=(4/10cb_ja_width,x_height); - sketch z1..z2..z3..z4; -enddef; - -def cv_pu_form = - top lft z1=(0,c_height/2); bot z2=(cv_pu_width/2,-cv_pu_depth); - rt z3=(cv_pu_width,h/2); top z4=(cv_pu_width-2u,x_height); - sketch z1..z2..z3..z4; -enddef; - -def dr_sixnine_form = - path dr_sixnine_p; - top rt z1 = (w,fig_height); - z2 = (w/2+u,y1-uh); - bot z4 = (w/2,0); - rt z5 = (w,x4); - z6 = (x4,x5-x7); - lft z7 = (0,y5); - dr_sixnine_p = z1..z2..z7..z4..z5..z6..z7; -enddef; - -def cc_arkavattu= -path dt_six_pa,dt_six_pb; - top z1=(w/5,h); lft z2=(0,3h/4); z3=(x1,h/2); - z4=(w/3,h/2); lft z5=(0,h/4); bot z6=(x1,0); - bot rt z7=(w,0); -arka_pa= flex(z1,z2,z3)& z3--z4; -arka_pb=flex(z3,z5,z6)& z6--z7; -enddef; - - -def p_comma_form = -path p_comma_p; - z1 = (dot_radius,dot_radius); - rt z2 = (p_comma_width,0); - bot lft z3 = (x1-1/2dot_radius,-des_depth); -fill_dot(1); p_comma_p= flex(z1,z2,z3); -sketch p_comma_p; -enddef; - -def p_bar_form = -path p_bar_p; - bot lft z1 = (0,0); - top lft z2 = (0,x_height); -p_bar_p= z1--z2; -enddef; - -def p_slash_form = -path p_slash_p; - bot lft z1 = (0,-des_depth); - top rt z2 = (6u,asc_height); -p_slash_p= z1--z2; -enddef; - -def p_lbracket_form = % square bracket -path p_lbracket_p; - top lft z1 = (0,top_height); - bot lft z2 = (0,-bot_depth); - rt z3 = (w,y1); - rt z4 = (w,y2); -p_lbracket_p=z3--z1--z2--z4; -enddef; - - -def p_rparen_form = -path p_rparen_p; - top lft z1 = (0,top_height); bot lft z2 = (0,-bot_depth); - rt z3 = (w,(-d+h)/2); -p_rparen_p= flex(z1,z3,z2); -enddef; - - -def p_lbrace_form = -path p_lbrace_p; - top rt z1 = (w,h); lft z4 = (0,(h-d)/2); - z2 = (w/2,-d+7/8(h+d)); - z3 = (x2,-d+5/8(h+d)); -p_lbrace_p= z1..z2..z3..z4; -p_lbrace_p:=(p_lbrace_p reflectedabout (z4,z4+(w,0)) )..reverse(p_lbrace_p); -enddef; - - -def dk_five_form = - z1 = (.2w, .7h); lft z2 = (0, 3h/4); - top z3 = (1/4w, h) ; z4 = (.5w, .5h); - bot z5 = (1/4w, 0) ; lft z6 = (0, 1/4 h); - z6a = (.45w, .45h) ; - z7 = (.5w, .5h); z8 = (.95w, .8h) ; - top z9 = (.9w, .96h); z10 = (.6w, .8h) ; - rt z11 = (w, 1/4h) ; bot z12 = (.85w, 0) ; - sketch z1..z2..z3..z4..z5..z6..tension 1.3..z7..z8..z9..z10..z11..tension 1.2..z12; -enddef; - -def dk_six_form = - lft top z1 = (.05w, h); lft z2 = (.12w, .8h); - z3 = (.25w, .45h); z4 = (x3, .65h) ; - z4a = (.4w, (y3+y4)/2); - lft z5 = (0, .25h) ; bot z6 = (.25w, 0) ; - rt bot z7 = (w, 0) ; - sketch z1..z2..z3..z4a..z4..tension 1.2..z5...z6--z7 ; - -enddef; - -def cb_dollar_form = - rt x1=rt x5=cb_ka_width; y1=8/10x_height; y5=1/4x_height; - x2=x4=x6=1/2cb_ka_width; top y2=x_height; y4=1/2x_height; bot y6=0; - lft x3=lft x7=0; y3=3/4x_height; y7=x_height-y1; - path dol_p; - dol_p = z1..z2..z3..z4..z5..z6..z7; -enddef; - diff --git a/Master/texmf-dist/fonts/source/public/itrans/kancodes.mf b/Master/texmf-dist/fonts/source/public/itrans/kancodes.mf deleted file mode 100644 index c5a1d2c71f5..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kancodes.mf +++ /dev/null @@ -1,269 +0,0 @@ -% This file is part of the KannadaTeX Software Package. -%Copyright (c) 1991 G.S. Jagadeesh & Venkatesh. Gopinath. -% -%Author: Modified from TeluguTex by, GS. Jagadeesh. & Venkatesh Gopinath. -%The KannadaTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the KannadaTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the KannadaTeX Software Package, but only under the conditions described in the -%KannadaTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with KannadaTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% - -% This file contains codes to determine where various symbols -% are placed in the font. The symbols that are also part of ASCII -% character set are placed at the same location as in ASCII code. -% Any revision of this file MUST maintain this assignment. -% All kannada digits are given contiguous codes in the order -% 0,1,2,3,4,5,6,7,8,9. Any revision of this file MUST maintain -% this property. -% -% vowels - -v_a_code := oct"027"; -v_aa_code := v_a_code +1; -v_e_code := v_aa_code +1; -v_ee_code := v_e_code +1; -v_u_code := v_ee_code +1; -v_uu_code := v_u_code +1; -v_ro_code := v_uu_code +1; -v_roo_code := v_ro_code +1; -v_ea_code := v_roo_code +1; -v_eae_code := v_ea_code +1; -v_i_code := oct"101" ; -v_ao_code := v_i_code +1; -v_aoo_code := v_ao_code +1; -v_au_code := v_aoo_code +1; - -% vowel modifiers -%vm_a_code := v_au_code +1; -vm_a_code := oct"200"; -vm_aa_code := vm_a_code +1; -vm_ah_code := vm_aa_code +1; -vm_e_code := vm_ah_code +1; -vm_ee_code := vm_e_code +1; -vm_u_code := vm_ee_code +1; -vm_uu_code := vm_u_code +1; -vm_ro_code := vm_uu_code +1; -vm_roo_code := vm_ro_code +1; -vm_ea_code := vm_roo_code +1; -vm_ea1_code := vm_ea_code +1; -vm_y_code := vm_ea1_code +1; -vm_au_code := vm_y_code +1; -vm_p_code := vm_au_code +1; - -% Consonant bases -%cb_ka_code := vm_p_code +1; -cb_ka_code := v_au_code +1; -cb_kha_code := cb_ka_code +1; -cb_ga_code := cb_kha_code +1; -cb_gha_code := cb_ga_code +1; -cb_nga_code := cb_gha_code +1; -cb_cha_code := cb_nga_code +1; -cb_ccha_code := cb_cha_code +1; -cb_ja_code := cb_ccha_code +1; -cb_jha_code := cb_ja_code +1; -cb_nya_code := cb_jha_code +1; -cb_tta_code := cb_nya_code +1; -cb_ttha_code := cb_tta_code +1; -cb_dda_code := cb_ttha_code +1; -cb_ddha_code := cb_dda_code +1; -cb_nna_code := cb_ddha_code +1; -cb_ta_code := cb_nna_code +1; -cb_tha_code := cb_ta_code +1; -cb_da_code := cb_tha_code +1; -cb_dha_code := cb_da_code +1; -cb_na_code := cb_dha_code +1; -cb_naa_code := cb_na_code +1; -cb_pa_code := cb_naa_code +1; - -cb_pha_code := oct"141"; -%cb_pha_code := cb_pa_code +1; -cb_ba_code := cb_pha_code +1; -cb_bha_code := cb_ba_code +1; -cb_ma_code := cb_bha_code +1; -cb_ya_code := cb_ma_code +1; -cb_ra_code := cb_ya_code +1; -cb_rra_code := cb_ra_code +1; -cb_la_code := cb_rra_code +1; -cb_lla_code := cb_la_code +1; -cb_llaa_code := cb_lla_code +1; -cb_va_code := cb_llaa_code +1; -cb_ca_code := cb_va_code +1; -cb_sha_code := cb_ca_code +1; -cb_sa_code := cb_sha_code +1; -cb_ha_code := cb_sa_code +1; -cb_ksha_code := cb_ha_code +1; -cb_dt_code := cb_ksha_code +1; -cb_np_code := cb_dt_code +1; -cb_vg_code := cb_np_code +1; -cb_bb_code := cb_vg_code +1; % boxes(bb,bo,be)(used for demonstrating -% vowel modifiers, cons. conjuncts) -cb_bo_code := cb_bb_code +1; -cb_be_code := cb_bo_code +1; - -% Consonant conjuncts -cc_ka_code := vm_p_code; -cc_kha_code := cc_ka_code +1; -cc_ga_code := cc_kha_code +1; -cc_gha_code := cc_ga_code +1; -cc_nga_code := cc_gha_code +1; -cc_cha_code := cc_nga_code +1; -cc_ccha_code := cc_cha_code +1; -cc_ja_code := cc_ccha_code +1; -cc_jha_code := cc_ja_code +1; -cc_nya_code := cc_jha_code +1; -cc_tta_code := cc_nya_code +1; -cc_ttha_code := cc_tta_code +1; -cc_dda_code := cc_ttha_code +1; -cc_ddha_code := cc_dda_code +1; -cc_nna_code := cc_ddha_code +1; -cc_ta_code := cc_nna_code +1; -cc_tha_code := cc_ta_code +1; -cc_da_code := cc_tha_code +1; -cc_dha_code := cc_da_code +1; -cc_na_code := cc_dha_code +1; -cc_pa_code := cc_na_code +1; -cc_pha_code := cc_pa_code +1; -cc_ba_code := cc_pha_code +1; -cc_bha_code := cc_ba_code +1; -cc_ma_code := cc_bha_code +1; -cc_ya_code := cc_ma_code +1; -cc_ra_code := cc_ya_code +1; -cc_rra_code := cc_ra_code +1; -cc_ara_code := cc_rra_code +1; -cc_la_code := cc_ara_code +1; -cc_lla_code := cc_la_code +1; -cc_va_code := cc_lla_code +1; -cc_ca_code := cc_va_code +1; -cc_sha_code := cc_ca_code +1; -cc_sa_code := cc_sha_code +1; -cc_ha_code := cc_sa_code +1; - -% bars used for transliteration of vedic hymns -% and other symbols used for singing -b_udatta1_code := oct"005"; -b_udatta2_code := b_udatta1_code +1; -b_anudatta_code := b_udatta2_code +1; - -% Roman digits -dr_zero_code := ASCII"0"; -dr_one_code := dr_zero_code +1; -dr_two_code := dr_one_code +1; -dr_three_code := dr_two_code +1; -dr_four_code := dr_three_code +1; -dr_five_code := dr_four_code +1; -dr_six_code := dr_five_code +1; -dr_seven_code := dr_six_code +1; -dr_eight_code := dr_seven_code +1; -dr_nine_code := dr_eight_code +1; - -% Kannada digits -dk_zero_code := oct"015"; -dk_one_code := dk_zero_code +1; -dk_two_code := dk_one_code +1; -dk_three_code := dk_two_code +1; -dk_four_code := dk_three_code +1; -dk_five_code := dk_four_code +1; -dk_six_code := dk_five_code +1; -dk_seven_code := dk_six_code +1; -dk_eight_code := dk_seven_code +1; -dk_nine_code := dk_eight_code +1; - -% Punctuations -p_period_code := ASCII"."; -p_comma_code := ASCII","; -p_equal_code := ASCII"="; -p_bar_code := oct"177"; -p_dbar_code := oct"000"; -p_colon_code := ASCII":"; -p_scolon_code := ASCII";"; -p_cquote_code := ASCII"'"; -p_cquotes_code := oct"001"; -p_oquote_code := ASCII"`"; -p_oquotes_code := oct"002"; -p_dquotes_code := ASCII ditto; %ASCII " -p_slash_code := ASCII"/"; -p_hash_code := ASCII"#"; -p_excla_code := ASCII"!"; -p_asterisk_code := ASCII"*"; -p_plus_code := ASCII"+"; -p_lbracket_code := ASCII"["; -p_rbracket_code := ASCII"]"; -p_lparen_code := ASCII"("; -p_rparen_code := ASCII")"; -p_lbrace_code := ASCII"{"; -p_rbrace_code := ASCII"}"; -p_percent_code := ASCII"%"; -p_bslash_code := ASCII"\"; -p_lbar_code := ASCII"|"; -p_hyphen_code := ASCII"-"; -p_lhyphen_code := oct"003"; -p_vlhyphen_code := oct"004"; -p_ubar_code := ASCII"_"; -p_question_code := ASCII"?"; -p_dollar_code := ASCII"$"; -p_greater_code := ASCII">"; -p_less_code := ASCII"<"; -p_at_code := ASCII"@"; -p_tilde_code := ASCII"~"; -p_hat_code := ASCII"^"; -p_ampersand_code := ASCII"&"; - -% Ubayaksharas -u_sunna_code := oct"010" ; -u_visarga_code := u_sunna_code +1; -u_uss_code := u_visarga_code +1; -%u_ardhavisarga_code := u_visarga_code +1; -%u_avagraha_code := u_ardhavisarga_code +1; - -%some consonant+vowel's need special symbols. Next we will -%define codes for these symbols. -cv_ke_code := cc_ha_code+1; -cv_khe_code := cv_ke_code+1; -cv_ge_code := cv_khe_code+1; -cv_ghe_code := cv_ge_code+1; -cv_che_code := cv_ghe_code+1; -cv_cche_code := cv_che_code+1; -cv_je_code := cv_cche_code+1; -cv_jhe_code := cv_je_code+1; -cv_tte_code := cv_jhe_code+1; -cv_tthe_code := cv_tte_code+1; -cv_dde_code := cv_tthe_code+1; -cv_ddhe_code := cv_dde_code+1; -cv_te_code := cv_ddhe_code+1; -cv_the_code := cv_te_code+1; -cv_de_code := cv_the_code+1; -cv_dhe_code := cv_de_code+1; -cv_ne_code := cv_dhe_code+1; -cv_pe_code := cv_ne_code+1; -cv_phe_code := cv_pe_code+1; -cv_be_code := cv_phe_code+1; -cv_bhe_code := cv_be_code+1; -cv_me_code := cv_bhe_code+1; -cv_re_code := cv_me_code+1; -cv_le_code := cv_re_code+1; -cv_ye_code := cv_le_code+1; -cv_lle_code := cv_ye_code+1; -cv_ve_code := cv_lle_code+1; -cv_vu_code := cv_ve_code+1; -cv_vuu_code := cv_vu_code+1; -cv_ce_code := cv_vuu_code+1; -cv_she_code := cv_ce_code+1; -cv_se_code := cv_she_code+1; -cv_he_code := cv_se_code+1; -cv_kshe_code := cv_he_code+1; - - - -% Some Special characters -kn_spla_code := cv_kshe_code +1 ; -kn_splb_code := kn_spla_code +1; diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanlets.mf b/Master/texmf-dist/fonts/source/public/itrans/kanlets.mf deleted file mode 100644 index 3445e2ca81b..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanlets.mf +++ /dev/null @@ -1,220 +0,0 @@ -% This file is part of the KannadaTeX Software Package. -%Copyright (c) 1991 G.S. Jagadeesh & Venkatesh. Gopinath. -% -%Author: GS. Jagadeesh. -%The KannadaTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the KannadaTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the KannadaTeX Software Package, but only under the conditions described in the -%KannadaTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with KannadaTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% - -CBKA; -CCKA; -CBKHA; -CCKHA; -CBGA; -CCGA; -CBGHA ; -CCGHA; -CBNGA ; -CCNGA ; -CBCHA ; -CCCHA ; -CBCCHA; -CCCCHA; -CBJA ; -CCJA ; -CBJHA ; -CCJHA ; -CBNYA; -CCNYA; -CBTTA; -CCTTA; -CBTTHA; -CCTTHA; -CBDDA; -CCDDA; -CBDDHA; -CCDDHA; -CBNNA; -CCNNA; -CBTA; -CCTA; -CBTHA; -CCTHA; -CBDA; -CCDA; -CBDHA; -CCDHA; -CBNA; -CBNAA; -CCNA; -CBPA; -CCPA; -CBPHA; -CCPHA; -CBBA; -CCBA; -CBBHA; -CCBHA; -CBMA; -CCMA; -CBYA; -CCYA; -CBRA ; -CBRRA ; -CCRA ; -CCRRA ; -CBLA ; -CCLA ; -CBVA; -CVVE; -CVVU; -CVVUU; -CCVA; -CBCA; -CCCA; -CBSA ; -CCSA ; -CBHA ; -CCHA ; -CBLLA ; -CBLLAA ; -CCLLA ; -CBSHA; -CCSHA; -CBKSHA ; -VA ; -VAA; -VE; -VEE ; -VU; -VUU; -VRO; -VROO; -VEA; -VEAE; -VI ; -VAO ; -VAOO ; -VAU; -VMAH ; -VMA ; -VMAA ; -VMEE; -VMU ; -VMUU ; -VMRO ; -VMROO ; -VMEA ; -VMEAA ; -VMY ; -VMAU; -CVKE ; -CVKHE ; -CVGE; -CVGHE; -CVCHE ; -CVCCHE; -CVJE ; -CVJHE ; -CVTTE; -CVTTHE ; -CVDDE; -CVDDHE; -CVTE; -CVTHE; -CVDE; -CVDHE; -CVNE; -CVPE; -CVPHE; -CVBE; -CVBHE; -CVME; -CVYE; -CVRE ; -CVLE ; -CVCE; -CVSHE ; -CVSE ; -CVHE ; -CVLLE ; -CVKSHE ; -VME; - - -DRZERO -DRONE -DRTWO -DRTHREE -DRFOUR -DRFIVE -DRSIX -DRSEVEN -DREIGHT -DRNINE -DKZERO -DKONE -DKTWO -DKTHREE -DKFOUR -DKFIVE -DKSIX -DKSEVEN -DKEIGHT -DKNINE -PPERIOD -PCOMMA -PEQUAL -PBAR -PDBAR -PCOLON -PSCOLON -PCQUOTE -PCQUOTES -POQUOTE -POQUOTES -PDQUOTES -PSLASH -PHASH -PEXCLA -PASTERISK -PPLUS -PLBRACKET -PRBRACKET -PLPAREN -PRPAREN -PLBRACE -PRBRACE -PPERCENT -PBSLASH -PLBAR -PHYPHEN -PLHYPHEN -PVLHYPHEN -PUBAR -PQUESTION -PDOLLAR -PGREATER -PLESS -PAT -PTILDE -PHAT -PAMPERSAND -BOXA -BOXB -BOXC - -FROWN -SMILE diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanmain.mf b/Master/texmf-dist/fonts/source/public/itrans/kanmain.mf deleted file mode 100644 index 783a6b6d389..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanmain.mf +++ /dev/null @@ -1,1298 +0,0 @@ -% This file is part of the KannadaTeX Software Package. -%Copyright (c) 1991 G.S. Jagadeesh & Venkatesh. Gopinath. -% -%Author: GS. Jagadeesh. -%The KannadaTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the KannadaTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the KannadaTeX Software Package, but only under the conditions described in the -%KannadaTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with KannadaTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% - -font_coding_scheme := "TeX text"; - -%font_size 10pt#; slant:=0; pen_width#:=0.35pt#; penangle := 30 ; - -% avinash: June 1998: do not set mode here, that is set by MakeTeXPK -% mode=localfont; - -input kancodes; % codes for kannada symbols -input kanparam; - -font_coding_scheme := "TeX text"; - -mode_setup; font_setup; - - -def v_e_form = - lft z1=(0,j_height); top z2=(1/5v_e_width,x_height); - z3=(2/5v_e_width,1.2j_height); top z4=(3/5v_e_width,x_height); - rt z5=(v_e_width,1/2x_height); z6=(4/5v_e_width,1/5x_height); - bot z7=(1/2v_e_width,0); z8=(1/5v_e_width,1/4x_height); - z9=(1/2v_e_width,1/2x_height); rt z10=(v_e_width,-1/5des_depth); - path v_e_p; - v_e_p = z1..z2..tension 1.2..z3&z3..tension 1.2..z4..z5..z6..z7..z8..z9..z10; - sketch v_e_p; -enddef; - -def place_lit_circ (suffix $) (expr sc) = - lit_cir_form; - erase sketch lit_cir_p; - path pl_lit_cir_p ; - transform t; - t=identity scaled sc shifted z$ ; - %sketch lit_cir_p transformed t; - pl_lit_cir_p = lit_cir_p transformed t; - sketch pl_lit_cir_p ; -enddef ; - -def bar_form(suffix $) (expr width) = - path bar_p; - z$b= (x$+width-2u, y$); - bar_p = z$--z$b; - sketch bar_p; -enddef; - -def bar_forma(expr width) = - path bar_pa; - z300=rt bot (0,x_height); z301= bot(width-2u, x_height); - bar_pa=z300--z301; - sketch bar_pa; -enddef; - -def vmfa_form(suffix $) = % tale-kattu - path bar_p; - z$c= (x$+1.4u, y$); - top z$d= (x$c+.5u, y$+2.5u); - bar_p = z$--z$c{z$c-z$}..z$d; - sketch bar_p; -enddef; - -def vm_aa_form = - top z1 = (0+u,x_height); - top z2 = (vm_aa_width-2u,x_height); - rt z3 = (vm_aa_width, 1/2y1); - bot z4 = (x2, 0); - z5 = (x2-x1, y4+.1y1); - z6 = (x2-1/4x1, y4+.2y1); - z7 = (x2-1/8x1, y4+.1y1); - sketch z1..tension 7..z2..tension 1.8..z3..z4..z5..z6..z7; - flop(4); -enddef; - -def vmfaa_form(suffix $) = % tale-a ile. - top z1a = (x$+0,x_height); - z1b = (x$+4.2u,y1a); - rt z1c = (x1b+2u, .5y1a); - bot z1d = (x1b-.4u, 0); - bot z1e = (x1d, 1.5u); - z1f = (x1e+.25u, y1e-.5u); - - sketch z1a---z1b..tension 1.8..z1c..tension 1.2..z1d..z1e..z1f; - %sketch z1a..tension 10..z1b..tension 1.8..z1c..tension 1.2..z1d..z1e..z1f; - %sketch z1a; draw z1b; draw z1c; draw z1d; draw z1e; draw z1f; draw z1f; -enddef; - - -def vmfea_form(suffix $) = % tale-athwa - path bar_p; - z$c= (x$+1.5u, y$); - z$d= (x$c+.5u, y$+2.5u); - z$e= (x$+1u, y$+1.5u); - z$f= (x$+1.5u, y$e-.4u); - bar_p = z$---z$c{z$c-z$}..z$d..z$e..z$f; - sketch bar_p; -enddef; - -def vmah_form(suffix $) = % tale-ardha akshara - path bar_p; - z$c= (x$+1.2u, y$); - z$cc= (x$c+1.5u, y$); - z$d= (x$cc-.75u, y$-1u); - %z$e= (x$+2.75u, y$+1.25u); % adjust if you want it.. - z$e= (x$+3u, y$+1.5u); - bar_p = z$--z$c..z$cc{dir 2}..z$d..tension 1.4..z$e; - sketch bar_p; -enddef; - -def cb_ka_form = - path cb_ka_pa, cb_ka_pb, cb_ka_pc; - rt top z1=(0.5cb_ka_width, 0.75x_height); lft z2=(0, 3/8x_height); - bot z3=(.5cb_ka_width, 0); - rt z4=(cb_ka_width, 3/8x_height); - lft z5=(0, 0.75x_height); rt z6=(cb_ka_width, .75x_height); - top z7=(0.5cb_ka_width, 0.75x_height); - top z8=(0.55cb_ka_width, x_height); - path cb_ka_p; - cb_ka_pa = z1..z2..z3..z4..cycle; - cb_ka_pb = z5--z6; - cb_ka_pc = z7..{dir 125}z8; - sketch cb_ka_pa; - sketch cb_ka_pb; - sketch cb_ka_pc; - lft top z0 = (0, x_height); - bar_forma(cb_ka_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %bar_form(0,cb_ka_width); - - % to compute the joining point of "kombu for ka". - path inter; - inter = (1/2cb_ka_width, .3x_height)--(1.1cb_ka_width, .3x_height); - z400 = cb_ka_pa intersectionpoint inter; - -enddef; - -def cb_kha_form = - z1=(4/15cb_kha_width,5/6x_height);z2=(2/15cb_kha_width,y1-uh); - lft z3=(0,y1); top z4=(x6,x_height); - z5=(5/12cb_kha_width,1/8x_height); bot z6=(1/4cb_kha_width,0); - lft z7=(0,1/4x_height); z8=(1/4cb_kha_width,1/3x_height); - bot z9=(3/4cb_kha_width,0); rt z10=(cb_kha_width,1/3x_height); - top z11=(x9,x_height); - path cb_kha_p; - cb_kha_p=z1..z2..z3..z4..z5..z6..z7..z8..z9..z10..z11; - %sketch cb_kha_p; - z12 = lft z11; - %vmfaa_form(12) ; - %vmfea_form(12); - - % to compute the joining point of "kombu for ka". - path inter; - inter = (.8cb_kha_width, .3x_height)--(1.1cb_kha_width, .3x_height); - z400 = cb_kha_p intersectionpoint inter; - -enddef; - -def cb_ga_form = - bot z1=(u,0); x5=cb_ga_width-x1; bot y5=0; - y2=y4=1/3x_height; lft x2=0; rt x4=cb_ga_width; - top z3=(1/2cb_ga_width,x_height); - path cb_ga_p, cv_ge_p, cb_ga_pt; - cb_ga_p=z1..z2..z3..z4..z5; - %sketch cb_ga_p; - - % following is for vowel modifier "e". - numeric na,nb,nc,nd; - (na,nb)= cb_ga_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_ga_width,vm_e_height2)); - z30= point na of cb_ga_p; - top z31=(1/6cb_ga_width,.9vm_e_heightx); - %top z31=(1/2cb_ga_width,vm_e_heightx); - (nc,nd)= cb_ga_p intersectiontimes - ((1/2cb_ga_width,vm_e_height2)--(cb_ga_width,vm_e_height2)); - z32= point nc of cb_ga_p; - cv_ge_p=z30..z31..tension1.2..z32; - - % to compute the joining point of "kombu for ka". - path inter; - inter = (.8cb_ga_width, .3x_height)--(1.1cb_ga_width, .3x_height); - z400 = cb_ga_p intersectionpoint inter; - -enddef; - -% following macro is used for many derivatives of "pa" like gha, va etc., -def cb_pa_form = - top z41=0.85(1/8cb_pa_width+1/2u, 1/4x_height+1/4u); - top z42=0.85(1/4cb_pa_width, 3/8x_height); - top z43=0.85(1/8cb_pa_width, 1/2x_height); - top z44=0.85(0, 3/8x_height); - bot z45=(1/4cb_pa_width, 0); - bot z46=(1/2cb_pa_width, 0.6w_height); - bot z47=(3/4cb_pa_width, 0); - rt top z48=(cb_pa_width, 1/2x_height); - rt z33=(0.9cb_pa_width, .85x_height) ; - - path cb_pa_p,cb_paa_p; - cb_pa_p = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z33; - - - % to compute the joining point of "kombu for pa and its derivatives". - path inter; - inter = (.8cb_pa_width, .25x_height)--(1.1cb_pa_width, .25x_height); - z400 = cb_pa_p intersectionpoint inter; - -enddef; - -def vm_ghu_form (suffix $) = - numeric diff_ht; - numeric mx, my, mz; - diff_ht = x_height-y$; - bot z$x = (x$+vm_u_width/4,y$-1/9diff_ht); - rt z$y = (x$+vm_u_width/2,y$+1/2diff_ht); - top rt z$z = (x$+vm_u_width/3,y$+diff_ht-0.3u); - path vm_ghu_p; - vm_ghu_p=z$..z$x..z$y..z$z; - sketch vm_ghu_p; - %penlabels($aa,$bb,$cc,$d); -enddef; - -def cb_cch_form = - path cb_ccha_pa, cb_ccha_pb, cb_ccha_pc; - numeric k_w, k_yo, k_h, k_xo; - k_w=1/4cb_ja_width; % Kondi width - k_xo=1/6cb_ja_width; - k_yo=3/4x_height; - k_h=1/4x_height; - - top rt rt z1=(k_xo+1/3k_w, k_yo+1/2k_h); - rt top z2=(k_xo+1/2k_w, k_yo); - rt top z3=(k_xo+k_w, k_yo+1/2k_h); - rt top z4=(k_xo+1/2k_w,k_yo+k_h); - - rt z5=(0.075cb_ja_width, 3/4x_height); - - z6=(0, 1/2x_height); - bot z7=(1/4cb_ja_width, 0); - z8=(1/2cb_ja_width, .6w_height); - bot z9=(3/4cb_ja_width, 0); - rt z10=(cb_ja_width, 1/2x_height); - top z11=(0.80cb_ja_width, x_height); - - cb_ccha_pa = z1..z2..z3..z4..z5..z6..z7..z8..z8..z9..z10..z11; - sketch cb_ccha_pa; - z12 = (x11-.5u, y11); - - %vmfa_form(12); % Following are test to see How vowel modifer looks. - %vmfaa_form(12) ; - %vmfea_form(12); - %bar_form(0,cb_ja_width); - %vm_au_form(12,w); - - % to compute the joining point of "kombu for ka". - path inter; - inter = (.8cb_ja_width, .3x_height)--(1.1cb_ja_width, .3x_height); - z400 = cb_ccha_pa intersectionpoint inter; - -enddef ; - - -def cb_ch_ja_base= - numeric j_offset; - j_offset = 0.08cb_ja_width; - lft z1 = (0,j_height); top z2 = (cb_ja_width/8,x_height); - z3 = (cb_ja_width/4+j_offset,j_height); - z4 = (cb_ja_width/8+j_offset,x_height/2); - lft z5 = (0,w_height); bot z6 = (cb_ja_width/8,0); - %z7 = (cb_ja_width/2,0.8w_height); bot z8 = (3/4cb_ja_width,0); - z7 = (cb_ja_width/2,0.8w_height); bot z8 = (.8cb_ja_width,0); -enddef ; - -def cb_ja_form = - - cb_ch_ja_base; % Defines some base points for ja, ch O etc., - rt z9 = (cb_ja_width,w_height); - path cb_ja_pa,cb_ja_pb, cb_nga_p, cb_ja_pc, cb_ja_pe; - cb_ja_pa=z1..z2..z3..z4..z5..z6..tension1.15..z7&z7..tension1.2..z8..z9; - - % to define BOWL for ja. - z40 = (0.2cb_ja_width, .9x_height); top z41=(.95cb_ja_width, x_height); - z60= (z40..z41) intersectionpoint cb_ja_pa ; - z50 = (1.4x3,0.8x_height); - cb_ja_pb=z60..z50..z41; - - % to define BOWL for nga. - z20 = (0.2cb_ja_width, .8x_height); top z21=(.95cb_ja_width, .9x_height); - z30= (z20..z21) intersectionpoint cb_ja_pa ; - top z10 = (1.4x3,.95x_height); - cb_nga_p=z30..z10..z21; - - z42= (x41, y41+1.5u) ; - z43= (x41-u, y42-.75u) ; - z44= (x41-.7u, y42-1.4u) ; - cb_ja_pe = z60..z50..z41..z42..z43..z44 ; - z35=(0.62cb_ja_width, y40-u) ; - cb_ja_pc = rt bot z35 ; - sketch cb_ja_pa; - %penlabels(3w,3x,3y,3z); - - % for "ile" and "tale kattu" - - z52=(x41-u, y41); - %vmfa_form(52); % Following are test to see How vowel modifer looks. - %vmfaa_form(52) ; - %vmfea_form(52); - %bar_form(0,cb_ka_width); - %vm_au_form(52,w); - - % to compute the joining point of "kombu for ka". - path inter; - inter = (.8cb_ja_width, .3x_height)--(1.1cb_ja_width, .3x_height); - z400 = cb_ja_pa intersectionpoint inter; - - enddef; - -def cb_ch_form = - path cb_cha_pa, cb_cha_pb, cb_cha_pc; - cb_ch_ja_base; - rt rt z9 = (0.9cb_ja_width, .6x_height); - cb_cha_pa=z1..z2..z3..z4..z5..z6..tension1.2..z7&z7..tension1.15..z8..tension1.1..z9; - sketch cb_cha_pa; - y11 = y10 = y9; x10=cb_ja_width; x11=x9-(x10-x9); - - top z12 = (x9, x_height); - cb_cha_pb = z10--z11; - cb_cha_pc = z9{dir 40}..z12; - sketch cb_cha_pb ; - sketch cb_cha_pc ; - - z20 = (x12-.1u,y12) ; - %vmfa_form(20); % Following are test to see How vowel modifer looks. - %vmfaa_form(20) ; - %vmfea_form(20); - %bar_form(0,cb_ka_width); - %vm_au_form(20,w); - - % to compute the joining point of "kombu for ka". - path inter; - inter = (.8cb_ja_width, .3x_height)--(1.2cb_ja_width, .3x_height); - %sketch inter; - z400 = cb_cha_pa intersectionpoint inter; - -enddef ; - -def cb_nya_form= - v_e_form; - path cb_ny_pb; - z14= v_e_p intersectionpoint ((x4,.8x_height)--(w,.8x_height)); - z15=z14; - z16=(v_e_width+half_plus_width, .9y14); - cb_ny_pb = z14{dir 60}..z16; - sketch cb_ny_pb; - z17=top(.6(x14+x16), x_height); - %pivot_message(x15c,x7); - %vmfa_form(17); % Following are test to see How vowel modifer looks. - %vmfaa_form(17) ; - %vmfea_form(17); - %bar_form(0,cb_ka_width); - %vm_au_form(400,w); - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8v_e_width, .3x_height)--(1.1v_e_width, .3x_height); - z500 = v_e_p intersectionpoint inter; - z400=(x500+3u,y500); - %vm_u_form(400); - -enddef ; - -def cb_ta_form = - lft z1=(0,.35x_height); bot z2=(.55cb_ta_width, 0); - rt z3=(cb_ta_width, .35x_height); z4=(.55cb_ta_width, .55x_height); - rt z5=(.4cb_ta_width, .42x_height); - top z6=(.7cb_ta_width, .48x_height); - bot z7=(.75cb_ta_width, .68x_height); - bot z8=(.7cb_ta_width, .78x_height); - top z9=(.5cb_ta_width, x_height); - - top z10 = (.4cb_ta_width, x_height) ; - z11 = (.41cb_ta_width, .8x_height) ; - z12 = (.5cb_ta_width, .85x_height) ; - - path cb_ta_p, cb_te_p; - cb_ta_p = z1..z2..z3..z4..tension 1.2..z5..tension1.2..z6..z7..z8..z9; - cb_te_p = cb_ta_p softjoin z9..z10..z11..z12 ; - bar_forma(cb_ta_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_ta_width, .3x_height)--(1.1cb_ta_width, .3x_height); - z400 = cb_ta_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def cb_tta_form = - path cb_tta_p, cb_tta_pa, cb_tta_pe; - lft top z1=(0.12cb_tta_width,x_height); - lft top z2=(0.1cb_tta_width,x_height); - top z3=(0,.75x_height); - lft z4=(.15cb_tta_width, 0.43x_height); - lft z5=(.2cb_tta_width, 0.55x_height); - z6=(0, .25x_height); - bot z7=(1/4cb_tta_width, 0); - - z8=(1/2cb_tta_width, 0.6w_height);%(wedge) - - bot z9=(3/4cb_tta_width, 0); - lft z10=(cb_tta_width, 1/4x_height); - - z11=(0.85cb_tta_width, 1/2x_height); %(wedge) - rt lft z12=(cb_tta_width, 3/4x_height); - rt top z13=(.9cb_tta_width, x_height); - - %For consanant +e - z14=(.8cb_tta_width, .9x_height); - z15=(.89cb_tta_width, .8x_height); - - %cb_tta_pa = z1..tension1.2..z2..z3..tension1.2..z4; - cb_tta_pa = z1..tension1.2..z2..z3..{curl 6.3}z4; - cb_tta_p = z4..z5..tension1.2..z6..z7 - ..z8..z8..z9..z10..z11..z11..z12..z13; - %For consanant +e - cb_tta_pe = z4..z5..tension1.2..z6..z7 - ..z8..z8..z9..z10..z11..z11..z12..z13..z14..z15; - sketch cb_tta_pa ;sketch cb_tta_p; - z20=(x13-u,y13); - - %vmfa_form(20); % Following are test to see How vowel modifer looks. - %vmfaa_form(20) ; - %vmfea_form(20); - %bar_form(0,cb_ka_width); - %vm_au_form(20,w); - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_tta_width, .3x_height)--(1.1cb_tta_width, .3x_height); - z400 = cb_tta_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - - -def cb_da_form = - top z1=(1/2cb_da_width,x_height); lft z2=(0,w_height); - bot z3=(1/3cb_da_width,0);z4=(1/2cb_da_width,.6w_height); - bot z5=(2/3cb_da_width,0);rt z6=(cb_da_width,1/2x_height); - path cb_da_p,cv_de_p; - cb_da_p= z4..tension 1.2..z5..z6..z1..z2..z3..tension 1.2..z4; - sketch cb_da_p; - numeric na,nb,nc,nd; - (na,nb)= cb_da_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_da_width,vm_e_height2)); - z30= point na of cb_da_p; - (nc,nd)= cb_da_p intersectiontimes - ((1/2cb_da_width,vm_e_height2)--(cb_da_width,vm_e_height2)); - z32= point nc of cb_da_p; - top z31=(1/2cb_da_width,.95vm_e_heightx); - cv_de_p=z30{curl 3}..z31..z32; - bar_forma(cb_da_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_da_width, .3x_height)--(1.1cb_da_width, .3x_height); - z400 = cb_da_p intersectionpoint inter; - %vm_u_form(400); - - enddef; - -def cb_dda_form = - path cb_dda_p, cv_dde_p; - rt z1=(0.1cb_da_width, .5x_height); bot z2=(0.25cb_da_width, 0); - bot z3=(1/2cb_da_width,0.6w_height); - bot z4=(0.7cb_da_width,0); lft z5=(0.9cb_da_width, 0.4x_height); - top z6=(0.6cb_da_width, 0.6x_height); - lft z7=(0.79cb_da_width, 0.7x_height); - top z8=(0.45cb_da_width, .99x_height); - - cb_dda_p=z1...z2..z3..z3...z4...z5..{curl 2.5}z6..z7..z8..tension 1.0..cycle; - sketch cb_dda_p; - - bar_forma(cb_da_width-u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - - numeric na,nb,nc,nd; - (na,nb)= cb_dda_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_da_width,vm_e_height2)); - z30= point na of cb_dda_p; - (nc,nd)= cb_dda_p intersectiontimes - ((1/2cb_da_width,vm_e_height2)--(cb_da_width,vm_e_height2)); - z32= point nc of cb_dda_p; - top z31=(1/2cb_da_width,.92vm_e_heightx); - cv_dde_p=z30{curl 3}..z31...z32; - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_da_width, .3x_height)--(1.1cb_da_width, .3x_height); - z400 = cb_dda_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def cb_na_form = - bot lft z1=(0,0); lft z2=(0,1/2w_height); - bot lft z1=(0,0); lft z2=(0,1/2w_height); - z3=(1/3cb_na_width,w_height); bot z4=(2/3cb_na_width,0); - rt z5=(cb_na_width,1/3x_height); top z6=(1/2cb_na_width,x_height); - bot z10=(.12cb_na_width, -.65w_height); - - % For consonant+e - top z7 = (.3cb_na_width, x_height); - z8 = (.3cb_na_width, .7x_height); - z9 = (.45cb_na_width, .8x_height); - - path cb_na_p, cb_ne_p; - - cb_na_p=z10..z1..z2..z3..z4..z5..z6; - cb_ne_p = cb_na_p softjoin z6..tension1.3..z7..z8..z9; - - bar_forma(cb_na_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_na_width, .3x_height)--(1.1cb_na_width, .3x_height); - z400 = cb_na_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def cb_nna_form = - z1a=(1/3cb_nna_width,1/2sc_height); - bot z1=(1/4cb_nna_width,0); lft z2=(0,1/4x_height); - z3=(1/6cb_nna_width,1/2x_height); lft z4=(0,3/4x_height); - top z5=(1/4cb_nna_width,x_height); z6=(1/2cb_nna_width,.8x_height); - top z7=(5/8cb_nna_width,x_height); rt z8=(cb_nna_width,1/2x_height); - bot z9=(2/3cb_nna_width,0); bot z10=(x9-1/2sc_height,sc_height); - bot z11=(x9,3/2sc_height); bot z12=(x9+1/2sc_height,sc_height); - path cb_nna_p; - cb_nna_p= z1a..z1..z2..z3&z3..z4..z5..z6&z6..z7..z8..z9..z10 - ..tension 1.1..z11..z12; - sketch cb_nna_p; - z20=bot(.8cb_na_width, x_height); - %bar_forma(vm_ea1_width); - %bar_forma(cb_nna_width); - %vmfa_form(20); % Following are test to see How vowel modifer looks. - %vmfaa_form(20) ; - %vmfea_form(301); - %vm_au_form(20,vm_au_width); - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_nna_width, .3x_height)--(1.1cb_nna_width, .3x_height); - z400 = cb_nna_p intersectionpoint inter; - %vm_u_form(400); - - penlabels(1a); -enddef; - -def cb_ba_form = - lft z1 = (u/2,j_height); top z2 = (cb_ba_width/5,x_height); - z3 = (cb_ba_width/3,j_height); lft z4 = (0,w_height); - bot z5 = (cb_ba_width/4,0); bot z6 = (cb_ba_width/2,.6w_height); - bot z7 = (3/4cb_ba_width,0); - rt z8 = (cb_ba_width,w_height); %z8 contact point - top z9 = (.8cb_ba_width,x_height); % z9 another contact point - - %for consant+e - z10 = (.65cb_ba_width, 1.1x_height); - z11 = (.65cb_ba_width, .91x_height); - - path cb_ba_p, cb_be_p; - cb_ba_p = z1..z2..z3..z4..z5..tension 1.2..z6&z6..tension 1.2..z7..z8..z9; - cb_be_p = cb_ba_p softjoin z9..tension1.7..z10..z11; - sketch cb_ba_p; - - z12 = (x9-u,y9); - %vmfa_form(12); % Following are test to see How vowel modifer looks. - %vmfaa_form(12) ; - %vmfea_form(12); - %vm_au_form(12,vm_au_width); - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_ba_width, .3x_height)--(1.1cb_ba_width, .3x_height); - z400 = cb_ba_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def vb_ea_form = - cb_pa_form ; - path vb_a_p,vb_a_pa; - top z9 = (.80cb_ba_width,.80x_height); % z9 another contact point - top z10 = (.35cb_ba_width,x_height); % z9 another contact point - vb_a_p = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..tension 1.2..z10; -enddef ; - -def vb_eae_form = - vb_ea_form; - path vb_a_pb; - z11 = (.25cb_ba_width,.82x_height); - top z12 = (.13cb_ba_width,x_height); - vb_a_pb = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..tension 1.2..z10..z10..z11..z12 -enddef ; - -def vb_i_form = - cb_pa_form; - path vb_a_pb; - top z9 = (3/4cb_pa_width, x_height); z10 = ( 1/2cb_pa_width, .8x_height); - top z11 = (1/4cb_pa_width, x_height); lft z12 = (0, .75x_height); - vb_a_pb = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..z10..z10..z11..z12 -enddef ; - -%def cb_va_form = -% cb_pa_form ; -% path cb_va_p,cb_va_pa; -% top z9 = (.82cb_ba_width,.83x_height); % z9 another contact point -% top z10 = (.4cb_ba_width,x_height); % z9 another contact point -% cb_va_p = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..z10; -% z20 = (.6cb_ba_width,w_height); -% z21 = (cb_ba_width, w_height); -% z30= (z20--z21) intersectionpoint cb_va_p ; -% vm_u_form(30); -%enddef ; - -def cb_ya_form = - - path cb_ya_pa, cb_ya_pb, cb_ya_pc, cb_ye_p; - lft z1 = (0, .49x_height); bot z2 = (3/10cb_ya_width, 0); - rt z3 = (3/5cb_ya_width, y1) ; top z4 = (x2, 2y1); - z20 = (.7x2, 3/10x_height); - z21 = (cb_ya_width+vm_u_width, 3/10x_height); - cb_ya_pa = superellipse( z3, z4, z1, z2, .7) ; - top z30 = (z20--z21) intersectionpoint cb_ya_pa ; - bot z5 = (8/10cb_ya_width, 0); lft z6 = (.85*2x3, .5x_height); - %top z7 = (.9x5, x_height); - top z7 = (.77cb_ya_width, x_height); - - %for consonant+e - z50 = (.75x5, 1.15x_height); - z51 = (.68x5, .98x_height); - z52 = (.89x5, .92x_height); - cb_ya_pb = z30..tension 1.12..z5..z6..z7; - cb_ye_p = z30..tension 1.12..z5..z6..z7..tension 1.4..z50..z51..z52; - %cb_ye_p = z30..tension 1.12..z5..z6..z7; - %sketch z6;sketch z7;sketch z50;sketch z51;sketch z52; - %cb_ye_p = z30..tension 1.12..z5..z6..z7..tension 1.6..z50; sketch z51; sketch z52; - - top z40 = (z20--z21) intersectionpoint cb_ya_pb ; - numeric ya_width ; - ya_width = cb_ya_width + vm_u_width ; - bot z8 = (.79(ya_width), 0); rt z9 = (ya_width, .5x_height); - top z10 = (.8ya_width, x_height) ; - cb_ya_pc = z40..z8..z9..z10 ; - draw cb_ya_pa ; - draw cb_ya_pb ; - draw cb_ya_pc ; - - z90=(x7-1.5u, y7); - bar_form(90, .4cb_ya_width); - %vmfa_form(7); % Following are test to see How vowel modifer looks. - %vmfaa_form(10) ; - %vmfea_form(7); - %vm_au_form(10,vm_au_width); - - % to compute the joining point of "kombu for ya". - path inter; - inter = (.7ya_width, .3x_height)--(1.1ya_width, .3x_height); - z400 = cb_ya_pc intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def cb_la_form = - top z1=(1/4cb_la_width,x_height); - lft z2=(0,x_height/2); bot z3=(1/2cb_la_width,0); - rt z4=(cb_la_width,y2); top z5=(cb_la_width-.8x1,x_height); - z7=(x1+1.5u,2/3x_height); - path cb_la_pa,cb_la_pb,cb_la_p, cb_le_p, cb_le_pb; - cb_la_pb=z1..z2..z3..z4..z5; - z6=point 0.35 of cb_la_pb; - cb_la_pa= bot rt z6..z7..z1; - cb_la_p=cb_la_pa..cb_la_pb; - - %for consonant+e - - z20=(x5-1.5u, x_height+.7u); - z21=(x5-2.3u, x_height-.75u); - z22=(x5-.1u, x_height-.4u); - %draw z21; - - %cb_le_pb=z1..z2..z3..z4..z5..{curl 2}z20..z21; - cb_le_pb=z1..z2..z3..z4..z5..tension1.6..z20..z21..z22; - cb_le_p=cb_la_pa..cb_le_pb; - - % z8 is useful for la+u and la+uu - numeric na,nb; - (na,nb)=cb_la_pb intersectiontimes - ((cb_la_width/2,w_height)..(cb_la_width,w_height)); - z9=point na of cb_la_pb; - z8=rt z9; - z55= lft z5; - %bar_forma(cb_ra_width); % z301 is comming from bar_forma... - %vmfa_form(55); % Following are test to see How vowel modifer looks. - %vmfaa_form(55) ; - %vmfea_form(55); - %vm_au_form(55,vm_au_width); - %vmah_form(55); % tale-ardha akshara - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_la_width, .5x_height)--(1.1cb_la_width, .3x_height); - z400 = cb_la_p intersectionpoint inter; - %vm_u_form(400); -enddef; - -def cb_ra_form = - top z1=(cb_ra_width/2,x_height); - lft z2 = (0,w_height); - bot z3 = (cb_ra_width/2,0); - rt z4 = (cb_ra_width,y2); - path cb_ra_p,cv_re_p; - cb_ra_p = z1..z2..z3..z4..cycle; - sketch cb_ra_p; - numeric na,nb,nc,nd; - (na,nb)= cb_ra_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_ra_width,vm_e_height2)); - z30= point na of cb_ra_p; - (nc,nd)= cb_ra_p intersectiontimes - ((1/2cb_ra_width,vm_e_height2)--(cb_ra_width,vm_e_height2)); - z32= point nc of cb_ra_p; - top z31=(.05cb_ra_width,.8vm_e_heightx); - cv_re_p=z30..z31..tension1.2..z32; - - bar_forma(cb_ra_width); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - %vmah_form(301); % tale-ardha akshara - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_ra_width, .3x_height)--(1.1cb_ra_width, .3x_height); - z400 = cb_ra_p intersectionpoint inter; - %vm_u_form(400); - enddef; - -def cb_rra_form = - top z1=(1/4cb_rra_width,x_height); - y2=y6=1/2x_height; - lft x2=0; rt x6=cb_rra_width; - x3=x1; x5=cb_rra_width-x3; - bot y3=bot y5=0; - top z4=(1/2cb_rra_width,w_height); - top z7=(cb_rra_width-x1,x_height); - z11=(x1+1.5u,y1-1.45uh); - path cb_rra_p,cb_rra_pa,cb_rra_pb; - cb_rra_pb=z1..z2..z3..tension1.2..z4&z4..tension1.2..z5..z6..z7; - numeric na,nb,nc,nd, ne, nf; - (na,nb)= cb_rra_pb intersectiontimes - ((0,5/6x_height)--(1/2cb_rra_width,5/6x_height)); - z8=point na of cb_rra_pb; - (nc,nd)= cb_rra_pb intersectiontimes - ((0.6cb_rra_width,w_height)--(cb_rra_width,w_height)); - z20=point nc of cb_rra_pb; - z19=rt z20; - cb_rra_pa=bot z8..z11..z1; - cb_rra_p=cb_rra_pa..cb_rra_pb; - bot lft z18= z1;% used for placing a vertical line - - z14=(cb_rra_width-1.6x1,x_height-sc_height); - %z15=(x7,1/2x_height);z16=(x1,y15); - z15 = cb_rra_p intersectionpoint - ((0.7cb_rra_width,y8-.6u)--(cb_rra_width,y8-.6u)); - - z22 = cb_rra_p intersectionpoint - ((0, .6x_height)--(.4cb_rra_width, .6x_height)) ; - z23 = cb_rra_p intersectionpoint - ((.6cb_rra_width, .6x_height)--(cb_rra_width, .6x_height)) ; - - z16=(x1,y15); - path cb_rra_pc, cb_rra_pd; - %cb_rra_pc= cb_rra_p..z14..z15--z16; - cb_rra_pc= cb_rra_p..z14..z15;%--z16; - cb_rra_pd = z22--z23 ; - sketch cb_rra_pc; - sketch cb_rra_pd ; - - path inter; - inter = (.8cb_rra_width, .3x_height)--(1.1cb_rra_width, .3x_height); - z400 = cb_rra_pc intersectionpoint inter; - enddef; - -def arkavattu = - path arka_pa, arka_pb ; - top z1=(w/5,h); lft z2=(0,3h/4); z3=(x1,h/2); - z4=(w/3,h/2); lft z5=(0,h/4); bot z6=(x1,0); - bot rt z7=(w,0); - arka_pa= flex(z1,z2,z3)& z3--z4; - arka_pb=flex(z3,z5,z6)& z6--z7; -enddef; - - -def flop(expr e) = - for d = 1 step 1 until e: - draw z[d]; - endfor; -enddef ; - -def cb_ca_form = - path cb_ca_p, cb_ce_p, cb_ca_pb; - lft z1 = (0, .25x_height); bot z2= (.5cb_ca_width, 0); - rt z3 = (cb_ca_width, .42x_height); z4 = (.75cb_ca_width, .82 x_height); - top lft z5 = (.3cb_ca_width, .98x_height) ; - top lft z6 = (.15cb_ca_width, .8x_height) ; - top lft z7 = (.2cb_ca_width, .74x_height) ; - top lft z8 = (.35cb_ca_width, .78x_height) ; - top z9 = (.33cb_ca_width, .85x_height) ; - z22 = (.3cb_ca_width, y3); - z21 = (.58cb_ca_width, .7x_height); - top z20 = (.45cb_ca_width, x_height); - - z30 = (x20-1.25u, x_height+1u); - z31 = (x20-2.25u, x_height+.5u); - z32 = (x20-1.25u, x_height+.1u); - - - cb_ca_p = z20..z21..z22..z1..z2..{dir 92}z3..z4..z5..z6..z7..z8..z9; - cb_ca_pb = z32..z31..z30..tension1.6..z20; - - cb_ce_p = cb_ca_pb softjoin cb_ca_p ; - bar_forma(cb_ca_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - %vmah_form(301); % tale-ardha akshara - - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_ca_width, .3x_height)--(1.1cb_ca_width, .3x_height); - z400 = cb_ca_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def cb_va_form = - cb_pa_form ; - path cb_va_p, cb_va_pa, cb_ve_p; - top z9 = (.82cb_ba_width,.8x_height); % z9 another contact point - top z10 = (.5cb_ba_width,x_height); % z9 another contact point - - %for consonant +e - top z11 = (.3cb_ba_width, .8x_height); - z12 = (.5cb_ba_width, .85x_height); - - %cb_va_p = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..{left}z10; - cb_va_p = z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..z10; - cb_ve_p =z41..z42..z43..z43..z44..z45..z46 & z46..z47..z48..z9..z10..z11..z12; - - bar_forma(cb_pa_width-.2u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfea_form(301); - %vm_u_form(46); - -enddef ; - -def cv_vu_form(suffix $) = - path cv_vu_p; - z$a = z$; - bot z$b = (x$a+.25cb_ba_width, -.5des_depth) ; - z$c = (cb_ba_width+.5vm_u_width, .4x_height); - rt z$d = (cb_ba_width+.35vm_u_width, .8x_height); - sketch z$..z$b..z$c..z$d; -enddef; - -def cv_vuu_form(suffix $) = - path cv_vu_p; - z$a = z$; - bot z$b = (x$a+.25cb_ba_width, -.5des_depth) ; - z$c = (cb_ba_width+.2vm_uu_width, .4x_height); - rt z$d = (cb_ba_width+.5vm_uu_width, .9x_height); - z$e = (cb_ba_width+.8vm_uu_width, .5x_height); - rt z$g = (cb_ba_width+.7vm_uu_width, .05x_height); - z$h = (cb_ba_width+.55vm_uu_width, .1x_height); - z$i = (cb_ba_width+.65vm_uu_width, .25x_height); - sketch z$..z$b..z$c..z$d..z$e..z$g..z$h..z$i; -enddef; - -def vm_a_form(suffix $) = - path vm_a_p ; - rt x$a = vm_a_width; y$a = y$; - x$b = x$a ; y$b = 1.3y$a; - vm_a_p = z$--z$a..{dir 160}z$b; - penlabels($a,$b,$c); -enddef ; - -def vm_a_forma(suffix $) = - path vm_a_p ; - top z51$=(x$-1/6vm_a_width,x_height); - top z52$=(x$+.6vm_a_width,x_height); - top top z53$=(x$+.6vm_a_width,1.3x_height); - vm_a_p = z51$--z52$..{dir 160}z53$; -enddef ; - -def cb_sa_form = - bot lft z1=(0,0); lft z2=(0,1/2w_height); - z3=(.5cb_na_width,.4x_height); bot rt z4=(.85cb_na_width,.02x_height); - rt z44=(.98cb_na_width,.1x_height); - - rt z5=(cb_na_width,.5x_height); top z6=(.8cb_na_width,.9x_height); - path cb_sa_p; - top lft z77=(1/3cb_na_width-1/2c_height, top (x_height - c_height)); - place_lit_circ(77, 1); - cb_sa_p=z1..z2..z3..{z5-z6}z4.. z44..z5..z6; - bar_forma(cb_na_width-u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - %vmah_form(301); % tale-ardha akshara - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_na_width, .3x_height)--(1.1cb_na_width, .3x_height); - z400 = cb_sa_p intersectionpoint inter; - %vm_u_form(400); -enddef; - -def cb_ha_form = - lft z1 = (0, .45x_height) ; bot z2 = (.24cb_ha_width, 0); - z3 = (.48cb_ha_width, .3x_height); z4 = (cb_ha_width-x3, .6x_height); - z5 = (.76cb_ha_width, .8x_height); rt z6 = (cb_ha_width, .4x_height); - bot z7 = (.76cb_ha_width, 0); z8 = (cb_ha_width-x3, y3); - z9 = (x3, y4); z10 = (x2, y5); - z11 = (x3,.65x_height); top z12 = (.4cb_ha_width, x_height); - path cb_ha_p, cb_ha_pa ; - cb_ha_p = z1..z2..z3..z4..z5..z6..z7..z8..z9..z10..cycle; - cb_ha_pa = z11..{dir 130}z12; - sketch cb_ha_p ; - sketch cb_ha_pa ; - bar_forma(cb_ha_width-u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - %vmah_form(301); % tale-ardha akshara - % to compute the joining point of "kombu for nya". - path inter; - inter = (.8cb_ha_width, .3x_height)--(1.1cb_ha_width, .3x_height); - z400 = cb_ha_p intersectionpoint inter; - %vm_u_form(400); -enddef ; - -def cb_lla_form = - z1=(.18cb_lla_width,.84x_height); z2=(.25cb_lla_width,.8x_height); - top z3=(.32cb_lla_width,.86x_height); top z4=(x2,x_height); - lft z5 =(0, .8x_height); - z6 = (1/2cb_lla_width, .4x_height); - z7 = (3/4cb_lla_width, .2x_height); - bot z8 = (1/2cb_lla_width,0); - z9 = (1/4cb_lla_width,y7); - rt z10 = (cb_lla_width,.75x_height); - - top z11 = (.8cb_lla_width,x_height); - - z19 = (.9cb_lla_width, .9x_height); - z20 = (x19-1.2u, y19+1.2u); - z21 = (x19-1.5u, y19); - z22 = (x19-.95u, y19+.15u); - path cb_lla_p, cb_lle_p, cb_lla_pb; - - cb_lla_p = z1..z2..z3..z4..z5..z6..z7..z8..z9..z6..z10..z11; - - %cb_lla_pb = z11..tension 1.3..z20..z21; - - %cb_lle_pb = cb_lla_p softjoin cb_lla_pb ; - cb_lle_p = z1..z2..z3..z4..z5..z6..z7..z8..z9..z6..z10..z19..tension 1.6..z20...z21..z22; - %cb_lle_p = z1..z2..z3..z4..z5..z6..z7..z8..z9..z6..z10..z19..z11; - z12 = lft lft z11; - %vmfa_form(12); % Following are test to see How vowel modifer looks. - %vmfaa_form(12) ; - %vmfea_form(12); - %vm_au_form(12,vm_au_width); - %vmah_form(12); % tale-ardha akshara - % to compute the joining point of "kombu for nya". - path inter; - inter = (.6cb_lla_width, .22x_height)--(1.1cb_lla_width, .22x_height); - z400 = cb_lla_p intersectionpoint inter; - %vm_u_form(400); - -enddef; - -def cb_sha_form = - cb_va_form; - top lft z77=(1/2cb_pa_width-1/2c_height-.5u, top (x_height - c_height)); - place_lit_circ(77, 1); - bot rt z66 = (cb_pa_width, 0); - path cb_sha_pb; - z65 = (.65cb_pa_width, .6x_height); - cb_sha_pb = z65--z66; - %bar_forma(cb_ra_width); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - %vmah_form(301); % tale-ardha akshara -enddef ; - -def cb_ksha_form = - cb_ka_form; - top z11 = (1/6cb_ka_width, -.4cb_ksha_depth); - lft z12 = (0,-1/2cb_ksha_depth); - bot z13 = (1/4cb_ka_width,-cb_ksha_depth); - z14 = (.48cb_ka_width,-2/3cb_ksha_depth); - bot z15 = (3/4cb_ka_width,-cb_ksha_depth); - rt z16 = (.95cb_ka_width,-1/2cb_ksha_depth); - top z17 = (.8cb_ka_width, -.01cb_ksha_depth); - bot rt z18 = (cb_ka_width,-cb_ksha_depth); - bot z19 = (.9cb_ka_width, y16); - sketch z11..z12..z13..z14; sketch z14..z15..z16..z17; - sketch z19..z18; -enddef; - -def v_a_form = - top z1=(1/4v_a_width,x_height); - z10=(x1-u,y1-uh); z11=(x1,y1-2(y1-y10)); - lft z3=(0,2/3x_height); bot z4=(1/2v_a_width,0); - rt z5=(v_a_width,2/3x_height); top z6=(v_a_width-1.5u,x_height); - z7=(4/5x5,.55x_height); z8=(1/4w,y7); - z12=(.65v_a_width,5/6x_height); rt z2=(v_a_width,1/2x_height); -enddef; - -def v_aa_form = - z1=(.1v_a_width,.7x_height); z2=(.3v_a_width,.85x_height); - top z3 = (.15v_a_width, x_height); lft z4 = (0, .75x_height); - lft z4a = (.12v_a_width, .2x_height); - bot z5 = (.5v_a_width, 0); rt z6 = (v_a_width, .3x_height); - bot z66 = (.85v_a_width, .55x_height); - top z7 = (.76v_a_width, .7x_height); top z8 = (.88v_a_width, x_height); - rt z9 =(v_a_width, .85x_height); - rt z11 =(x7, y7); - rt z12 =(.4v_a_width, y11); - sketch z1..z2..z3..z4..z4a..z5 ..tension 1.2..z6..z66..z7..z8..z9..z7..z11--z12; -enddef; - -def v_u_form = - path v_u_pa, v_u_pb; - z1 = (.13v_u_width, .78x_height); z2= (2x1, .88x_height); z3a=(.09v_u_width,y2); - top lft z3 = (x1, x_height); - lft z4 = (0, .43x_height); bot z5 = lft (.2v_u_width, 0); - z5a = (.38v_u_width, .53y6); - %top z6 = (.52v_u_width, x_height); z6a = (.65v_u_width, 1.2y5a); - top z6 = (.52v_u_width, x_height); z6a = (.66v_u_width, y5a); - bot z7 = (.8v_u_width, 0); rt z7a = (v_u_width, .5x_height); - rt z8 = (.94v_u_width, .9x_height) ; top rt z8a = (.91v_u_width,x_height); - - %v_u_pa = z1..z2..z3..z3a..tension 1.2..z4..z5...z5a..tension 1.2..z6 - % {dir 9}..z6a{dir -85}..z7..z7a..z8..z8a; - v_u_pa = z1..z2..z3..z3a..z4..z5...z5a..z6..z6a..z7..z7a..z8..z8a; - %v_u_pb = z1..z2..z3..z3a..tension 1.2..z4..z5..z5a..tension 1.2..z6 - % {dir 5}..z6a{dir -85}..z7; - %flop(8); draw z3a; draw z5a; draw z6a; draw z7a; draw z8a ; - sketch v_u_pa; -enddef; - -def vm_uu_form (suffix $) = - bot z1$ = (x$+.1vm_uu_width, 0); z2$ = (x$+.4vm_uu_width, .66x_height); - top z3$ = (x$+.52vm_uu_width,x_height); - rt z4$ = (x$+vm_uu_width, .5x_height); - bot z5$ = (x$+.75vm_uu_width, 0); z6$ = (x$+.65vm_uu_width, .1x_height); - rt z7$ =(x$+.85vm_uu_width, .25x_height); - sketch z$..z1$..z2$..z3$..z4$..z5$..z6$..z7$; -enddef; - -def v_uu_form = - numeric wid, het ; - wid = v_uu_width ; het = x_height ; - z1 = (1/10wid,8/10het) ; z2 = (2x1, y1); top z3 = (x1, het) ; - lft z4 = (0-.5u, 1/2 het) ; bot z5 = (1/8wid, 0) ; - z6 = (1/4wid, 1/2het) ; top z7 = (3/8wid, het) ; - z8 = (1/2wid, 1/2het) ; bot z9 = (5/8wid, 0) ; - z10 = (3/4wid, 1/2het); top z11 = (7/8wid, het) ; - rt z12 = (wid+.5u, 1/2het) ;bot z13 = (wid-x3, 0) ; - z14 = (wid-x2, het-y2) ; z15 = (wid-x1, het-y1) ; - %sketch z1...z2...z3...z4...z5...z6...z7...z8...z9...z10...z11...z12...z13...z14...z15; - sketch z1..z2..z3..z4..tension 1.2..z5..tension 1.2..z6..tension 1.2..z7..tension 1.2..z8..tension 1.2..z9..tension 1.2..z10..tension 1.2..z11..tension 1.2..z12..z13..z14..z15; -enddef; - -def v_ro_form = - path v_ro_p; - z1 = (.5v_ro_width, .8x_height); z2 = (.25v_ro_width, .7x_height); - lft z3 = (0, .8x_height); top z4 = (.5v_ro_width, x_height); - rt z5 = (v_ro_width, .5x_height); - bot z6 = (x4, 0); lft z7 = (0, .2x_height); z8 = (x2, .3x_height); - z9 = (x1, .2x_height); - v_ro_p = z1..z2..z3..z4..z5..z6..z7..z8..z9; - - z10 = (.6v_ro_width, y8); z11 = (v_ro_width+2vm_u_width, y10); - sketch v_ro_p; - z19 = (z10--z11) intersectionpoint v_ro_p; - vm_u_form(19); - z29 = (x19+.4vm_u_width, x_height); - vm_a_forma(29); - sketch vm_a_p; - z20=z19b; - vm_u_form(20); - z39 = z20b; -enddef; - -def barandhook_formk (suffix $)(expr bar_width,t) = - z$a=(x$+bar_width-u,y$); rt z$b=(x$a+u,y$-uh); - bot z$c =(x$b-u,y$-2uh); lft z$d=(x$b-2u,y$b); - top z$e=(x$a-u,y$); rt z$f=(x$b,y$+1.5uh); - top z$g=(x$a,y$f+uh); z$h=(x$d,y$f); - path barandhook_p; - barandhook_p= subpath(0,t) of (rt z$--z$a..z$b..z$c..z$d..z$e..z$f..z$g..z$h); - sketch barandhook_p; - penlabels($a,$b,$c,$d); -enddef; - -def barandhook_form (suffix $)(expr bar_width,t) = - z$a=(x$+bar_width-u,y$); rt z$bb=(x$a+u,y$-1/2des_depth); - rt z$b=(x$a+u,y$-des_depth+uh); - bot z$c =(x$b-u,y$b-uh); lft z$d=(x$b-1.75u,y$b); - top z$e=(x$d+.75u,y$b+.5u); rt z$f=(x$b,y$+1.5uh); - path barandhook_p; - barandhook_p= (rt z$--z$a..z$bb..z$b..z$c..z$d..z$e); - %barandhook_p= subpath(0,t) of (rt z$--z$a..z$bb..z$b..z$c..z$d..z$e); - sketch barandhook_p; - penlabels($a,$b,$c,$d); -enddef; - -%Following is old version it's obsolete............... -def vm_au_forma (suffix $)(expr bar_width) = % see the above diagram - numeric na; - %top z$e=z$; % screwed up GHA+AU. - %z$e=z$; - z$e=(x$, y$); - z$a = (x$e+2/10(bar_width-u),y$e); - z1000 = (x$-.5u,asc_height2); - % 1000 was chosen arbitrarily - % we needed some suffix not used by any user of - % this macro - barandhook_form(1000,bar_width,5); - z$d=z1000a; - %next two statements solve for c - x$c = x$a; - z$c = whatever[z1000,z$d]; - na:=x$c+(x1000a-x$c)/3; % used for alligning pa,pha,sha.. - sketch z$e--z$a{right}..{left}z$c; - penlabels($a,$b,$c,$d,$e,1000); -enddef; - -def vm_au_form (suffix $)(expr bar_width) = % see the above diagram - numeric na; - %top z$e=z$; % screwed up GHA+AU. - %z$e=z$; - z$e=(x$, y$); - z$a = (x$e+5/10(bar_width-u),y$e); - z1000 = (x$+2.3u,asc_height2); - % 1000 was chosen arbitrarily - % we needed some suffix not used by any user of - % this macro - barandhook_form(1000,.9bar_width,5); - z$d=z1000a; - %next two statements solve for c - x$c = x$a; - z$c = whatever[z1000,z$d]; - na:=x$c+(x1000a-x$c)/3; % used for alligning pa,pha,sha.. - sketch z$e--z$a{right}..{left}z$c; - penlabels($a,$b,$c,$d,$e,1000); -enddef; - -% Begin of Vowel Modifiers..... - -def vm_ee_form = - z0 = (.5vm_ee_width+u, y2); - z1 = (.7vm_ee_width+u, 2/3x_height); - rt z2 = (vm_ee_width+u, y1+1/6x_height); - top z3 = (1/2vm_ee_width+u, x_height); - lft z4 = (0+u, .6x_height); bot z5 = (3/5vm_ee_width+u, 0); - sketch z0..z1..z2..z3..z4..z5; -enddef; - -def vm_ro_form = - z1=(.8vm_ro_width,3/5x_height);rt z2=(vm_ro_width,0); - bot z3=(1/2vm_ro_width,-des_depth);z4=(.15vm_ro_width,-.1des_depth); - z5=(.2vm_ro_width,.05x_height); z6 = (.25vm_ro_width, .1x_height); - z7=(.3vm_ro_width,-.2des_depth); - path vm_ro_p; - vm_ro_p = z1..z2..z3..z4..z5..z6..z7; - path ct; - ct = vm_ro_p scaled 1 shifted (-3u, -.5des_depth) rotated 0 ; - sketch ct; -enddef; - -def vm_y_form = - top z1=(.75vm_y_width, 3/5x_height); rt z1a=(vm_y_width,3/10x_height); - rt z2=(.8vm_y_width,.1x_height); - rt z3a=(vm_y_width,-1/2des_depth); - bot z3=(1/2vm_y_width,-des_depth);z4=(.15vm_y_width,-.1des_depth); - z5=(.2vm_y_width,.05x_height); z6 = (.25vm_y_width, .1x_height); - z7=(.3vm_y_width,-.2des_depth); - path vm_y_p ; - vm_y_p = z1..z1a..z2..z2..z3a..z3..z4..z5..z6..z7; -enddef; - -%def vm_e_form_a (suffix $) (expr xoff, yoff) = -% z$1 = (x$+xoff, y$+yoff); -% z$2 = (x$1+u, y$1+u); -% z$3 = (x$1, y$1+2u); -% z$4 = (x$1-u, y$1+u); -% z$5 = (x$1-.7u, y$1+.1u); -% path vm_e_p; -% vm_e_p = z$..z$1..z$2..z$3..z$4..z$5; -%enddef; - -def vm_e_form_a (suffix $) (expr xoff, yoff) = - z31 = (x$+xoff, y$+yoff); - z32 = (x31+u, y31+u); - z33 = (x31, y31+2u); - z34 = (x31-u, y31+u); - z35 = (x31-.7u, y31+.1u); - path vm_e_p; - vm_e_p = z$..z31..z32..z33..z34..z35; -enddef; - -def vm_e_formb(suffix $) (expr a, b) = - z50 = (a-1/2u, b+u) ; - z51 = (a, b) ; - sketch z$..z50..z51 ; -enddef; - -def vm_e_form = - path vm_e_p; - lft z551 = (0,x_height+1.2ascunit); - top z552 = (1/2vm_e_width,x_height); - rt z553 = (vm_e_width,x_height+2ascunit); - z554 = z553; - lft z555 = (0,x_height+3ascunit); - z556 = (1/2vm_e_width,y555); - top z557=(1/2vm_e_width,vm_e_height1+ascunit); - vm_e_p = subpath (0.4,1) of z551{down}..{right}z552..z553..z557..z555..z556; - sketch vm_e_p; - %sketch subpath (0.4,1) of z551{down}..{right}z552..z553..z557..z5..z556; - % hook can be attached at z7 -enddef; - -def naa_form = - path naa_p ; - z1 = bot lft (cb_na_width, x_height) ; z2 = bot ( 2u, x_height) ; - z3 = rt (0, 5/6x_height) ; - z4 = bot (u, 2/3x_height) ; z5 = (3/4cb_na_width, y4) ; - z6 = rt (0, 1/2x_height) ; - z7 = bot (u, 1/3x_height); z8 = (1/2cb_na_width, y7) ; - z9 = rt (0, 1/6x_height) ; - z10 = top (u, 0) ; - - naa_p = z1--z2...z3...z4--z5 &z5--z4...z6...z7--z8 & z8--z7...z9..z10 ; - sketch naa_p ; -enddef ; - -input kanvarna ; -input kanlets; - -end; diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanparam.mf b/Master/texmf-dist/fonts/source/public/itrans/kanparam.mf deleted file mode 100644 index 8346ee22b24..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanparam.mf +++ /dev/null @@ -1,181 +0,0 @@ -% This file is part of the KannadaTeX Software Package. -%Copyright (c) 1991 G.S. Jagadeesh & Venkatesh. Gopinath. -% -%Author: Modified from TeluguTex by, GS. Jagadeesh & Venkatesh Gopinath. -%The KannadaTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the KannadaTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the KannadaTeX Software Package, but only under the conditions described in the -%KannadaTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with KannadaTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% - -%%%%%%%% -% This file contains various parameters used in making a font -% for kannada. Many of the parameters are used in several places. -% Before changing anything here you should be very clear about -% the possible impact. -% -% -input kanbase % read basefile - -font_identifier :="KANNADA"; - -% parameters - -u#:=designsize/18; % unit width -v#:=designsize; % total height -uh#:=v#/18; % unit height -top_shoulder:=2/36; % top shoulder proportion -bot_shoulder:=2/36; % bottom shoulder proportion -xheight:=15/36; % x height proportion -ascheight:=10/36; % ascender height proportion -desdepth:=7/36; % descender depth proportion -figheight:=6/36; % height of roman digits - -em_width#:=18u#; % same as font_quad -%font_quad em_width#; - -asc_height#:=(ascheight+xheight)*v#; -des_depth#:=desdepth*v#; -x_height#:=xheight*v#; -bot_depth#:=(bot_shoulder+desdepth)*v#; -top_height#:=(top_shoulder+ascheight+xheight)*v#; -fig_height#:=(figheight+xheight)*v#; % height of roman digits -kfig_width#:=7.5u#; % width of kannada digits -kfig_height#:=x_height#; % height of kannada digits - -asc_height1#:=(1/3ascheight+xheight)*v#; -asc_height2#:=(2/3ascheight+xheight)*v#; - -%j_height#:=2/3x_height#; % height of bowls in ja,ta etc -j_height#:=.6x_height#; % height of bowls in ja,ta etc -c_height#:=1/3x_height#; % height of circle in ma, pa etc -% c_height is used to draw small circles. If we use a wide pen then the circle -% may not be clearly visible. Hence the following statement. -if c_height# < (3.2*pen_width#):c_height#:=3.2pen_width#; fi; -w_height#:=1/3x_height#; % height of wedge in da,ta etc -ascunit#:=1/6(asc_height#-x_height#); % a unit for acsender area -vmwidth#:=7u#; % width of vowel modifiers -top_accent#:=1.5uh#; % base for accents that appear at top -bot_accent#:=1.5uh#; % base for accents that appear below -cc_scale:=0.65; % scale factor for consonant conjuncts -ccwidth#:=vmwidth#; % width of co.conjuncts that appear on % the side -dot_radius#:=u#; % radius of dot -wedge_height#:=x_height#/4; % height of wedge (in dha, uu etc) -wedge_depth#:=4/9des_depth#; % depth of wedge(in dha,uu etc) -sc_height#:=1/6x_height#; % misc. usage - -v_a_width#:=10u#; % width of vowel a -v_e_width#:=7.5u#; % width of vowel e -v_u_width#:=10u#; % width of vowel u (like dda no hat -v_uu_width#:=13u#; % width of vowel u (like dda no hat -v_lo_width#:=11u#; % width of vowel lo(inverted ja) -v_ea_width#:=6u#; % width of vowel ea(like pa without -v_i_width#:=7u#; % width of vowel i -v_ro_width#:=4.5u#; % width of vowel ro - -vm_ah_width# :=4u#; -vm_ah_height# :=3u#; -vm_a_width#:=2u#; % width of vowel modifier a -vm_aa_width#:=6u#; % width of vowel modifier aa -vm_e_width#:=4u#; % width of vowel modifier e -vm_ee_width#:=4u#; % width of vowel modifier e -vm_e_height1#:=asc_height2#; % height of vowelmodifier e (used -vm_ea_width# := 2u#; -vm_ea1_width# := 8u#; -vm_ea_height# := 2u#; -vm_e_height2#:=5/6x_height#; % vowel mod. e for ra,ga.da sits -vm_e_heightx#:=(1/2ascheight+xheight)*v#; % between vm_e_height2 and 3 - % with certain consonants kha,cha, - % ccha,ja,ta,na,ba,bha,ma,la,va etc) -vm_u_width#:=4.5u#; % width of ubowl (attached to letter -vm_uu_width#:=8u#; % width of uubowl (attchd to lett). -vm_ro_width#:=6u#; % width of vowel modifier ro -vm_y_width#:=6u#; % width of vowel modifier ro -vm_bar_width#:=4u#; % width of vowel modifier ro -vm_ao_width#:=8u#; % width of vowel modifier ao -vm_aoo_width#:=vm_ao_width#+1.5u#; % width of vowel modifier aoo -vm_au_width#:=8u#; % width of vowel modifier ao - -vm_e_width1#:=3u#; % width of vowel modifier e -vm_e_heightj#:=2.25u#; % height of vowel modifier e - -%vm_e_width#:=3u#; % width of vowel modifier ao -%vm_e_height#:=2u#; % width of vowel modifier ao - -cb_ka_width#:=6u#; % width of ka -cb_kha_width#:=7.5u#; % width of kha -cb_ga_width#:=6u#; % width of ga -cb_cha_width#:=9u#; % width of cha -cb_ja_width#:=7.5u#; % width of ja -%cb_tta_width#:=10.5u#; % width of tta -cb_tta_width#:=7.5u#; % width of tta -cb_nna_width#:=9u#; % width of nna -cb_ta_width#:=7u#; % width of ta -cb_da_width#:=9.0u#; % width of da -cb_ha_width#:=9.0u#; % width of da -cb_na_width#:=7u#; % width of na -cb_ba_width#:=7.5u#; % width of ba -cb_ya_width#:=10u#; % width of ya (without bowl) -cb_ra_width#:=6u#; % width of ra -cb_rra_width#:=9u#; % width of rra -cb_la_width#:=9u#; % width of la -cb_lla_width#:=6u#; % width of lla -cb_pa_width#:=7.5u#; % width of pa -cb_ca_width#:=5.5u#; % width of ca -cb_sha_width#:=cb_pa_width#+1.5u#; % width of sha -cb_ksha_width#:=cb_ka_width#; % width of ksha -cb_ksha_depth#:=des_depth#; % floor of ksha -cb_np_width#:=ccwidth#; % width of nakarapollu -cb_vg_width#:=ccwidth#; % width of valapalagilaka - -cv_pu_width#:=cb_pa_width#+2u#; % width of u modifier for pa -cv_pu_depth#:=1.5uh#; % depth of u modifier for pa - -p_comma_width#:=2dot_radius#+u#; % width of comma -half_plus_width#:=cb_ja_width#/2; % width of symbol like truncated + - -% ul#, ur# indicate the amount of white space that is added -% to a symbol. Following are the criteria used to add space -% consonant base, vowels - none -% punctuation,digits - on right -% consonant conjuncts that appear below,vowel modifiers that appear -% above/below - none -% accents that appear below/above - none -% consonant conjuncts that appear on the side - on left -% vowel modifiers for u, uu - none -% vowel modifiers for ro, roo - on left -% While composing Kannada text using TeX, space is added after a syllable -% by the macros that build a syllable. -ul#:=2u#; % white space (on left) -ur#:=2u#; % white space (on right) - - -%generate kannada; % switch to driver files -% Font Dimensions - -font_slant slant; -font_x_height x_height#; -font_normal_space 6u#; -font_normal_stretch 3u#; -font_normal_shrink 2u#; -font_quad em_width#; -font_extra_space 2u#; - -%ligature and kern information - -%ligtable "'": "'" =: p_cquotes_code; % close quotes -%ligtable "`": "`" =: p_oquotes_code; % open quotes -%ligtable "-": "-" =: p_lhyphen_code; % en dash -%ligtable p_lhyphen_code: "-" =: p_vlhyphen_code; % em dash - -%if not testing: expandafter stop fi; diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf b/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf deleted file mode 100644 index 98d74be993f..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf +++ /dev/null @@ -1,52 +0,0 @@ -%kanspc% -% generates striped characters with shading -%input kanmode; -font_size 72pt#; -slant:=0; -pen_width#:=2.5pt#; -% Following code(with minor modifications) is taken from the article, -% The ABC's of Special Effects by Georgia K. M. Tobin, -% that appeared in TUGboat, Volume 9(1988), No. 1 -vardef special_effects= -% creates characters filled with stripes and followed by a shadow. - cullit; - picture Normalchar; - Normalchar:=currentpicture; - clearit; -% Depending on the output device, pen size(0.1pt) may need to be -% changed. - pickup pencircle scaled 0.1pt; - filldraw (0,-d)--(w,-d)-- - (w,h)--(0,h)--cycle; - picture Blackbox; - Blackbox:=currentpicture; - picture Reversevideo; - Reversevideo:=Blackbox-Normalchar; - clearit; -% Depending on the output device,stepsize(uh/3) may need to be -% changed. - for f=-d step uh/3 until h: - draw(0,f)--(w,f); - endfor; - currentpicture:= - currentpicture-Reversevideo; - cullit; - picture Stripedchar; - Stripedchar:=currentpicture; - clearit; -% Depending on the output device,offset(1.5pt) may need to be -% changed. - currentpicture:=Normalchar shifted(1.5pt,-1.5pt); - picture Shadow; - Shadow:=currentpicture; - clearit; - currentpicture:=Shadow-Normalchar; - cullit; - picture Shadowonly; - Shadowonly:=currentpicture; - clearit; - - currentpicture:=Shadowonly+Stripedchar; -enddef; -input kanmain; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanvarna.mf b/Master/texmf-dist/fonts/source/public/itrans/kanvarna.mf deleted file mode 100644 index f2a429c2dd3..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanvarna.mf +++ /dev/null @@ -1,2359 +0,0 @@ -% This file is part of the KannadaTeX Software Package. -%Copyright (c) 1991 G.S. Jagadeesh & Venkatesh. Gopinath. -% -%Author: GS. Jagadeesh. -%The KannadaTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the KannadaTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the KannadaTeX Software Package, but only under the conditions described in the -%KannadaTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with KannadaTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% -% This file contains all Kannada aksharas in it's varnamale. -% along vowel modifiers and consonant conjunctions. - -%-------------- Begin of are the Vowel and Vowel modifiers.--------------- -def VA = - stest(va); kanchar "vowel a"; - begintchar(v_a_code,v_a_width#,x_height#,0,0,0,0); - v_a_form; - sketch z10..z11..z1..z3..z4..z5..z6..z7--z8; - endtchar; etest; -enddef ; - -def VAA= - stest(vaa); kanchar "vowel aa"; - begintchar(v_aa_code,v_a_width#,x_height#,0,0,0,0); - v_a_form; - sketch z10..z11..z1..z3..z4..z2 &z2{(0,1)}..{up}z12..z6..z5..{left}z7--z8; - endtchar; etest; -enddef ; - -def VE= - stest(ve); kanchar "vowel e"; - begintchar(v_e_code,v_e_width#,x_height#,des_depth#,0,0,0); - v_e_form; - endtchar; etest; -enddef ; - -def VEE = - stest(vee); kanchar "vowel ee"; - begintchar(v_ee_code,cb_ra_width#+2.6u#,asc_height#,0,0,0,0); - cb_ra_form; - z1a = (0, 1/2x_height); - z1b = (cb_ra_width+1.1u, y1a); - rt z1c = (x1b+1.5u, .7x_height); - z1d = (x1b+.75u, .85x_height); - rt z1e = (x1b+1.5u, .25x_height); - bot z1f = (x1b+.5u, 0); - draw z1a--z1b..z1c..z1d..z1b..z1e..z1f; - vmfa_form(301); % Following are test to see How vowel modifer looks. - endtchar; etest; -enddef ; - -def VU= - stest(vu); kanchar "vowel u"; - begintchar(v_u_code,v_u_width#,asc_height#,0,0,0,0); - v_u_form; - %sketch v_u_pa; - endtchar; etest; -enddef; - -def VUU= - stest(vuu); kanchar "vowel uu"; - begintchar(v_uu_code,v_uu_width#+.5u#,x_height#,0,0,0,0); - v_uu_form; - endtchar; etest; -enddef; - -def VRO= - stest(vro); kanchar "vowel ro"; - begintchar(v_ro_code,v_ro_width#+1.7vm_u_width#,x_height#+2u#,0,0,0,0); - v_ro_form; - endtchar; etest; -enddef; - -def VROO= - stest(vroo); kanchar "vowel roo"; - begintchar(v_roo_code,v_ro_width#+2vm_u_width#+vm_uu_width#,x_height#+2u#,0,0,0,0); - v_ro_form; - %z3a = (0, .7w_height); - vm_uu_form(39); - endtchar; etest; -enddef; - -def VEA= - stest(vea); kanchar "vowel ea"; - begintchar(v_ea_code,cb_pa_width#,x_height#,0,0,0,0); - vb_ea_form; - sketch vb_a_p; - endtchar; etest; -enddef ; - -def VEAE= - stest(veae); kanchar "vowel eae"; - begintchar(v_eae_code,cb_pa_width#,x_height#,0,0,0,0); - vb_eae_form; - sketch vb_a_pb; - endtchar; etest; -enddef ; - -def VI = - stest(vi); kanchar "vowel y"; - begintchar(v_i_code,cb_pa_width#,x_height#,0,0,0,0); - vb_i_form; - draw vb_a_pb; - endtchar; etest; -enddef; - -def VAO = - stest(vao); kanchar "vowel ao"; - begintchar(v_ao_code,cb_ja_width#,x_height#,0,0,0,0); - cb_ja_form; - endtchar; etest; -enddef; - -def VAOO = - stest(vaoo); kanchar "vowel aoo"; - begintchar(v_aoo_code,cb_ja_width#,x_height#,0,0,0,0); - cb_ja_form; - vm_hook_form(2,2); - endtchar; etest; -enddef; - -def VAU= - stest(vau); kanchar "vowel ow"; - begintchar(v_au_code,5/4cb_ja_width#,asc_height#,0,0,0,0); - cb_ja_form; - z12=top z2; - vm_au_form(12,w); - h:=top y12c; w:=rt x1000b; - endtchar; etest; -enddef; - -% Begin of Vowel Modifiers....... - -def VMAH = - stest(vmp); kanchar "vowel modifier of ah"; - begintchar(vm_ah_code,vm_ah_width#,x_height#+vm_ah_height#,0,0,0,0); - lft top z77 = (0, x_height); - vmah_form(77); - pivot_message(x77); - endtchar; etest; -enddef; - -def VMA = - stest(vma); kanchar "vowel modifier of a"; - begintchar(vm_a_code,vm_a_width#,asc_height#,0,0,0,0); - lft top z1=(0,x_height); - vmfa_form(1); - pivot_message(x1); - endtchar; etest; -enddef ; - -def VMAA = - stest(vmaa); kanchar "vowel modifier of aa"; - % used for kha,nga,ja,nya etc. - begintchar(vm_aa_code,vm_aa_width#,asc_height#,0,0,0,0); - lft top z0 = (0, x_height); - vmfaa_form(0) ; - pivot_message(x0); - endtchar; etest; -enddef ; - -def VME= - stest(vme); kanchar "vowel modifer of e "; - begintchar(vm_e_code,vm_e_width#,vm_e_height1#+ascunit#,0,0,0,0); - vm_e_form; - pivot_message(.5u); - endtchar; etest; -enddef ; - -def VMEE= - stest(vmee); kanchar "vowel modifier of ee"; - begintchar(vm_ee_code,vm_e_width#,asc_height#,0,0,0,0); - vm_ee_form; - %vm_hook_form(7,3); - pivot_message(x2); - endtchar; etest; -enddef; - -def VMU = - stest(vmu); kanchar "vowel modifier of u"; - begintchar(vm_u_code,vm_u_width#,x_height#,0,0,0,0); - rt z1 = (0,.6w_height); - vm_u_form(1); - w:=rt x1b; - pivot_message(x1d); - endtchar; etest; -enddef; - -def VMUU = - stest(vmuu); kanchar "vowel modifier of uu"; - begintchar(vm_uu_code,vm_uu_width#,x_height#,0,0,0,0); - rt z1 = (0,.6w_height); - vm_uu_form(1); - endtchar; etest; -enddef; - -def VMRO = - stest(vmro); kanchar "vowel modifier of ro"; - begintchar(vm_ro_code,vm_ro_width#-3u#,x_height#,.5des_depth#,0,ul#,0); - cc_clear ; - vm_ro_form; %cc_whd(0,1); - %cc_whd(0,1); - endtchar; etest; -enddef; - - -def VMROO = - stest(vmroo); kanchar "vowel modifier of roo"; - begintchar(vm_roo_code,vm_ro_width#+vm_bar_width#-3u#,x_height#,.5des_depth#,0,ul#,0); - cc_clear ; - vm_ro_form; - z10 =(x1+.9vm_bar_width, y1); - rt z11 = (x1+vm_bar_width, y1 -2u); - z12 = (x1+.9vm_bar_width, y1 -u); - path cd, bar_p; - bar_p = z1---z10..z11..z12; - cd = bar_p scaled 1 shifted (-3u, -.5des_depth) rotated 0 ; - sketch cd; - endtchar; etest; -enddef; - -def VMEA = - stest(vmea); kanchar "vowel modifier of ea"; - begintchar(vm_ea_code,vm_ea_width#,x_height#+vm_ea_height#,0,0,0,0); - lft top z77 = (0, x_height); - vmfea_form(77); - pivot_message(x77); - endtchar; etest; -enddef; - -def VMEAA = - stest(vmeaa); kanchar "vowel modifier of ea"; - begintchar(vm_ea1_code,vm_ea1_width#,x_height#+vm_ea_height#,0,0,0,0); - bar_forma(vm_ea1_width) ; - %lft top z77 = (0, x_height); - vmfea_form(301); - pivot_message(x300); - endtchar; etest; -enddef; - -def VMY = - stest(vmy); kanchar "vowel modifier of y"; - begintchar(vm_y_code,.5vm_ro_width#,x_height#,des_depth#+1.4u#,0,ul#,0); - vm_y_form; %cc_whd(0,1); - path ct ; - %ct = vm_y_p scaled 1.3 shifted (-1.5u, 4.3u) rotated 0 ; - ct = vm_y_p scaled .85 shifted (-2.0u, -.5des_depth) rotated 0 ; - sketch ct; - %cc_clear; cc_transform(ct); - %cc_whd(1,0); - endtchar; etest; -enddef; - -def VMAU= - stest(vmau); kanchar "vowel modifier au"; - begintchar(vm_au_code,vm_au_width#,asc_height#,0,0,0,0); - lft z12 = (0, x_height); - vm_au_form(12,w); - pivot_message(x12); - endtchar; etest; -enddef; - -% --------------------End of the Vowel and Vowel modifiers.------------ - -%---------------------Begin of Kannada Consonant and its conjunctions.-------- -def CBKA= - stest(cbka); kanchar "base of consonant ka"; - begintchar(cb_ka_code,cb_ka_width#,x_height#,0,0,0,0); - cb_ka_form; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCKA= - stest(ccka); kanchar "consonant conjunction of ka"; - begintchar(cc_ka_code,cb_ka_width#,x_height#,0,0,0,0); - cb_ka_form; - cc_clear; cc_transform(cb_ka_pa); - cc_transform(cb_ka_pb); cc_transform(cb_ka_pc); - cc_whd(1,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBKHA= - stest(cbkha); kanchar "base of consonant kha"; - begintchar(cb_kha_code,cb_kha_width#,x_height#,wedge_depth#,0,0,0); - cb_kha_form; - sketch cb_kha_p; - pivot_message(x12,x400); - endtchar; etest; -enddef ; - -def CCKHA= - stest(cckha); kanchar "consonant conjunction of kha"; - begintchar(cc_kha_code,cb_kha_width#,x_height#,0#,0,0,0); - cb_kha_form; - cc_clear; cc_transform(cb_kha_p); - cc_whd(1,0); - pivot_message(.6w); - endtchar; etest; -enddef ; - -def CBGA= - stest(cbga); kanchar "base of consonant ga"; - begintchar(cb_ga_code,cb_ga_width#,x_height#,0,0,0,0); - cb_ga_form; - sketch cb_ga_p; - bar_forma(cb_ga_width-.5u); - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCGA= - stest(ccga); kanchar "consonant conjunct of ga"; - begintchar(cc_ga_code,cb_ga_width#,x_height#,0,0,0,0); - cb_ga_form; - cc_clear; cc_transform(cb_ga_p);cc_whd(0,0); - %pivot_message(x3*cc_scale); - cc_whd(1,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - - -def CBGHA = - stest(cbgha); kanchar "base of consonant gha"; - begintchar(cb_gha_code,cb_pa_width#+1/2vm_u_width#,x_height#,wedge_depth#,0,0,0); - cb_pa_form; - top lft z77=(1/2cb_pa_width-1/2c_height-.5u, top (x_height - c_height)); - place_lit_circ(77, 1); - path new_path ; - - sketch cb_pa_p ; - top z10=1/2[z46,z46]; - %z50=(x48+1/4u,y48) ; - wedge(10); - vm_ghu_form(48); - bar_forma(.9cb_pa_width); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %bar_form(0,cb_ka_width); - %vm_au_form(301,w); - %vmah_form(301); % tale-ardha akshara - %vm_u_form(400); - - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def transform_gha(text t) = - path ct_p ; - cc_transform(t) ; - undraw cc_transformed_path ; - ct_p = cc_transformed_path scaled .95 shifted (-1.5u, 2u) rotated 0 ; - sketch ct_p ; -enddef ; - -def CCGHA= - stest(ccgha); kanchar "consonant conjunct of gha"; - begintchar(cc_gha_code,cb_pa_width#+1/4vm_u_width#-2u#,x_height#,0,0,0,0); - cb_pa_form; - - top lft z77=(1/2cb_pa_width-1/2c_height-.5u, top (x_height - c_height)); - place_lit_circ(77, 1); - - sketch cb_pa_p; - top z10=1/2[z46,z46]; - z50=(x48+1/4u,y48) ; - wedge(10); - vm_ghu_form(48); - - path ca, cb, cc ; - cc_clear; %cc_transform(pl_lit_cir_p); - transform_gha(cb_pa_p); - transform_gha(wedge_p); - transform_gha(vm_ghu_p);cc_whd(1,1); - pivot_message(w/2); - endtchar; etest; -enddef ; - - -def CBNGA = - stest(cbnga); kanchar "base of consonant nga"; - begintchar(cb_nga_code,cb_ja_width#,x_height#,0,0,0,0); - cb_ja_form; - sketch cb_ja_pc; - sketch cb_nga_p; % puts bowl to nga. - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(21) ; - %vmfea_form(21); - %vm_au_form(21,w); - - pivot_message(x21-1.5u,x400); - endtchar; etest; -enddef ; - -def CCNGA = - stest(ccnga); kanchar "base of consonant nga"; - begintchar(cc_nga_code,cb_ja_width#,x_height#,0,0,0,0); - cb_ja_form; - cc_clear; cc_transform(cb_ja_pa); - cc_transform(cb_nga_p); cc_transform(cb_ja_pc); - cc_whd(1,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - - -def CBCHA = - stest(cbcha); kanchar "base of consonant cha"; - begintchar(cb_cha_code,cb_ja_width#+.5u#,x_height#,0,0,0,0); - cb_ch_form; - pivot_message(x20-u,x400); - endtchar; etest; -enddef ; - -def transform_char(text t) = - path ct_p ; - cc_transform(t) ; - undraw cc_transformed_path ; - ct_p = cc_transformed_path scaled 1 shifted (-u, 1.5u) rotated 0 ; - sketch ct_p ; -enddef ; - -def CCCHA = - stest(cccha); kanchar "consonant conjunction of cha"; - begintchar(cc_cha_code,cb_ja_width#-2.5u#,x_height#,0,0,0,0); - cb_ch_form; - cc_clear; transform_char(cb_cha_pa); - transform_char(cb_cha_pb); - transform_char(cb_cha_pc); - cc_whd(1,1); - endtchar; etest; -enddef ; - -def CBCCHA= - stest(cbccha); kanchar "base of consonant ccha"; - begintchar(cb_ccha_code,cb_ja_width#,x_height#,0,0,0,0); - cb_cch_form; - wedge(8); - pivot_message(x12-u,x400); - endtchar; etest; -enddef ; - -def CCCCHA= - stest(ccccha); kanchar "consonant conjunction ccha"; - begintchar(cc_ccha_code,cb_ja_width#-2u#,x_height#,0,0,0,0); - cb_cch_form; - wedge(8); - cc_clear; transform_char(cb_ccha_pa); - transform_char(wedge_p); - cc_whd(0,0); - endtchar; etest; -enddef ; - - -def CBJA = - stest(cbja); kanchar "base of consonant ja"; - begintchar(cb_ja_code,cb_ja_width#,x_height#,0,0,0,0); - cb_ja_form; - sketch cb_ja_pb; % puts bowl to ja. - pivot_message(x52-u,x400); - %vmfa_form(52); % Following are test to see How vowel modifer looks. - %vmfaa_form(52) ; - %vmfea_form(52); - %vm_au_form(52,vm_au_width); - %vmah_form(52); % tale-ardha akshara - endtchar; etest; -enddef ; - -def CCJA = - stest(ccja); kanchar "base of consonant ja"; - begintchar(cc_ja_code,cb_ja_width#-2u#,x_height#,0,0,0,0); - cb_ja_form; - %sketch cb_ja_pb; % puts bowl to ja. - cc_clear; transform_char(cb_ja_pa); - transform_char(cb_ja_pb);cc_whd(0,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBJHA = -stest(cbjha); kanchar "base of consonant jha"; - begintchar(cb_jha_code,cb_ra_width#+2vm_u_width#,x_height#,wedge_depth#, - 0,0,0); - cb_ra_form; - % The next statement will identify the point on ra_form - % where the bowl will be attached. - z5 = (cb_ra_p) intersectionpoint ((x1,w_height)--(x1+w,w_height)); - vm_u_form(5); - z6 = z5b; - wedge(6); - z7 = z6; - vm_u_form(7); - w:=rt x7b; - z8a=(x7d-.5u,y7d); - - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(8a) ; - %vmfea_form(301); - %bar_form(0,cb_ka_width); - %vm_au_form(8a,w); - - % to compute the joining point of "kombu for jha". - path inter; - inter = (.9w, .3x_height)--(1.1w, .3x_height); - z401 = vm_u_p intersectionpoint inter; - %vm_u_form(401); - - pivot_message(x301,x401,x8a); - - endtchar; etest; -enddef; - -def CCJHA = - stest(ccjha); kanchar "consonant conjunct of jha"; - begintchar(cc_jha_code,cb_ra_width#+2vm_u_width#-2.5u#,x_height#,0,0,0,0); - cb_ra_form; - % The next statement will identify the point on ra_form - % where the bowl will be attached. - z5=z4; - vm_u_form(5); - path p; p:=vm_u_p; - z6 = z5b; - wedge(6); - z7 = z6; - vm_u_form(7); - w:=rt x7b; - cc_clear; transform_char(cb_ra_p); - transform_char(p); transform_char(vm_u_p); - transform_char(wedge_p);cc_whd(1,0); - penlabels(5,6); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBNYA= - stest(cbnya); kanchar "base mf consonant nya"; - begintchar(cb_nya_code,v_e_width#+half_plus_width#,x_height#,0,0,0,0); - cb_nya_form; - pivot_message(x17-u,x400); - endtchar; etest; -enddef ; - -def CCNYA= - stest(ccnya); kanchar "consonant conjunction of nya"; - begintchar(cc_nya_code,v_e_width#+half_plus_width#,x_height#,0,0,0,0); - cb_nya_form; - cc_clear; cc_transform(v_e_p); - cc_transform(cb_ny_pb); cc_whd(0,1); - pivot_message(0) ; - endtchar; etest; -enddef; - -def CBTTA= - stest(cbtta); kanchar "base of consonant tta"; - begintchar(cb_tta_code,cb_tta_width#,x_height#,0,0,0,0); - cb_tta_form; - pivot_message(x13-u,x400); - endtchar; etest; -enddef ; - -def CCTTA= - stest(cctta); kanchar "base of consonant tta"; - begintchar(cc_tta_code,cb_tta_width#-1.75u#,x_height#,0,0,0,0); - cb_tta_form; - cc_clear; transform_char(cb_tta_p);; cc_whd(1,0); - pivot_message(w); - endtchar; etest; -enddef ; - -def CBTTHA= - stest(cbttha); kanchar "base of consonant ttha"; - begintchar(cb_ttha_code,cb_ra_width#,x_height#,0,0,0,0); - cb_ra_form; - z10 = (x1,1/2x_height); - fill_dot(10); - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCTTHA= - stest(ccttha); kanchar "consonant conjunct of ttha"; - begintchar(cc_ttha_code,cb_ra_width#,x_height#,0,0,0,0); - cb_ra_form; - z10 = (x1,1/2x_height); - fill_dot(10); - cc_clear; cc_transform(cb_ra_p); - cc_f_transform(fill_dot_p);cc_whd(0,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - - -def CBDDA= - stest(cbdda); kanchar "base of consonant dda"; - begintchar(cb_dda_code,.9cb_da_width#,x_height#,0,0,0,0); - cb_dda_form; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCDDA= - stest(ccdda); kanchar "consonant conjunction of dda"; - begintchar(cc_dda_code,.9cb_da_width#-2u#,x_height#,0,0,0,0); - cb_dda_form; - cc_clear; cc_transform(cb_dda_p);cc_whd(0,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBDDHA= - stest(cbddha); kanchar "base of consonant ddha"; - begintchar(cb_ddha_code,.9cb_da_width#,x_height#,0,0,0,0); - cb_dda_form; - wedge(3); - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCDDHA= - stest(ccddha); kanchar "consonant conjunction of ddha"; - begintchar(cc_ddha_code,.9cb_da_width#-2u#,x_height#,0,0,0,0); - cb_dda_form; - wedge(3); - cc_clear; cc_transform(cb_dda_p); - cc_transform(wedge_p);cc_whd(1,1); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBNNA= - stest(cbnna); kanchar "base of consonant nna"; - begintchar(cb_nna_code,cb_nna_width#,x_height#,0,0,0,0); - cb_nna_form; - pivot_message(x400-.5u); - endtchar; etest; -enddef ; - -def CCNNA= - stest(ccnna); kanchar "consonant conjunct of nna"; - begintchar(cc_nna_code,cb_nna_width#-u#,x_height#,0,0,0,0); - cb_nna_form; - cc_clear; cc_transform(cb_nna_p);cc_whd(0,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBTA= - stest(cbta); kanchar "base of consonant ta"; - begintchar(cb_ta_code,cb_ta_width#,x_height#,0,0,0,0); - cb_ta_form; - sketch cb_ta_p; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCTA= - stest(ccta); kanchar "consonant conjunct of ta"; - begintchar(cc_ta_code,vmwidth#,0,0,0,0,0); - % d is set later - top z1=(0,0); barandhook_formk(1,w,5); erase sketch barandhook_p; - sketch barandhook_p reflectedabout ( top z1, top z1+(w,0)) - shifted (0, (-bot_accent+ (bot y1c))); - d:=bot_accent- (bot y1c); - pivot_message(w); - endtchar; etest; -enddef ; - -def CBTHA= - stest(cbtha); kanchar "base of consonant tha"; - begintchar(cb_tha_code,cb_da_width#,x_height#,wedge_depth#,0,0,0); - cb_da_form; - wedge(4); - z10 = (x1,2/3x_height-uh); - fill_dot(10); - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCTHA= - stest(cctha); kanchar "consonant conjunct of tha"; - begintchar(cc_tha_code,cb_da_width#-2u#,x_height#,0,0,0,0); - cb_da_form; - wedge(4); - z10 = (x1,2/3x_height-uh); - fill_dot(10); - cc_clear; cc_transform(cb_da_p); - cc_transform(wedge_p); cc_f_transform(fill_dot_p); - cc_whd(0,1); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBDA= - stest(cbda); kanchar "base of consonant da"; - begintchar(cb_da_code,cb_da_width#,x_height#,0,0,0,0); - cb_da_form; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCDA= - stest(ccda); kanchar "consonant conjunct of da"; - begintchar(cc_da_code,cb_da_width#-2u#,x_height#,0,0,0,0); - cb_da_form; - cc_clear; cc_transform(cb_da_p); - cc_whd(0,0); - %pivot_message(x4*cc_scale); - pivot_message(w/2); - endtchar; etest; -enddef ; - - -def CBDHA= - stest(cbdha); kanchar "base of consonant dha"; - begintchar(cb_dha_code,cb_da_width#,x_height#,0,0,0,0); - cb_da_form; - wedge(4); - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCDHA= - stest(ccdha); kanchar "consonant conjunct of da"; - begintchar(cc_dha_code,cb_da_width#-2u#,x_height#,0,0,0,0); - cb_da_form; - wedge(4); - cc_clear; cc_transform(cb_da_p); - cc_transform(wedge_p); - cc_whd(1,1); - pivot_message(w/2); - %pivot_message(x4*cc_scale); - endtchar; etest; -enddef ; - - -def CBNA= - stest(cbna);kanchar "base of consonant na"; - begintchar(cb_na_code,cb_na_width#,x_height#,wedge_depth#,0,0,0); - cb_na_form; - sketch cb_na_p; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CBNAA= - stest(cbnaa); kanchar "consonant of nX (alternative)"; - begintchar(cb_naa_code,cb_na_width#,x_height#,0,0,0,0); - naa_form ; - pivot_message(0); - endtchar; etest; -enddef ; - -def CCNA= - stest(ccna); kanchar "consonant conjunct of na"; - begintchar(cc_na_code,2.5u#,x_height#-3u#,des_depth#,0,ul#,0); - numeric wid; - wid = 7u ; - top lft z1 = (.4wid,.5x_height); - z2 = (.55wid,(x_height-d)/2); - bot z3 = (1/4wid,-d); - lft z4 = (0,-d+1/2sc_height); - z5 = (x3,y3+sc_height); - bot z6 = (3/4wid,-d); - rt z7 = (wid,y4); - path cc_na_p, ct; - cc_na_p = z1..z2..z3..z4..z5..z6..z7; - ct = cc_na_p scaled 1 shifted (-3u, 6u) rotated -10 ; - cc_clear; transform_char(ct); - cc_whd(1,0); - pivot_message(w/2); - endtchar; etest; -enddef ; - -def CBPA= - stest(cbpa); kanchar "base of consonant pa"; - begintchar(cb_pa_code,cb_pa_width#,x_height#,0,0,0,0); - cb_pa_form; - top lft z77=(1/2cb_pa_width-1/2c_height-.5u, top (x_height - c_height)); - place_lit_circ(77, 1); - sketch cb_pa_p; - - bar_forma(cb_pa_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def transform_charb(text t) = - path ct_p ; - cc_transform(t) ; - undraw cc_transformed_path ; - ct_p = cc_transformed_path scaled 1 shifted (-2u, 2.5u) rotated 0 ; - sketch ct_p ; -enddef ; - -def CCPA= - stest(ccpa); kanchar "consonant conpunction of pa"; - begintchar(cc_pa_code,cb_pa_width#-2u#,x_height#,0,0,0,0); - cb_pa_form; - pivot_message(3/4w); - cc_clear; transform_charb(cb_pa_p); - cc_whd(1,0); - endtchar; etest; -enddef ; - - -def CBPHA= - stest(cbpha); kanchar "base of consonant pha"; - begintchar(cb_pha_code,cb_pa_width#,x_height#,0,0,0,0); - cb_pa_form; - %pivot_message(x1,x1); - top lft z77=(1/2cb_pa_width-1/2c_height-.5u, top (x_height - c_height)); - place_lit_circ(77, 1); - top z10=1/2[z46,z46]; - wedge(10); - sketch cb_pa_p; - sketch wedge_p; - bar_forma(cb_pa_width-.5u); % z301 is comming from bar_forma... - %vmfa_form(301); % Following are test to see How vowel modifer looks. - %vmfaa_form(301) ; - %vmfea_form(301); - %vm_au_form(301,vm_au_width); - - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCPHA= - stest(ccpha); kanchar "consonant conpunction of pha"; - begintchar(cc_pha_code,cb_pa_width#-2u#,x_height#,0,0,0,0); - cb_pa_form; - - sketch cb_pa_p; - top z10=1/2[z46,z46]; - wedge(10); - - cc_clear; transform_charb(cb_pa_p); - transform_charb(wedge_p); - cc_whd(1,1); - endtchar; etest; - -enddef ; - -def CBBA= - stest(cbba); kanchar "base of consonant ba"; - begintchar(cb_ba_code,cb_ba_width#,x_height#,0,0,0,0); - cb_ba_form; - pivot_message(x9-u,x400); - endtchar; etest; -enddef ; - -def CCBA= - stest(ccba); kanchar "consonant conjunct of ba"; - begintchar(cc_ba_code,cb_ba_width#-3.5u#,top_height#,0,0,ul#,0); - cb_ba_form; - cc_clear; transform_charb(((subpath(0,7) of cb_ba_p)..(x9,1.3y9))); - cc_whd(1,0); - endtchar; etest; -enddef; - -def CBBHA= - stest(cbbha); kanchar "base of consonant bha"; - begintchar(cb_bha_code,cb_ba_width#,x_height#,0,0,0,0); - cb_ba_form; - wedge(6); - %vmah_form(9); % tale-ardha akshara - pivot_message(x9-u,x400); - endtchar; etest; -enddef ; - -def CCBHA= - stest(ccbha); kanchar "consonant conjunct of bha"; - begintchar(cc_bha_code,cb_ba_width#-3.5u#,top_height#,0,0,ul#,0); - cb_ba_form; - wedge(6); - cc_clear; transform_charb(((subpath(0,7) of cb_ba_p)..(x9,1.3y9))); - transform_charb(wedge_p); - cc_whd(1,1); - pivot_message(x12,x400); - endtchar; etest; -enddef; - - -def CBMA= - stest(cbma); kanchar "base of consonant ma"; - begintchar(cb_ma_code,cb_pa_width#+vm_u_width#,x_height#,0,0,0,0); - cb_va_form; - sketch cb_va_p; - z65 = (cb_va_p) intersectionpoint ((x46,.8w_height)--(x46+cb_pa_width,.8w_height)); - vm_u_form(65); - - % to compute the joining point of "kombu for nya". - z500=z65b; - %vm_u_form(500); - z67=(x65d-.5u, y65d); - %vm_au_form(67,vm_au_width); - %vmfaa_form(67) ; - %vmah_form(301); % tale-ardha akshara - - pivot_message(x301,x500, x67); - - endtchar; etest; -enddef ; - -def CCMA= - stest(ccma); kanchar "consonant conjunct of ma"; - begintchar(cc_ma_code,4u#,x_height#,des_depth#,0,ul#,0); - path cc_ma_p; - numeric wid; - wid = 6u; - rt z1=(wid,-.8d+uh);bot z2=(wid/2,-d); - lft z3=(0,-.1d); z4=(.3wid,.15x_height); %z4=(2/3wid,x_height/5); - rt z5=(.6wid,0); z6=(.3wid,-.075d); - z7=(.15wid,.1x_height); z8=(.075wid,.25x_height); - z9=(.14wid,.55x_height); - cc_ma_p = z1..z2..z3..z4..z5..z6..z7..tension1.2..z8..tension 1.2..z9; - sketch cc_ma_p; - path ct; - ct = cc_ma_p scaled 1 shifted (0, 3.5u) ; - %cc_clear; cc_transform(cc_ma_p); cc_whd(0,0); - cc_clear; transform_charb(ct); cc_whd(0,0); - endtchar; etest; -enddef ; - - -def CBYA= - stest(cbya); kanchar "base of consonant ya"; - begintchar(cb_ya_code,cb_ya_width#+vm_u_width#,x_height#,0,0,0,0); - cb_ya_form; - pivot_message(x7,x400, x10); - endtchar; etest; -enddef; - -def CCYA= - stest(ccya); kanchar "consonant conjunct of ya"; - %begintchar(cc_ya_code,6u#,x_height#,des_depth#,0,ul#,0); - begintchar(cc_ya_code,4.5u#,x_height#,des_depth#+2.5u#,0,0,0); - numeric y_width ; - y_width = 6u ; - lft z1 = (0,-1/3des_depth); z2 = (y_width/4,0); z3 = (1/4y_width,-1/2des_depth); - bot z4 = (1/3y_width,-des_depth); z5 = (2/3y_width,0); z6 = (.45y_width,.45j_height); - z7 = (.6y_width,.7j_height); z8=(.65y_width,.4j_height); - - path cc_ya_p, ct ; - cc_ya_p = z1..z2..z3..z4..z5..{up}z6..z7..z8; - %ct = cc_ya_p scaled 1.3 shifted (0, -3.5u) ; - ct = cc_ya_p scaled 1.0 shifted (0, -2u) ; - sketch ct; - %cc_clear; cc_transform(ct); cc_whd(1,0); - pivot_message(0); - endtchar; etest -enddef; - -def CBRA = - stest(cbra); kanchar "base of consonant ra"; - begintchar(cb_ra_code,cb_ra_width#,x_height#,0,0,0,0); - cb_ra_form; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CBRRA = - stest(cbrra); kanchar "base of consonant rra"; - begintchar(cb_rra_code,cb_rra_width#,x_height#,0,0,0,0); - cb_rra_form; - pivot_message(x7,x400); - endtchar; etest; -enddef ; - -% For arkavattu; -def CCRRA = - stest(ccara); kanchar "base of consonant ra(as arkavattu)"; - begintchar(cc_ara_code,cb_ra_width#,x_height#,0,0,0,0); - arkavattu ; - sketch arka_pa reflectedabout((0,0),(w,0)) shifted (0,h); - sketch arka_pb reflectedabout((0,0),(w,0)) shifted (0,h); - endtchar; etest; -enddef ; - - -def CCRA = - stest(ccra); kanchar "consonant conjunct of ra"; - begintchar(cc_ra_code,7u#,0,3.5uh#,0,0,0); - top lft z1=(0,-bot_accent); bot z2=(w/2,-d); top rt z3=(w,-bot_accent); - sketch z1..z2..z3; - pivot_message(w); - endtchar; etest; -enddef ; - - -def CBLA = - stest(cbla); kanchar "base of consonant la"; - begintchar(cb_la_code,cb_la_width#,x_height#,0,0,0,0); - cb_la_form; - sketch cb_la_p; - pivot_message(x55-u,x400); - endtchar; etest; -enddef ; - -def CCLA = - stest(ccla); kanchar "consonant conjunct of la"; - begintchar(cc_la_code,7u#,0,4.5uh#,0,0,0); - path s,t; - bot z1=(w/4,-d); lft z2 =(0,-1/2d); top z3=(x1,-bot_accent); - top z4=(w/2,y2); - s= z1..z2..z3..z4; - t=s reflectedabout ((w/2,h),(w/2,-d)); - sketch s;sketch t; - pivot_message(.8w); - endtchar; etest; -enddef ; - -def CBVA= - stest(cbva); kanchar "base of consonant va"; - begintchar(cb_va_code,cb_pa_width#,x_height#,0,0,0,0); - cb_va_form; - sketch cb_va_p ; - %pivot_message(x46,x400); - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCVA= - stest(ccva); kanchar "consonant conjunction of va"; - begintchar(cc_va_code,cb_pa_width#,x_height#,0,0,0,0); - cb_va_form; - vmfa_form(301); % Following are test to see How vowel modifer looks. - cc_clear; cc_transform(cb_va_p); - cc_transform(bar_pa) ; cc_transform(bar_p) ; - cc_whd(1, 0); - endtchar; etest; -enddef ; - -def CBCA= - stest(cbca); kanchar "base of consonant ca"; - begintchar(cb_ca_code,cb_ca_width#,x_height#,0,0,0,0); - cb_ca_form; - draw cb_ca_p; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCCA= - stest(ccca); kanchar "consonant conjunct of ca"; - begintchar(cc_ca_code,cb_ca_width#-2.5u#,asc_height#,0,0,ul#,0); - cb_ca_form; - cc_clear; transform_charb(((x5, .8asc_height)..cb_ca_p)); cc_whd(1,0); - endtchar; etest; -enddef ; - -def CBSA = - stest(cbsa); kanchar "base of consonant sa"; - begintchar(cb_sa_code,cb_na_width#,x_height#,0,0,0,0); - cb_sa_form; - sketch cb_sa_p; - pivot_message(x301+.2u,x400); - endtchar; etest; -enddef ; - -def CCSA = - stest(ccsa); kanchar "consonant conjunct of sa"; - begintchar(cc_sa_code,cb_na_width#-2.5u#,x_height#,0,0,ul#,0); - cb_sa_form; - %sketch cb_na_p; - cc_clear; transform_charb(cb_sa_p); cc_whd(1,0); - endtchar; etest; -enddef ; - -def CBHA = - stest(cbha); kanchar "base of consonant ha"; - begintchar(cb_ha_code,cb_ha_width#,x_height#,0,0,0,0); - cb_ha_form; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCHA = - stest(ccha); kanchar "consonant conjunct of ha"; - begintchar(cc_ha_code,cb_ha_width#,x_height#,0,0,0,0); - cb_ha_form; - cc_clear; cc_transform(cb_ha_p); - cc_whd(0,0); - pivot_message(0) ; - endtchar; etest; -enddef ; - -def CBLLA = - stest(cblla); kanchar "base of consonant lla"; - begintchar(cb_lla_code,cb_lla_width#,x_height#,0,0,0,0); - cb_lla_form; - sketch cb_lla_p; - pivot_message(x12-u,x400); - endtchar; etest; -enddef ; - -def CBLLAA = - stest(cbllaa); kanchar "base of consonant lla"; - begintchar(cb_llaa_code,cb_rra_width#,x_height#,0,0,0,0); - cb_rra_form; - undraw cb_rra_pd ; - pivot_message(x7,x400); - endtchar; etest; -enddef ; - -def CCLLA = - stest(cclla); kanchar "consonant conjunct of lla"; - begintchar(cc_lla_code,cb_lla_width#,asc_height#,0,0,ul#,0); - cb_lla_form; - cc_clear; cc_transform(cb_lla_p); - cc_whd(1,0); - endtchar; etest; -enddef ; - -def CBSHA= - stest(cbsha); kanchar "base of consonant sha"; - begintchar(cb_sha_code,cb_pa_width#,x_height#,0,0,0,0); - cb_sha_form; - sketch cb_pa_p; - sketch cb_sha_pb; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CCSHA= - stest(ccsha); kanchar "consonant conjunct of sha"; - begintchar(cc_sha_code,cb_pa_width#-2u#,x_height#,0,0,0,0); - cb_sha_form; - cc_clear; transform_charb(cb_pa_p); - transform_charb(cb_sha_pb); cc_whd(0,0); - endtchar; etest; -enddef ; - -def CBKSHA = - stest(cbksha); kanchar "base of consonant ksha"; - begintchar(cb_ksha_code,cb_ka_width#,x_height#,cb_ksha_depth#,0,0,0); - cb_ksha_form; - sketch cb_ka_pa; - sketch cb_ka_pb; - sketch cb_ka_pc; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -% ----------------End of Kannada Consonant and its conjunctions.---------- - -% ----------------Begin of Kannada Vowel modifed Consonants(special)---------- - -def CVKE = - stest(cvke); kanchar "consonant+vowel ka+e"; - begintchar(cv_ke_code,cb_ka_width#,x_height#+vm_e_heightj#,0,0,0,0); - cb_ka_form; - undraw bar_pa; %cb_ka_pc; - vm_e_form_a(8,.1u, .3u); %sketch vm_e_p; - path vm_e_pa,vm_e_pb,vm_e_pc ; - vm_e_pa = cb_ka_pc softjoin vm_e_p; - sketch vm_e_pa; - endtchar; etest; -enddef; - -def CVKHE = - stest(cvkhe); kanchar "consonant+vowel kha+e"; - begintchar(cv_khe_code,cb_kha_width#,x_height#+vm_e_heightj#,0,0,0,0); - cb_kha_form; - sketch cb_kha_p; - vm_e_form_a(11,.6u, 1.u); - path vm_e_pa,vm_e_pb,vm_e_pc ; - vm_e_pa = vm_e_p reflectedabout(z11, z11+(.1u, .8u)); - vm_e_pb = vm_e_pa reflectedabout(z11, z11+(-.45u, .8u)); - %sketch cb_kha_p softjoin vm_e_pb ; - sketch vm_e_pb ; - pivot_message(1.99u); - endtchar; etest; -enddef; - -def CVGE= - stest(cvge); kanchar "consonant+vowel e ga+e"; - begintchar(cv_ge_code,cb_ga_width#,x_height#+2ascunit#,0,0,0,0); - cb_ga_form; - sketch cv_ge_p; - sketch cb_ga_p; - %vm_e_form; - endtchar; etest; -enddef ; - -def CVGHE = - stest(cvghe); kanchar "base of consonant gha+ Vowel modifer e"; - begintchar(cv_ghe_code,cb_pa_width#+1/2vm_u_width#,x_height#+.8u#,wedge_depth#,0,0,0); - cb_pa_form; - top lft z77=(1/2cb_pa_width-1/2c_height, top (x_height - c_height)); - %place_lit_circ(77, 1); - path new_path ; - - sketch cb_pa_p ; - top z10=1/2[z46,z46]; - wedge(10); - vm_ghu_form(48); - vm_e_form; - undraw vm_e_p; - path ct; - ct = vm_e_p scaled .75 shifted (2u, -u) rotated 0 ; - sketch ct; - - %pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CVCHE = - stest(cvche); kanchar "consonant+vowel e cha+e"; - begintchar(cv_che_code,cb_ja_width#,x_height#,0,0,0,0); - cb_ch_form; - vm_e_form_a(9,.6u, 1.u); - undraw cb_cha_pc ; - path vm_e_pa,vm_e_pb,vm_e_pc ; - vm_e_pa = vm_e_p reflectedabout(z9, z9+(.1u, .8u)); - vm_e_pb = vm_e_pa reflectedabout(z9, z9+(-.1u, .8u)); - sketch vm_e_pb ; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVCCHE= - stest(cvcche); kanchar "consonant+vowel e ccha+e"; - begintchar(cv_cche_code,cb_ja_width#,x_height#+2.6u#,0,0,0,0); - cb_cch_form; - wedge(8); - vm_e_form_a(11,.6u, 1.u); - path vm_e_pa,vm_e_pb,vm_e_pc ; - vm_e_pa = vm_e_p reflectedabout(z11, z11+(.1u, .8u)); - vm_e_pb = vm_e_pa reflectedabout(z11, z11+(-.28u, .8u)); - sketch vm_e_pb ; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVJE = - stest(cvje); kanchar "consonant+vowel e cbja+e"; - begintchar(cv_je_code,cb_ja_width#,x_height#+1.5u#,0,0,0,0); - cb_ja_form; - sketch cb_ja_pe; % puts bowl to ja. - %pivot_message(x3c,x7); - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVJHE = - stest(cvjhe); kanchar "consonant+vowel e cbjha+e"; - begintchar(cv_jhe_code,cb_ra_width#+2vm_u_width#,.9vm_e_heightx#, - wedge_depth#,0,0,0); - cb_ra_form; - % The next statement will identify the point on ra_form - % where the bowl will be attached. - z5 = (cb_ra_p) intersectionpoint ((x1,w_height)--(x1+w,w_height)); - vm_u_form(5); - z6 = z5b; - wedge(6); - z7 = z6; - vm_u_form(7); - w:=rt x7b; - sketch cv_re_p; - undraw bar_pa; - endtchar; etest; -enddef; - -def CVTTE= - stest(cvtte); kanchar "consonant+vowel e cbtta+e"; - begintchar(cv_tte_code,cb_tta_width#,x_height#,0,0,0,0); - cb_tta_form; - undraw cb_tta_p ; - sketch cb_tta_pe ; - endtchar; etest; -enddef ; - -def CVTTHE = - stest(cvtthe); kanchar "consonant+vowel e cbttha+e"; - begintchar(cv_tthe_code,cb_ra_width#,.9vm_e_heightx#,0,0,0,0); - cb_ra_form; - undraw bar_pa; - z10 = (x1,1/2x_height); - fill_dot(10); - sketch cv_re_p; - %pivot_message(x1,x1); - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVDDE= - stest(cvdde); kanchar "consonant+vowel e cbdda+e"; - begintchar(cv_dde_code,cb_da_width#,x_height#+1.7u#,0,0,0,0); - cb_dda_form; - undraw bar_pa ; - sketch cv_dde_p ; - %pivot_message(x1,x4); - endtchar; etest; -enddef ; - -def CVDDHE= - stest(cvddhe); kanchar "consonant+vowel e cbddha+e"; - begintchar(cv_ddhe_code,cb_da_width#,x_height#+1.7u#,0,0,0,0); - cb_dda_form; - sketch cv_dde_p ; - undraw bar_pa ; - wedge(3); - %pivot_message(x1,x4); - endtchar; etest; -enddef ; - -def CVTE= - stest(cvte); kanchar "consonant+vowel e cbta+e"; - begintchar(cv_te_code,cb_ta_width#,x_height#,0,0,0,0); - cb_ta_form; - sketch cb_te_p; - undraw bar_pa ; - %pivot_message(x10,x5); - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVTHE= - stest(cvthe); kanchar "consonant+vowel e cbtha+e"; - begintchar(cv_the_code,cb_da_width#,x_height#+1.9u#,wedge_depth#,0,0,0); - cb_da_form; - undraw bar_pa ; - wedge(4); - z10 = (x1,2/3x_height-uh); - fill_dot(10); - %pivot_message(x1,x4); - pivot_message(.199u); - sketch cv_de_p; - endtchar; etest; -enddef ; - -def CVDE= - stest(cvde); kanchar "consonant+vowel e cbda+e"; - begintchar(cv_de_code,cb_da_width#,x_height#+1.9u#,0,0,0,0); - cb_da_form; - undraw bar_pa ; - sketch cv_de_p; - %pivot_message(x1,x4); - endtchar; etest; -enddef ; - -def CVDHE= - stest(cvdhe); kanchar "consonant+vowel e cbda+e"; - begintchar(cv_dhe_code,cb_da_width#,x_height#+1.9u#,0,0,0,0); - cb_da_form; - undraw bar_pa ; - sketch cv_de_p; - wedge(4); - %pivot_message(x1,x4); - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVNE= - stest(cvne);kanchar "consonant+vowel e cbna+e"; - begintchar(cv_ne_code,cb_na_width#,x_height#,wedge_depth#,0,0,0); - cb_na_form; - sketch cb_ne_p; - undraw bar_pa ; - %pivot_message(x6,x6); - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVPE= - stest(cvpe); kanchar "consonant pa+ e"; - begintchar(cv_pe_code,cb_pa_width#,x_height#+.8u#,0,0,0,0); - cb_pa_form; - top lft z77=(1/2cb_pa_width-1/2c_height, top (x_height - c_height)); - sketch cb_pa_p; - vm_e_form; - undraw vm_e_p; - path ct; - ct = vm_e_p scaled .75 shifted (2u, -.5u) rotated 0 ; - sketch ct; - %pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CVPHE= - stest(cvphe); kanchar "consonant pha+ e"; - begintchar(cv_phe_code,cb_pa_width#,x_height#+.8u#,0,0,0,0); - cb_pa_form; - top lft z77=(1/2cb_pa_width-1/2c_height, top (x_height - c_height)); - sketch cb_pa_p; - top z10=1/2[z46,z46]; - wedge(10); - vm_e_form; - undraw vm_e_p; - path ct; - ct = vm_e_p scaled .75 shifted (2u, -.5u) rotated 0 ; - sketch ct; - %pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CVBE= - stest(cvbe); kanchar "consonant+vowel e cbba+e"; - begintchar(cv_be_code,cb_ba_width#,x_height#+1u#,0,0,0,0); - cb_ba_form; - undraw cb_ba_p; - sketch cb_be_p; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVBHE= - stest(cvbhe); kanchar "consonant+vowel e cbbha+e"; - begintchar(cv_bhe_code,cb_ba_width#,x_height#+1u#,0,0,0,0); - cb_ba_form; - undraw cb_ba_p; - sketch cb_be_p; - wedge(6); - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVME= - stest(cvme); kanchar "consonant+vowel e cbma+e"; - begintchar(cv_me_code,cb_pa_width#+vm_u_width#,x_height#,0,0,0,0); - cb_va_form; - sketch cb_ve_p; - z65 = (cb_va_p) intersectionpoint ((x46,.8w_height)--(x46+cb_pa_width,.8w_height)); - vm_u_form(65); - undraw bar_pa ; - %w:=rt x3b; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVYE= - stest(cvye); kanchar "consonant+vowel e cbya+e"; - begintchar(cv_ye_code,cb_ya_width#+vm_u_width#,x_height#+1.5u#,0,0,0,0); - cb_ya_form; - undraw cb_ya_pb ; - undraw bar_p ; - draw cb_ye_p ; - endtchar; etest; -enddef; - -def CVRE = - stest(cvre); kanchar "consonant+vowel e cbra+e"; - begintchar(cv_re_code,cb_ra_width#,x_height#,0,0,0,0); - cb_ra_form; - sketch cv_re_p; - undraw bar_pa ; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVLE = - stest(cvle); kanchar "consonant+vowel e cbla+e"; - begintchar(cv_le_code,cb_la_width#,x_height#+1u#,0,0,0,0); - cb_la_form; - sketch cb_le_p; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVCE= - stest(cvce); kanchar "consonant+vowel e cbca+e"; - begintchar(cv_ce_code,cb_ca_width#,x_height#,0,0,0,0); - cb_ca_form; - draw cb_ce_p; - undraw bar_pa ; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVLLE = - stest(cvlle); kanchar "consonant+vowel e cblla+e"; - begintchar(cv_lle_code,cb_lla_width#,x_height#,0,0,0,0); - cb_lla_form; - sketch cb_lle_p; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVVE= - stest(cvve); kanchar "consonant+vowel e cbma+e"; - begintchar(cv_ve_code,cb_pa_width#,x_height#,0,0,0,0); - cb_va_form; - sketch cb_ve_p; - z65 = (cb_va_p) intersectionpoint ((x46,.8w_height)--(x46+cb_pa_width,.8w_height)); - undraw bar_pa ; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVVU= - stest(cvvu); kanchar "consonant va+u"; - begintchar(cv_vu_code,cb_pa_width#+.6vm_u_width#,x_height#,.5des_depth#,0,0,0); - cb_va_form; - sketch cb_va_p ; - %pivot_message(x46,x400); - cv_vu_form(46); - pivot_message(x301); - endtchar; etest; -enddef ; - -def CVVUU= - stest(cvvuu); kanchar "consonant va+uu"; - begintchar(cv_vuu_code,cb_pa_width#+.8vm_uu_width#,x_height#,.5des_depth#,0,0,0); - cb_va_form; - sketch cb_va_p ; -cv_vuu_form(46); - pivot_message(x301); - endtchar; etest; -enddef ; - -def CVSHE= - stest(cvshe); kanchar "consonant sha+e"; - begintchar(cv_she_code,cb_pa_width#,x_height#+.8u#,0,0,0,0); - cb_sha_form; - sketch cb_pa_p; - sketch cb_sha_pb; - undraw pl_lit_cir_p ; - undraw bar_pa; %cb_ka_pc; - vm_e_form; - undraw vm_e_p; - path ct; - ct = vm_e_p scaled .75 shifted (2u, -.5u) rotated 0 ; - sketch ct; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CVSE = - stest(cvse); kanchar "consonant sa+e"; - begintchar(cv_se_code,cb_na_width#,x_height#+.8u#,0,0,0,0); - cb_sa_form; - sketch cb_sa_p; - undraw pl_lit_cir_p ; - undraw bar_pa; %cb_ka_pc; - vm_e_form; - undraw vm_e_p; - path ct; - ct = vm_e_p scaled .75 shifted (1.8u, -.5u) rotated 0 ; - sketch ct; - pivot_message(.199u); - endtchar; etest; -enddef ; - -def CVHE = - stest(cvhe); kanchar "consonant ha+e"; - begintchar(cv_he_code,cb_ha_width#,x_height#+1.8u#,0,0,0,0); - cb_ha_form; - vm_e_form; - undraw bar_pa; %cb_ka_pc; - undraw cb_ha_pa ; - undraw vm_e_p; - path ct; - ct = vm_e_p scaled .75 shifted (.26u, +.5u) rotated 0 ; - sketch ct; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -def CVKSHE = - stest(cvkshe); kanchar "base of consonant ksha+vowel modifer e"; - begintchar(cv_kshe_code,cb_ka_width#,x_height#,cb_ksha_depth#,0,0,0); - cb_ksha_form; - %sketch cb_kha_p; - sketch cb_ka_pa; - sketch cb_ka_pb; - sketch cb_ka_pc; - undraw bar_pa; %cb_ka_pc; - vm_e_form_a(8,.1u, .3u); %sketch vm_e_p; - path vm_e_pa,vm_e_pb,vm_e_pc ; - vm_e_pa = cb_ka_pc softjoin vm_e_p; - sketch vm_e_pa; - pivot_message(x301,x400); - endtchar; etest; -enddef ; - -% ----------------End of Kannada Vowel modifed Consonants(special)---------- - -% ---------- start of ubayaksharas ----------- - - -%stest(uas); kanchar "accent ardhasunna"; -%begintchar(u_ardhasunna_code,x_height#/2,x_height#,0,0,0,ur#); -%top rt z2=(w,h); bot rt z1=(w,0); lft z3=(0,h/2); -%sketch z1..z3..z2; -%endtchar; etest; - - stest(uss); kanchar "accent s"; - begintchar(u_uss_code,x_height#,x_height#,0,0,0,0); - cb_dollar_form ; - cc_clear; cc_transform(dol_p); - cc_whd(1,0); - endtchar; etest; - - stest(us); kanchar "accent sunna"; - begintchar(u_sunna_code,x_height#,x_height#,0,0,0,ur#); - top z2=(w/2,h); bot z1=(x2,0); - sketch z1..z2..cycle; - endtchar; etest; - - stest(uvi); kanchar "accent visarga"; - begintchar(u_visarga_code,2/5x_height#,x_height#,0,0,0,ur#); - top z2 = (w/2,h); bot z1 =(x2,3h/5); - path puvi; - puvi= z1..z2..cycle; - sketch puvi; sketch puvi shifted (0,-2h/3); - endtchar; etest; - -%stest(uav); kanchar "accent ardhavisarga"; -%begintchar(u_ardhavisarga_code,2/5x_height#,x_height#,0,0,0,ur#); -%path puav; -%top z2 = (w/2,h); bot z1 =(x2,3h/5); -%puav = subpath (0.25,1.75) of (z1..z2..cycle); -%sketch puav;sketch puav shifted (0,-2h/3); -%endtchar; etest; - -%stest(ua); kanchar "accent avagraha"; -%begintchar(u_avagraha_code,kfig_width#,x_height#,0,0,0,ur#); -%top lft z1=(0,h); lft z2=(0,h/4); z3=(w/2,(y1+y2)/2); -%bot lft z4=(0,0); bot rt z5=(w,0); -%sketch flex (z1,z3,z2,z4)& z4--z5; -%endtchar; etest; - -% ----------- end of ubhayaksharas ---------- - -%----------- Begin of bars used for transliteration of vedic hymns------------- - - stest(buone); kanchar "b udatta(one bar)"; - begintchar(b_udatta1_code,u#,top_accent#+3uh#,0,0,0,0); - bot z1=(w/2,top_accent); top z2=(x1,h); - sketch z1--z2; - pivot_message((w/2)); - endtchar; etest; - - stest(butwo); kanchar "b udatta (two bars)"; - begintchar(b_udatta2_code,3.5u#,top_accent#+3uh#,0,0,0,0); - bot z1=(w/4,top_accent); top z2=(x1,h); - bot z3=(w/4+w/2,top_accent); z4=z2+(w/2,0); - sketch z1--z2; sketch z3-- z4; - pivot_message((w/2)); - endtchar; etest; - - stest(ba); kanchar "b anudatta"; - begintchar(b_anudatta_code,4u#,0,0,0,0,0); - % d is set later - top lft z1=(0,-bot_accent);top rt z2=(w,-bot_accent); - sketch z1--z2; - d:=- (bot y1); - pivot_message((w/2)); - endtchar; etest; - -%----------- end of fonts for vedic hymns--------------- - -% kannada digits and punctuation symbols -% -% --------- start of roman digits ------------ - -def DRZERO = - stest(drzero); kanchar "Roman digit zero"; - begintchar(dr_zero_code,7u#,fig_height#,0,0,0,ur#); - top z1=(w/2,h); lft z2=(0,1/2h); - bot z3=(w/2,0); rt z4=(w,1/2h); - sketch superellipse(z4,z1,z2,z3,0.707); - endtchar; etest; -enddef; - -def DRONE = - stest(drone); kanchar "Roman digit one"; - begintchar(dr_one_code,4u#,fig_height#,0,0,0,ur#); - bot lft z1=(0,0); bot rt z2=(w,0); top z3=(x5,h); - lft z4=(x1,x_height+uh); bot z5=1/2[z1,z2]; - sketch z1--z2; sketch z3--z5; - sketch z4..{up}z3; - endtchar; etest; -enddef; - -def DRTWO = - stest(drtwo); kanchar "Roman digit two"; - begintchar(dr_two_code,7u#,fig_height#,0,0,0,ur#); - bot lft z1=(0,0); bot rt z2=(w,0); lft z3=(0,x_height); - top z4=(w/2,h); rt z5=(w,y3); - sketch z1--z2; sketch z3..z4..z5..{-1,-1}z1; - endtchar; etest; -enddef; - -def DRTHREE = - stest(drthree); kanchar "Roman digit three"; - begintchar(dr_three_code,7u#,fig_height#,0,0,0,ur#); - path pa; - top lft z1=(0,3/4h); top z2=(w/2,h); - rt z3=(w,y1); z4=(w/2-u,1/2h); - pa= z1..z2..z3..{(-1,0)}z4; - sketch pa; sketch pa reflectedabout (z4,(w,y4)); - endtchar; etest; -enddef; - -def DRFOUR = - stest(drfour); kanchar "Roman digit four"; - begintchar(dr_four_code,7u#,fig_height#,0,0,0,ur#); - bot z1=(w-1.5u,0); top z2=(x1,h); - lft z3=(0,w_height); rt z4=(w,y3); - bot z1a=(x1-(x4-x1),0); bot z1b=(x4,0); - sketch z1a--z1b; sketch z1--z2; - sketch z3--z2; sketch z3--z4; - penlabels(1a,1b); - endtchar; etest; -enddef; - -def DRFIVE = - stest(drfive); kanchar "Roman digit five"; - begintchar(dr_five_code,7u#,fig_height#,0,0,0,ur#); - top rt z1=(w,h); top lft z2=(0,h); lft z3=(0,6/10h); - z4=(1/2w,y3+uh); rt z5=(w,(y4+y6)/2); bot z6=(x4,0); lft z7=(0,1/4h); - sketch z1--z2; sketch z2--z3; - sketch z3..z4..z5..z6..z7; - endtchar; etest; -enddef; - -def DRSIX = - stest(drsix); kanchar "Roman digit six"; - begintchar(dr_six_code,6u#,fig_height#,0,0,0,ur#); - dr_sixnine_form; - sketch dr_sixnine_p; - endtchar; etest; -enddef; - -def DRSEVEN = - stest(drseven); kanchar "Roman digit seven"; - begintchar(dr_seven_code,7u#,fig_height#,0,0,0,ur#); - top lft z1=(0,h); top rt z3=(w,h); - bot z4=(1/4w,0); - sketch z1--z3{(-1,-1)}..{down}z4; - endtchar; etest; -enddef; - -def DREIGHT = - stest(dreight); kanchar "Roman digit eight"; - begintchar(dr_eight_code,7u#,fig_height#,0,0,0,ur#); - top z1=(w/2,h); z2=(x1,0.6h); - bot z3=(x1,0); lft z4=(0,y2/2); rt z5=(w,y4); - z6=(x4+u,1/2(y1+y2)); z7=(w-u,y6); - sketch superellipse(z7,z1,z6,z2,0.707); - sketch superellipse(z5,z2,z4,z3,0.707); - endtchar; etest; -enddef; - -def DRNINE = - stest(drnine); kanchar "Roman digit nine"; - begintchar(dr_nine_code,6u#,fig_height#,0,0,0,ur#); - dr_sixnine_form; - bot lft z10 = z1; - sketch dr_sixnine_p rotatedaround(z10,-180) shifted(-w,-h); - endtchar; etest; -enddef; - -%---------------------end of roman digits------------------------ - -% ------------- start of kannada digits ------------ - -def DKZERO = - stest(dkzero); kanchar "kannada digit zero"; - begintchar(dk_zero_code,kfig_width#,kfig_height#,0,0,0,ur#); - top z1=(w/2,h); lft z2=(0,h/2); bot z3=(x1,0); rt z4=(w,y2); - sketch superellipse(z4,z1,z2,z3,0.707); - endtchar; etest; -enddef; - -def DKONE = - stest(dkone); kanchar "kannada digit one"; - begintchar(dk_one_code,kfig_width#,kfig_height#,0,0,0,ur#); - bot z1=(w/4,0); lft z2=(0,h/2); top z3=(w/2,h); - rt z4=(w,h/2); bot z5=(w-(w/4),0); - sketch z1..tension 1.2..z2..z3..z4..tension 1.2..z5; - endtchar; etest; -enddef; - -def DKTWO = - stest(dktwo); kanchar "kannada digit two"; - begintchar(dk_two_code,kfig_width#,kfig_height#,0,0,0,ur#); - z1=(3w/5+.75u,5h/6); z2=(x1-.75u,4h/6); z3=(w/2,y1); - top z4=(x1,h); z5=((x8+x1)/2,y3); bot z6=(x1,0); - bot lft z7=(0+u,0);rt z8=(w,h/2); - sketch z1..z2..z3..z4..z8..{(-1,0)}z6--z7; - endtchar; etest; -enddef; - - -def DKTHREE = - stest(dkthree); kanchar "kannada digit three"; - begintchar(dk_three_code,kfig_width#-2u#,kfig_height#,0,0,0,ur#); - path pa; - %lft z1=(0,4h/5); top z2=(w/2,h); top z3=(4w/5,h); - %rt z4=(w,3h/4); z5=(3w/4,h/2); z6=(w/3,h/2); - %pa= z1..z2..z3..z4..z5; - %sketch pa; sketch pa reflectedabout(z5,z6); - %sketch z5--z6; - cb_kha_form; - path dkg_three ; - dkg_three = z1..z2..z3..z4..z5..z6..z7..z8..z9; - sketch dkg_three ; - endtchar; etest; -enddef; - -def DKFOUR = - stest(dkfour); kanchar "kannada digit four"; - begintchar(dk_four_code,kfig_width#-2u#,kfig_height#,0,0,0,ur#); - %top z1=(w/5,h); lft z2=(0,2h/3); z4=(w/2,h/3); - %bot z5=(x4,0); z3=(w/3,1/2(y4+y5)); - %forsuffixes s=6,7,8: - % z.s=z.[s-5] reflectedabout(z4,z5); endfor; - %sketch z1..z2..z4..z7..z6; - %sketch z4..z3..z5..z8..z4; - cb_lla_form; - sketch cb_lla_p ; - endtchar; etest; -enddef; - -def DKFIVE = - stest(dkfive); kanchar "kannada digit five"; - begintchar(dk_five_code,kfig_width#,kfig_height#,0,0,0,ur#); - %lft z1=(0,8h/10); lft z2=(0,3h/10); z3=(2w/3,(y1+y2)/2); - %top z11=(w/3,h); z12 = z11 reflectedabout ((0,y3),(w,y3)); - %sketch z1..z11..z3..z12..z2; - %top z4=(x3+(w-x3)/2,h); - %rt z5=(w,(y3+y4)/2); - %bot z7=(x4,0); rt z8=(x9,y9-uh); rt z9=(w,y2); - %sketch z3..z5..z4..z3..z7..z8..z9; - dk_five_form ; - - endtchar; etest; -enddef; - -def DKSIX = - stest(dksix); kanchar "kannada digit six"; - begintchar(dk_six_code,kfig_width#,kfig_height#,0,0,0,ur#); - dk_six_form; - endtchar; etest; -enddef; - -def DKSEVEN = - stest(dkseven); kanchar "kannada digit seven"; - begintchar(dk_seven_code,kfig_width#-2u#,kfig_height#,0,0,0,ur#); - %lft z1=(0,3h/4); top z2=(w/2,h); rt z3=(w,y1); z4=(w/2,h/2); - %forsuffixes i=6,7,8: - % z.i=z.[i-5] rotatedaround (z4,0); - %endfor; - z1 = (.5w, .75h) ; top z2 = (.3w, .95h) ; - top z3 = (x1+u, y1) ; lft z4 = (0, .2h) ; - bot z5 = (.1w, 0) ; bot z6 = (w, 0) ; - sketch z1..z2..z3..tension 1.1..z4...z5--z6 ; - endtchar; etest; -enddef; - - -def DKEIGHT = - stest(dkeight); kanchar "kannada digit eight"; - begintchar(dk_eight_code,kfig_width#+u#,kfig_height#,0,0,0,ur#); - z1 =(.2w, .75h) ; top z2 = (.3w, h) ; z2a = (.075w, .75h) ; - lft z3 = (.0w, .5h) ; bot z4 = (.35w, .03h ) ; - rt z5 = (.9w, .45h) ; z6 = (.7w, .8h) ; - top z7 = (.75w, h) ; rt top z8 = (w, h) ; - sketch z1..z2..z2a..z3..z4...z5..z6...z7--z8 ; - - sketch z1 ; sketch z2; sketch z3; sketch z4 ; ;sketch z5; sketch z6; sketch z7; - endtchar; etest; -enddef; - -def DKNINE = - stest(dknine); kanchar "kannada digit nine"; - begintchar(dk_nine_code,kfig_width#,kfig_height#,0,0,0,ur#); - rt top z1 = (w, h) ; top z2 = (.25w, h) ; z2a = (.05w, .9h) ; - lft z3 = (0, .75h) ; z4 = (.2w, .4h) ; - z6 = (x4, .6h) ; z5 = ( .35w, (y4+y6)/2) ; - lft z7 = (0, .25h) ; bot z8 = (.2w, 0) ; - bot z9 = (.3w, 0 ) ; - sketch z1---z2..z3..z4..z5..z6..z7...z8---z9 ; - - endtchar; etest; -enddef; - -% end of kannada digits - -% --------- start of punctuation ---------- - -def PPERIOD = - stest(pperiod); kanchar "punctuation period"; - begintchar(p_period_code,2*dot_radius#,2*dot_radius#,0,0,0,ur#); - z1=(dot_radius,dot_radius); - fill_dot(1); - endtchar; etest; -enddef; - -def PCOMMA = - stest(pcomma); kanchar "punctuation comma"; - begintchar(p_comma_code, p_comma_width#,2*dot_radius#,des_depth#,0,0,ur#); - p_comma_form; - endtchar; etest; -enddef; - -def PEQUAL = - stest(pequal); kanchar "punctuation equal"; - begintchar(p_equal_code,10u#,3/4x_height#,0,0,0,ur#); - top lft z1=(0,h); top rt z2=(w,h); - bot lft z3=(0,1/4x_height); bot rt z4=(w,1/4x_height); - sketch z1--z2; sketch z3--z4; - endtchar; etest; -enddef; - -def PBAR = - stest(pbar); kanchar "punctuation vertical bar"; - begintchar(p_bar_code,u#,x_height#,0,0,0,ur#); - p_bar_form; - sketch p_bar_p; - endtchar; etest; -enddef; - -def PDBAR = - stest(pdbar); kanchar "punctuation double bar"; - begintchar(p_dbar_code,2.5u#,x_height#,0,0,0,ur#); - p_bar_form; - sketch p_bar_p;sketch p_bar_p reflectedabout ((w/2,0),(w/2,h)); - endtchar; etest; -enddef; - -def PCOLON = - stest(pcolon); kanchar "punctuation colon"; - begintchar(p_colon_code,2*dot_radius#,x_height#,0,0,0,ur#); - z1=(dot_radius,dot_radius); - fill_dot(1); - z2=(x1,x_height-dot_radius); - fill_dot(2); - endtchar; etest; -enddef; - -def PSCOLON = - stest(pscolon); kanchar "punctuation semicolon"; - begintchar(p_scolon_code,p_comma_width#,x_height#,des_depth#,0,0,ur#); - p_comma_form; - z5=(x1,x_height-dot_radius); - fill_dot(5); - endtchar; etest; -enddef; - -def PCQUOTE = - stest(pcquote); kanchar "punctuation closing quote"; - begintchar(p_cquote_code,p_comma_width#,asc_height#,0,0,0,ur#); - p_comma_form; - erase fill fill_dot_p; erase sketch p_comma_p; - fill fill_dot_p shifted (0,asc_height-2*dot_radius); - sketch p_comma_p shifted (0,asc_height-2*dot_radius); - endtchar; etest; -enddef; - -def PCQUOTES = - stest(pcquotes); kanchar "punctuation closing quotes"; - begintchar(p_cquotes_code,2*p_comma_width#+u#,asc_height#,0,0,0,ur#); - p_comma_form; - erase fill fill_dot_p; erase sketch p_comma_p; - fill fill_dot_p shifted (0,asc_height-2*dot_radius); - sketch p_comma_p shifted (0,asc_height-2*dot_radius); - fill fill_dot_p shifted (0,asc_height-2*dot_radius) - shifted (p_comma_width+u,0); - sketch p_comma_p shifted (0,asc_height-2*dot_radius) - shifted (p_comma_width+u,0); - endtchar; etest; -enddef; - -def POQUOTE = - stest(poquote); kanchar "punctuation opening quote"; - begintchar(p_oquote_code,p_comma_width#,asc_height#,0,0,0,ur#); - p_comma_form; - erase fill fill_dot_p; erase sketch p_comma_p; - lft z5 = z2; - top rt z6 =z3; - fill fill_dot_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); - sketch p_comma_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); - endtchar; etest; -enddef; - -def POQUOTES = - stest(poquotes); kanchar "punctuation opening quotes"; - begintchar(p_oquotes_code,2*p_comma_width#+u#,asc_height#,0,0,0,ur#); - p_comma_form; - erase fill fill_dot_p; erase sketch p_comma_p; - lft z5 = z2; - top rt z6 =z3; - fill fill_dot_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); - sketch p_comma_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); - fill fill_dot_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)) - shifted(p_comma_width+u,0); - sketch p_comma_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)) - shifted(p_comma_width+u,0); - endtchar; etest; -enddef; - -def PDQUOTES = - stest(pdquotes);kanchar "punctuation double quotes"; - begintchar(p_dquotes_code,4.5u#,asc_height#,0,0,0,ur#); - top lft z1=(1.5u,h); bot lft z2=(0,x_height); - top rt z3=(w,h); bot rt z4=(x1+1.5u,x_height); - sketch z1--z2; sketch z3--z4; - endtchar; etest; -enddef; - -%stest(pdquotes);kanchar "punctuation double quotes"; -%begintchar(p_dquotes_code,2*dot_radius#+u#,asc_height#,0,0,0,ur#); -%%begintchar(p_dquotes_code,4*dot_radius#+u#,asc_height#,0,0,0,ur#); -%path pa; -%%z1=(dot_radius,h-dot_radius);z1l=(0,y1);z1r=(2x1,y1);z1t=(x1,h); -%z1=(dot_radius/2,h-dot_radius/2);z1l=(0,y1);z1r=(2x1,y1);z1t=(x1,h); -%z2=(x1,x_height); -%%z2=(x1,x_height);z2l=(dot_radius/2,y2);z2r=(x2+(x2-x2l),y2); -%%pa= z2l--z1l & flex(z1l,z1t,z1r) & z1r--z2r--cycle; fill pa; -%pa= z2--z1l & flex(z1l,z1t,z1r) & z1r--z2--cycle; filldraw pa; -%filldraw pa shifted(dot_radius+u,0); -%%fill pa shifted(2dot_radius+u,0); -%endtchar; etest; - -def PSLASH = - stest(pslash); kanchar "punctuation virgule (slash)"; - begintchar(p_slash_code,6u#,asc_height#,des_depth#,0,0,ur#); - p_slash_form; - sketch p_slash_p; - endtchar; etest; -enddef; - -def PHASH = - stest(phash); kanchar "punctuation hash mark (number sign)"; - begintchar(p_hash_code,12u#,asc_height#,des_depth#,0,0,ur#); - numeric midpoint; - midpoint = (-des_depth+asc_height)/2; - lft z1=(0,midpoint+2u); rt z2=(w,y1); - lft z3=(0,midpoint-2u); rt z4=(w,y3); - bot z5=(2u,-d); top z6=(x5+4u,h); - z7=(x5+4u,y5); z8=(x7+4u,y6); - sketch z1--z2; sketch z3--z4; - sketch z5--z6; sketch z7--z8; - endtchar; etest; -enddef; - -%stest(pexcla); kanchar "punctuation exclamation point"; -%begintchar(p_excla_code,dot_radius#,asc_height#,0,0,0,ur#); -%pickup pencircle; -%z1=(dot_radius/2,dot_radius/2); -%filldraw fullcircle scaled 2x1 shifted z1; -%z2=(x1,5*y1); z3 =(x1,h-y1); -%z2l=(x1-dot_radius/4,y2); z2r=(x1+dot_radius/4,y2); -%z3l=(0,y3); z3r=(x1+dot_radius/2,y3); z3t=(x1,h); -%filldraw z2l--z3l & flex(z3l,z3t,z3r) & z3r--z2r--cycle; -%endtchar; etest; - -def PEXCLA = - stest(pexcla); kanchar "punctuation exclamation point"; - begintchar(p_excla_code,dot_radius#,asc_height#,0,0,0,ur#); - z1=(dot_radius,dot_radius); - fill_dot(1); - fill fullcircle scaled 2x1 shifted z1; - top z2=(x1,h); bot z3 =(x1,4*y1); - sketch z2--z3; - endtchar; etest; -enddef; - -def PASTERISK = - stest(pasterisk); kanchar "punctuation asterisk"; - begintchar(p_asterisk_code,x_height#,x_height#,0,0,0,ur#); - z1=(1/2w,1/2h); - for d=30 step 60 until 330: - z[d]=z1+0.5 dir d xscaled w yscaled h; - sketch z1--z[d]; - penlabels(z[d]); - endfor; - endtchar; etest; -enddef; - -def PPLUS = - stest(pplus); kanchar "punctuation plus"; - begintchar(p_plus_code,x_height#,x_height#,0,0,0,ur#); - lft z1=(0,h/2); rt z2=(w,y1); top z3=(w/2,h); bot z4=(x3,0); - sketch z1--z2; sketch z3--z4; - endtchar; etest; -enddef; - - -def PLBRACKET = - stest(plbracket); kanchar "punctuation left bracket"; - begintchar(p_lbracket_code,3u#,top_height#,bot_depth#,0,0,ur#); - p_lbracket_form; - sketch p_lbracket_p; - endtchar; etest; -enddef; - -def PRBRACKET = - stest(prbracket); kanchar "punctuation right bracket"; - begintchar(p_rbracket_code,3u#,top_height#,bot_depth#,0,0,ur#); - p_lbracket_form; - sketch p_lbracket_p shifted (-w,0) reflectedabout ((0,0),(0,h)); - endtchar; etest; -enddef; - -def PLPAREN = - stest(plparen); kanchar "punctuation left parenthesis"; - begintchar(p_lparen_code,3u#,top_height#,bot_depth#,0,0,ur#); - p_rparen_form; - sketch p_rparen_p shifted (-w,0) reflectedabout ((0,0),(0,h)); - endtchar; etest; -enddef; - -def PRPAREN = - stest(prparen); kanchar "punctuation right parenthesis"; - begintchar(p_rparen_code,3u#,top_height#,bot_depth#,0,0,ur#); - p_rparen_form; - sketch p_rparen_p; - endtchar; etest; -enddef; - -def PLBRACE = - stest(plbrace); kanchar "punctuation left brace"; - begintchar(p_lbrace_code,4u#,top_height#,bot_depth#,0,0,ur#); - p_lbrace_form; - sketch p_lbrace_p; - endtchar; etest; -enddef; - -def PRBRACE = - stest(prbrace); kanchar "punctuation right brace"; - begintchar(p_rbrace_code,4u#,top_height#,bot_depth#,0,0,ur#); - p_lbrace_form; - sketch (p_lbrace_p shifted (-w,0) reflectedabout ((0,0),(0,h)) ); - endtchar; etest; -enddef; - -def PPERCENT = - stest(ppercent); kanchar "punctuation percent sign"; - begintchar(p_percent_code,6u#,asc_height#,des_depth#,0,0,ur#); - p_slash_form; - sketch p_slash_p; - z3=(3(x1+x2)/8,-d+7/8(h+d)); - z4=(w-x3,-d+(h-y3)); - sketch fullcircle scaled (1.5u) shifted z3; - sketch fullcircle scaled (1.5u) shifted z4; - endtchar; etest; -enddef; - -def PBSLASH = - stest(pbslash); kanchar "punctuation backslash"; - begintchar(p_bslash_code,6u#,asc_height#,des_depth#,0,0,ur#); - p_slash_form; - sketch p_slash_p reflectedabout ((w/2,h),(w/2,0)); - endtchar; etest; -enddef; - -def PLBAR = - stest(plbar); kanchar "punctuation long bar"; - begintchar(p_lbar_code,u#,asc_height#,des_depth#,0,0,ur#); - top z1=(w/2,h); bot z2=(x1,-d); - sketch z1--z2; - endtchar; etest; -enddef; - -def PHYPHEN = - stest(phyphen); kanchar "punctuation hyphen"; - begintchar(p_hyphen_code,6u#,1/2x_height#,0,0,0,ur#); - top lft z1=(0,h); top rt z2=(w,h); - sketch z1--z2; - endtchar; etest; -enddef; - -def PLHYPHEN = - stest(plhyphen); kanchar "punctuation long hyphen"; - begintchar(p_lhyphen_code,9u#,1/2x_height#,0,0,0,ur#); - top lft z1=(0,h); top rt z2=(w,h); - sketch z1--z2; - endtchar; etest; -enddef; - -def PVLHYPHEN = - stest(pvlhyphen); kanchar "punctuation very long hyphen"; - begintchar(p_vlhyphen_code,15u#,1/2x_height#,0,0,0,ur#); - top lft z1=(0,h); top rt z2=(w,h); - sketch z1--z2; - endtchar; etest; -enddef; - -def PUBAR = - stest(pubar); kanchar "punctuation underbar"; - begintchar(p_ubar_code,x_height#,0,uh#,0,0,ur#); - bot lft z1=(0,-d); bot rt z2=(w,-d); - sketch z1--z2; - endtchar; etest; -enddef; - -def PQUESTION = - stest(pquestion); kanchar "punctuation question mark"; - begintchar(p_question_code,6u#,asc_height#,0,0,0,ur#); - lft z1=(0,h-2dot_radius); top z2=(w/2,h); - rt z3=(w,y1); z4=(x2,1/2x_height); - z5=(x2,1/3(y2+y4)); z6=(x2,dot_radius);fill_dot(6); - sketch z1..z2..z3..z5..tension 1.5..z4; - endtchar; etest; -enddef; - -def PDOLLAR = - stest(pdollar); kanchar "punctuation dollar sign"; - begintchar(p_dollar_code,cb_ka_width#,x_height#+1.5uh#,1.5uh#,0,0,ur#); - cb_dollar_form; - sketch dol_p ; - top z11 = (w/2,h); bot z12 = (w/2,-d); - sketch z11--z12; - endtchar; etest; -enddef; - -def PGREATER = - stest(pgreater); kanchar "punctuation greater than"; - begintchar(p_greater_code,7u#,x_height#,0,0,0,ur#); - bot lft z1=(0,0); top lft z2=(0,x_height); rt z3=(w,1/2(y1+y2)); - sketch z1--z3; sketch z2--z3; - endtchar; etest; -enddef; - -def PLESS = - stest(pless); kanchar "punctuation less than"; - begintchar(p_less_code,7u#,x_height#,0,0,0,ur#); - bot rt z1=(w,0); top rt z2=(w,x_height); lft z3=(0,1/2(y1+y2)); - sketch z1--z3; sketch z2--z3; - endtchar; etest; -enddef; - -def PAT = - stest(pat); kanchar "punctuation at sign"; - begintchar(p_at_code,10u#,asc_height#,0,0,0,ur#); - z1=(w/2,3/4h); z2=(1/5w,1/2h); - z3=(x1,1/4h); z4=(4/5w,5/8h); - z5=(4/5w,3/8h); z6=(9/10w,y3); - rt z7=(w,y2); top z8=(x1,h); - lft z9=(0,y2); bot z10=(x1,0); rt z11=(x7,1/8h); - sketch z5..z3..z2..z1..z4&z4--z5& z5..z6..z7{up}..{left}z8..z9..z10..z11; - endtchar; etest; -enddef; - -def PTILDE = - stest(ptilde); kanchar "punctuation tilde sign"; - begintchar(p_tilde_code,9u#,asc_height#,0,0,0,ur#); - top lft z1=(0,asc_height2); top z2=(w/3,h); - z3=(2/3w,y1); top rt z4=(w,y2); - sketch z1..z2..z3..z4; - endtchar; etest; -enddef; - -def PHAT = - stest(phat); kanchar "punctuation circumflex(hat)"; - begintchar(p_hat_code,5u#,asc_height#,0,0,0,ur#); - lft z1=(0,asc_height1); rt z2=(w,y1); top z3=(1/2(x1+x2),h); - sketch z1--z3; sketch z3--z2; - endtchar; etest; -enddef; - -def PAMPERSAND = - stest(pampersand); kanchar "punctuation ampersand"; - begintchar(p_ampersand_code,11u#,asc_height#,0,0,0,ur#); - rt z11=(w,1/4x_height); bot z10=(3/4w,0); - z1=(x10+u,x_height); y1a=y1; x1-x1a=w-x1; rt z1b=(w,x_height); - bot z2=(w/4,0);lft z3=(0,y11); z4=(w/8,1/2x_height+uh); - z5=(x2,3/4x_height); z6=(w/2,asc_height1); - top z7=(5/12w,h); z8=(5/24w,y6); %z9=(x7,1/2x_height); - sketch z1a--z1b; - sketch z1..{left}z2..z3..z4..z5..z6..z7..z8..z5..z10..z11; - penlabels (1a,1b); - endtchar; etest; -enddef; - -% ---------------- end of punctuation ------------ - -%-------Begin of glyps to demonstrate conjunctions and vowel modifers----- -def BOXA = - stest(cbbb); kanchar "consonant blackbox(bb)"; - %This is not really a letter in Kannada. However this character - % is useful for demonstrating vowel modifiers, cons. conjuncts, accents etc. - begintchar(cb_bb_code,0.2em_width#,0.8x_height#,0.25x_height#,0,0,0); - fill (0,-d)--(w,-d)--(w,h)--(0,h)--cycle; - pivot_message((w/2),(w/2)); - endtchar; etest; -enddef ; - -def BOXB = - stest(cbbo); kanchar "consonant outlinebox(bo)"; - %This is not really a letter in Kannada. However this character - % is useful for demonstrating vowel modifiers, cons. conjuncts, accents etc. - begintchar(cb_bo_code,0.2em_width#,x_height#,0,0,0,0); - bot lft z1=(0,-d);bot rt z2=(w,-d);top rt z3=(w,h); top lft z4=(0,h); - z1a=(0,y1);z2a=(w,y2);z3a=(w,y3);z4a=(0,y4); - sketch z1--z4; sketch z2--z3; sketch z1a--z2a; sketch z4a--z3a; - cutoff(z1a,180);cutoff(z2a,0);cutoff(z3a,0);cutoff(z4a,180); - pivot_message((w/2),(w/2)); - endtchar; etest; -enddef ; - -def BOXC = - stest(cbbe); kanchar "consonant emptybox(be)"; - %This is not really a letter in Kannada. However this character - % is useful for demonstrating vowel modifiers, cons. conjuncts, accents etc. - begintchar(cb_be_code,0.2em_width#,x_height#,0,0,0,0); - pivot_message((w/2),(w/2)); - endtchar; etest; -enddef ; - -%-------End of glyps to demonstrate conjunctions and vowel modifers----- - -% ----------------Begin of Misc glyphs for emotional expression-------------- - -def SMILE = - stest(grin); kanchar "Grin face"; - begintchar(kn_spla_code,7u#,x_height#+u#,0,0,0,0); - top z1 = (w/2, h) ; rt z2 = (0, 1/2h) ; - bot z3 = (x1, 0) ; lft z4 = (w, 1/2h) ; - top z5 = (1/4w, 2/3h) ; top z6 = (3/4w, 2/3h) ; - fill_dotb(5) ; - fill_dotb(6) ; - sketch z1..z2..z3..z4..z1 ; - z7 = (x5+.15u, 1/3h); z8 = (w-x7, y7) ; - z9 = ((x7+x8)/2, .2h) ; - draw z7...z9...z8 ; - endtchar; etest; -enddef ; - -def FROWN = - stest(weep); kanchar "Weep face"; - begintchar(kn_splb_code,7u#,x_height#+u#,0,0,0,0); - top z1 = (w/2, h) ; rt z2 = (0, 1/2h) ; - bot z3 = (x1, 0) ; lft z4 = (w, 1/2h) ; - top z5 = (1/4w, 2/3h) ; top z6 = (3/4w, 2/3h) ; - fill_dotb(5) ; - fill_dotb(6) ; - sketch z1..z2..z3..z4..z1 ; - z7 = (x5+.15u, 1/3h); z8 = (w-x7, y7) ; - z9 = ((x7+x8)/2, .4h) ; - draw z7...z9...z8 ; - endtchar; etest; -enddef ; - -% ----------------End of Misc glyphs for emotional expression-------------- - - diff --git a/Master/texmf-dist/fonts/source/public/itrans/tamilORG.mf b/Master/texmf-dist/fonts/source/public/itrans/tamilORG.mf deleted file mode 100644 index d2c30d53140..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tamilORG.mf +++ /dev/null @@ -1,2020 +0,0 @@ -boolean dodraw; -dodraw=true; -boolean goleft; -goleft=false; -def tthinnest=max(hair,2) enddef; -def tthinner=max(1.4hair,2) enddef; -def tthin=max(1.8hair,2) enddef; -def tmed=max(.75curve,2) enddef; -def tthick=curve enddef; -def tthicker=1.2curve enddef; -def tthickest=1.4curve enddef; - -string callchar; -numeric oldh; numeric oldw; numeric oldd; - -def charspec(expr c, w_sharp, h_sharp, d_sharp) = - oldh:=h; oldw:=w; oldd:=d; - w:=hround(w_sharp*hppp); h:=vround(h_sharp*hppp); d:=vround(d_sharp*hppp); -enddef; - -input tamilmax; - -def cloney(suffix $,@) = - y$=y@; y$r=y@r; y$l=y@l; -enddef; - -def clonex(suffix $,@) = - x$=x@; x$r=x@r; x$l=x@l; -enddef; - -def small_iito (suffix @,$)(expr iheight) = -x$99=x@; y$99=y@; pos$99(tthin,180); -x$100=x$99-2.5u; y$100=.5[y$99,y$1]; pos$100(tthin,135); -x$1=x@+.5u; top y$1r=iheight; pos$1(tthick,90); -x$2=x$1+u; y$2=y$1-.5u; pos$2(.7tthick,60); -x$3=x$2; y$3=y$2-2u; pos$3(tthin,-90); -x$4=x$4l=x$4r=x$2; y$4=y$2; y$4r=y$4+1; y$4l=y$4-1; -filldraw stroke z$99e{left}...{up}z$100e...{right}z$1e...z$2e...{left}z$3e...{right}z$4e; -penlabels($1,$2,$3,$4); -enddef; - -def help_uu = -charspec("9",x_height#,.75x_height#,0); -x181=x101=u; x106=x107=x108=x109=.55w; x111=x112=.8w; x110=w; -x103=x105=.5[x101,x106]; x102=x104=.5[x101,x103]; -bot y104r=y106=y107=y111=0; top y105r=y108=top y109r=top y110r=y112=h; -y101=y181=y103=.5y102; y102=.6h; -pos101(.8tthinner,180); pos102(.8tthin,90); pos103(.8tmed,0); -pos104(.8tthin,-90); pos181(.8tthinner,-180); pos105(.8tthick,-270); -pos106(.8tthin,-360); pos107(.8tthin,0); pos108(.8tthin,0); -pos109(.8tthin,90); pos110(.8tthin,90); pos111(.8tthick,0); pos112(.8tthick,0); -if dodraw: -filldraw stroke z101e...{right}z102e...{down}z103e...{left}z104e..z181e...{right}z105e...{down}z106e; -filldraw stroke z107e---z108e; filldraw stroke z109e---z110e; -filldraw stroke z111e---z112e; -fi -enddef; - - -cmchar "Tamil vii"; -beginchar(115,1.5x_height#+u#,body_height#,0); -adjust_fit(0,0); -callchar:="v"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x21r=x10l; x21l=x10r; x21=x10; cloney(21,10); small_iito(21,s,h); -endchar; - -cmchar "tamil a"; -beginchar(0,2x_height#,x_height#,.6desc_depth#); -adjust_fit(0,0); -x3=.5[x9,x11]; top y1r=h; y5=y12=h; y2=y4=y6=.5[y3,y1]; y3=.8bar_height; x1=x3; -x4=x8=.4[x9,x11]; x2=.6[x9,x11]; x5=.6[x9,x11]; x6=.7[x9,x11]; x7=.8[x9,x11]; x11=x12=x13=w-u; -x9=u; x10=.15[x9,x11]; y8=-.8d; y13=-d; y7=bar_height; y9=.2bar_height; y10=y11=.25bar_height; -z20=z1; -pos1(tthinnest,90); pos2(tthin,0); pos3(tthinnest,-90); pos4(tthinnest,-180); -pos5(hair,90); pos6(curve,0); pos7(tthick,-360); pos8(tthinner,-450); -pos9(tthinnest,-580); pos10(tthinnest,-630); pos11(tthinnest,-630); pos12(tthick,0); -pos13(tthick,0);pos20(tthinner,-270); -filldraw stroke z1e...z2e...z3e...z4e...z20e...{down}z7e...{left}z8e...{up}z9e...z10e---z11e; -filldraw stroke z12e---z13e; -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13); endchar; - -cmchar "tamil aa"; -beginchar(1,2.5x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -x3=.5[x9,x11]; top y1r=h; y5=y12=h; y2=y4=y6=.5[y3,y1]; y3=.8bar_height; x1=x3; -x4=x8=.4[x9,x11]; x2=.6[x9,x11]; x5=.6[x9,x11]; x6=.7[x9,x11]; x7=.8[x9,x11]; x11=x12=x13=2x_height-u; -x9=u; x10=.15[x9,x11]; y8=-.48desc_depth; y13=-.6desc_depth; y7=bar_height; y9=.2bar_height; y10=y11=.25bar_height; -z20=z1; x31=x31r=x31l=x11+u; cloney(31,11); -x32r=x13r; y32=y13; pos32(tthinner,0); x34=w-u; y34=y32; pos34(tthinner,-720); -x33=.5[x32,x34]; y33=0; pos33(tthin,-90); x35=.1[x13,x8]; y35=-1.2d; %bot y35l=-d; -pos35(.8tthick,-810); x36=.2[x8,x13]; y36=-desc_depth; pos36(tthin,-900); -x37=.5[x8,x13]; y37=y13; pos37(tthinner,-990); -pos1(tthinnest,90); pos2(tthin,0); pos3(tthinnest,-90); pos4(tthinnest,-180); -pos5(hair,90); pos6(curve,0); pos7(tthick,-360); pos8(tthinner,-450); -pos9(tthinnest,-580); pos10(tthinnest,-630); pos11(tthinnest,-630); pos12(tthick,0); -pos13(tthick,0);pos20(tthinner,-270); -filldraw stroke z1e...z2e...z3e...z4e...z20e...{down}z7e...{left}z8e...{up}z9e...z10e---z31e{right} - ...{down}z34e...{left}z35e...{up}z36e...{right}z37e; -filldraw stroke z12e---z13e; -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,31,32,33,34,35,36,37); -endchar; - -cmchar "tamil i"; -beginchar(2,2x_height#,asc_height#,desc_depth#); -adjust_fit(0,0); -pickup crisp.nib; -x6=.6w; x11=x13=x15=.5w; x16=x17=.9w; x12=.75w; -x5=x7=.55w; x4=.3w; x3=.4w; x2=.5w; x1=.35w; -x8=x10=x14=.15w; x9=.1w; -y15=h; y5=x_height; y14=y11=.1h; y10=0; y16=.8x_height; -y7=-.1d; y8=y13=y17=-d; y9=y12=-.6d; -y2=y4=y6=.6x_height; y1=.8x_height; y3=.4x_height; -z20=z1; pos20(tthinnest,-200); -z65=.5[z6,z7]; pos65(tthicker,-370); -pos1(tmed,45); pos2(tmed,0); pos3(tthin,-90); pos4(tthinnest,-180); -pos5(tmed,-270); pos6(tthick,-360); pos7(tthicker,-380); pos8(tmed,-450); -pos9(tthinner,-540); pos10(tthinnest,-585); pos11(tthin,-630); -pos12(tthick,-720); pos13(tthin,-810); pos14(tthinner,-880); -pos15(tthick,-990); pos16(tthin,-1060); pos17(tthin,-1060); -filldraw stroke z1e..z2e..z3e..z4e..z20e..z5e..z65e..z8e..z9e..z10e..z11e..z12e..z13e..z14e..z15e...{down}z16e---z17e; -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); endchar; - -cmchar "Tamil ii"; -beginchar(3,1.125x_height#+2u#,x_height#,0); -adjust_fit(0,0); -callchar:="r"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=.5[x1,x6]; x8=x4-.5dot_size; -top y77r=top y88r=bar_height+.375dot_size; -y7=y8=.5[y77r,y77l]; -x77=x7; x88=x8; pos7(.75dot_size,0); pos77(.75dot_size,90); -pos8(.75dot_size,0); pos88(.75dot_size,90); -dot(7,77); dot(8,88); -penlabels(7,8); endchar; - -cmchar "tamil u"; -beginchar(4,2x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="u"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - - -cmchar "tamil uu"; -beginchar(5,2.8x_height#,x_height#,0); -adjust_fit(0,0); -help_uu; -picture V; transform t; -t=identity shifted(1.4x_height,.25x_height); -V=currentpicture transformed t; currentpicture:=V; -h:=oldh; w:=oldw; d:=oldd; -callchar:="u"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x12=w-u; y12=y11; pos12(tthin,-290); -filldraw stroke z11e--z12e; -endchar; - -cmchar "tamil e"; -beginchar(6,1.6x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "tamil ai"; -beginchar(7,1.75x_height#,x_height#,.8x_height#); -adjust_fit(0,0); -pickup crisp.nib; -y7=y10=h; y4=y8=y9=.2h; y15=y19=-d; y12=.9bar_height; -y21=.25h; y13=-.2d; y14=-.6d; y16=-.8d; y17=y18=-.3d; y20=-.2d; -y1=y3=.4h; y2=.7h; y11=.75h; y85=0; -% -x14=x1=u; x11=x12=w-u; x8=x9=x17=x18=.55[x1,x11]; x85=x8; -x7=.6[x1,x8]; x10=.5[x9,x11]; x3=.6[x1,x8]; x2=x4=.5[x1,x3]; -x13=x2; x15=x7-.7u; x16=x17; x19=.5[x18,x11]; x20=.95x11; x21=.9x11; -% -x77=x8; y77=.6h; z99=z77; -pos77(tthick,-360); pos99(tthick,0); -pos1(tthinner,180); pos2(tmed,90); pos3(tthick,0); pos4(tmed,-90); -z55=z1; pos55(tthinner,-180); -%pos6 ? -pos7(tthick,-270); pos8(tthick,-405); -pos9(tthick,-45); pos10(tthin,-90); pos11(tthick,-180); pos12(tthick,-200); -pos21(tthin,-240); pos13(tthin,-240); pos14(tmed,-180); -pos15(tthick,-90); pos16(tthick,-45); pos17(tthick,-45); -pos18(tthick,-45); pos19(tthick,90); pos20(tmed,225); -pos85(tthin,-270); -%pickup pencircle scaled .2pt -filldraw stroke z1e..z2e{right}..z3e{down}..z4e{left}..z55e...{right}z7e...{down}z77e---z8e; -%pickup crisp.nib -%filldraw stroke z9e---z99e{up}...z10e{right}...{down}z12e..z21e---z13e..z14e{down}...z15e{right}...z16e...{up}z17e; -filldraw stroke z9e---z99e{up}...z10e{right}...{down}z12e...{left}z85e{left}..z14e{down}...z15e{right}...z16e...{up}z17e; -filldraw stroke z18e{down}...z19e{right}...z20e; -%pickup pencircle scaled .2pt -%draw stroke z18e{down}...z19e{right}...z20e; -penlabels(1,2,3,4,55,7,8,9,10,11,12,21,13,14,15,16,17,19,20); endchar; - -cmchar "Tamil k"; -beginchar(8,1.5x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="k"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil o"; -beginchar(9,1.6x_height#,x_height#,.8x_height#); -adjust_fit(0,0); -x1=x5=x16=u; x7=rt x12r=rt x13r=w-u; -x6=.5[x1,x7]; x15=.5[x16,x12]; x17=.1[x16,x12]; x14=.85[x16,x12]; -x11=x9; x8=.4[x9,x7]; x9=x10=.7[x1,x7]; -x3=.3[x1,x7]; x2=x4=.5[x1,x3]; -top y6r=h; bot y15r=-d; -y2=.5h; y1=y5=y3=.5y2; -bot y4r=bot y8r=0; -y9=y10=y2; y7=.3h; y11=-.1d; y12=y13=-.3d; -y14=-.6d; y16=-.5d; y17=-.2d; -pos1(tthin,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90); -pos5(tthin,-180); pos6(tmed,-270); pos7(tthick,-360); pos8(tmed,-450); -pos9(tthin,-540); pos10(tthin,0); pos11(tmed,5); pos12(tthin,10); -pos13(tthick,10); pos14(tthick,0); pos15(tmed,-90); pos16(tthinner,-180); -pos17(tmed,-250); -filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e...z5e...{right}z6e - ...{down}z7e...{left}z8e...z9e; -% pickup pencircle scaled .2pt; -filldraw stroke z10e..z11e...{right}z12e; -filldraw stroke z13e...z14e...{left}z15e...{up}z16e...z17e; -penlabels(1,2,3,4,6,7,8,9,11,12,14,15,16,17); -endchar; - - -cmchar "Tamil ki"; -beginchar(10,1.8x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="k"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -z45=z21; x46=x3; top y46r=h; x47=x48=w-u; y47=y4; y48=0; -pos45(tthinnest,270); pos46(tthick,90); pos47(tthinner,0); -x48l=x48-.5; x48r=x48+.5; y48l=y48r=0; -filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e; -penlabels(46,47,48); -endchar; - -cmchar "Tamil kii"; -beginchar(11,1.5x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="k"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -z45=z21; x46=x3; top y46r=h; -pos45(tthinnest,270); pos46(tmed,90); -x47=.6[x3,x4]; y47=.9[y3,y46]; x48=x4; y48=.5[y3,y46]; -y49=.3[y3,y46]; x49=x47; x50=.2[x3,x4]; y50=y48; z51=z47; -pos47(.7tmed,45); pos48(tthinner,0); pos49(tthinnest,-90); -pos50(tthinnest,-180); pos51(tthinnest,-225); -filldraw stroke z45e{left}...{right}z46e...z47e...{down}z48e...{left}z49e...{up}z50e...z51e; -penlabels(46,47,48,49,50); -endchar; - -cmchar "Tamil ku"; -beginchar(12,2x_height#,asc_height#,desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x45=x5; bot y45r=-d; pos45(tthick,-450); -x46=x46r=x46l=x2; y46=y2; y46r=y46+1; y46l=y46-1; -y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=.7[x3,x4]; -x47=-.25x_height; y47=y8; pos47(tthin,-540); -filldraw stroke z25e---z26e{right}...z45e...{up}z47e...{right}z46e; -picture V; transform t; t=identity shifted(.4x_height,0); -V=currentpicture transformed t; currentpicture:=V; -penlabels(26,45,46,47); -endchar; - -cmchar "Tamil kuu"; -beginchar(13,2.1x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -cloney(26,25); x26=x26l=x26r=.6[x3,x4]; -x28=x4; y28=0; x30=x28+(x4-x3); y30=0; top y29l=bar_height; x29=.5[x28,x30]; -x31=x30; bot y31l=0; pos31(tthin,90); x32=w-u; bot y32l=0; pos32(tthin,90); -pos28(tthin,0); pos29(tthinner,-90); pos30(tthin,-180); -filldraw stroke z25e--z26e{right}...{down}z28e; -filldraw stroke z28e{up}...{right}z29e...{down}z30e; -filldraw stroke z31e--z32e; -penlabels(26,28,29,30,31); endchar; - -cmchar "Tamil long o"; -beginchar(14,1.6x_height#,x_height#,.8x_height#); -adjust_fit(0,0); -x1=x5=x16=u; x7=rt x12r=rt x13r=w-u; -x6=.5[x1,x7]; x15=.5[x16,x12]; x17=.25[x16,x12]; x14=.85[x16,x12]; -x11=x9; x8=.4[x9,x7]; x9=x10=.7[x1,x7]; -x3=.3[x1,x7]; x2=x4=.5[x1,x3]; -top y6r=h; bot y15r=-d; -y2=.5h; y1=y5=y3=.5y2; -bot y4r=bot y8r=0; -y9=y10=y2; y7=.3h; y11=-.1d; y12=y13=-.3d; -y14=-.6d; y16=-.5d; y17=-.2d; -x18=.4[x16,x12]; y18=-.5d; pos18(tthinner,-360); -pos1(tthin,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90); -pos5(tthin,-180); pos6(tmed,-270); pos7(tthick,-360); pos8(tmed,-450); -pos9(tthin,-540); pos10(tthin,0); pos11(tmed,5); pos12(tthin,10); -pos13(tthick,10); pos14(tthick,0); pos15(tmed,-90); pos16(tthinner,-180); -pos17(tmed,-250); -filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e...z5e...{right}z6e - ...{down}z7e...{left}z8e...z9e; -% pickup pencircle scaled .2pt; -filldraw stroke z10e..z11e...{right}z12e; -filldraw stroke z13e...z14e...{left}z15e...{up}z16e...{right}z17e...{down}z18e; -penlabels(1,2,3,4,6,7,8,9,11,12,14,15,16,17,18); -endchar; - -cmchar "tamil long e"; -beginchar(15,1.6x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x10=x4; bot y10r=-d; pos10(tthick,-90); -x11=x9; bot y11r=0; pos11(tthick,-90); -filldraw stroke z11e--z10e; -penlabels(10); -endchar; - -cmchar "tamil ng"; -beginchar(16,1.5x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="g"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil ai matra"; -beginchar(17,2x_height#,x_height#,0); -adjust_fit(0,0); -w:=3x_height; -x1=x81=u; x6=.6x10; x8=.6[x1,x6]; x7=.5[x8,x6]; -x5=.5[x1,x6]; x3=.5[x1,x8]; x4=x2=.5[x1,x3]; -x9=.5[x8,x10]; x10=.7w; x12=.6[x8,x10]; x11=.5[x12,x10]; -top y5r=top y9r=h; -bot y4r=bot y7r=bot y11r=0; -y2=y8=y6=y12=y10=.5h; -y81=y1=y3=.5y2; -pos1(tthinner,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90); -pos81(tthinner,-180); pos5(tmed,-270); pos6(tthicker,-360); -pos7(tmed,-450); pos8(tthin,-540); pos9(tmed,-630); pos10(tthicker,-720); -pos11(tmed,-810); pos12(tthin,-900); -x30=x11; y30=y10; x31=x12; bot y31r=0; pos30(tthick,-720); pos31(tmed,-790); -filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e - ...{down}z6e...{left}z7e...{up}z8e...{right}z9e...{down}z30e...z31e; -penlabels(1,2,3,4,5,6,7,8,9,30,31); -endchar; - -cmchar "tamil ngi"; -beginchar(18,1.85x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="g"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x40=x13; y40=y13; pos40(tthin,0); x41=x40; top y41l=h; pos41(tthick,-90); -x50=x40-2u; y50=.5[y40,y41]; pos50(tmed,-30); -x42=w-u; y42=x_height; x43=x42; y43=y43l=y43r=0; pos42(tthin,-180); -x43r=x43-.6; x43l=x43+.6; -filldraw stroke z40e{left}...{right}z41e...{down}z42e--z43e; -penlabels(41,42,43,44); -endchar; - - - -cmchar "tamil ngii"; -beginchar(19,1.75x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="g"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -small_iito(13,s,h); -endchar; - -cmchar "tamil ngu"; -beginchar(20,1.5x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="g"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(40,12); y40=y40l=y40r=-d; -filldraw stroke z12e--z40e; -endchar; - -cmchar "tamil nguu"; -beginchar(21,1.85x_height#,x_height#,1.5desc_depth#); -adjust_fit(0,0); -callchar:="g"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(40,12); y40=y40l=y40r=-.5d; -filldraw stroke z12e--z40e; -x22=w-u; y22=.5y40; x21=.6[x12,x22]; y21=.25d; -pos21(tthinner,-90); pos22(tthin,-180); -x23=.7[x1,x12]; bot y23l=-d; pos23(tthick,-270); -x24=x2; y24=-.5d; pos24(tthin,-360); x25=x7; y25=-.25d; pos25(tthinner,-450); -x26=.5[x1,x12]; y26=-.5d; pos26(tthinnest,-540); -filldraw stroke z40e{up}...{right}z21e...{down}z22e...{left}z23e...{up}z24e - ...{right}z25e...{down}z26e; -penlabels(40,21,22,23,24,25,26); -endchar; - -cmchar "tamil e matra"; -beginchar(22,1.4x_height#,body_height#,0); -adjust_fit(0,0); -x1=x3=x5=.6w; x2=x1-1.5u; x4=x1+1.5u; top y3l=bar_height; -pos3(1.2tthin,-90); y2=y4=.5[y1,y3]; bot y1l=.25u; pos1(tthin,90); -pos2(tthin,0); pos4(tmed,-180); y5=y1; pos5(tthin,-270); -x6=u; y6=.5h; pos6(tthinner,-360); top y7l=h; x7=.5w; pos7(1.2tmed,-450); -x8=w-u; y8=x_height; pos8(tthin,-540); x9=x8; y9=0; x9r=x9-.6; x9l=x9+.6; -y9r=y9l=y9; x75=x7; bot y75l=0; pos75(tthin,-280); -filldraw stroke z1e...{up}z2e...{right}z3e...{down}z4e...z5e...{left}z75e - ...{up}z6e...{right}z7e...z8e--z9e; -penlabels(1,2,3,4,5,75,6,7,8,9); -endchar; - -cmchar "tamil long e matra"; -beginchar(23,1.4x_height#,body_height#,0); -adjust_fit(0,0); -x1=x3=x5=x10=x8=x12=w-2.5u; x2=x11=x1-1.5u; x4=x9=x1+1.5u; top y3l=bar_height; -pos3(1.2tthin,-90); y2=y4=.5[y1,y3]; bot y1l=.25u; pos1(tthin,90); -pos2(tthin,0); pos4(tmed,-180); y5=y1; pos5(tthin,-270); -x6=u; y6=.5h; pos6(tthinner,-360); top y7l=h; x7=.55w; pos7(1.2tmed,-450); -x75=x7; bot y75l=0; pos75(tthin,-280); -top y8l=h-.25u; pos8(.8tmed,-460); y9=y11=.5[y8,y10]; y10=y8-y3+y1; -y12=y8; pos9(tthin,-540); pos10(tthin,-630); pos11(tthinner,-720); -pos12(tthinnest,-810); -filldraw stroke z1e...{up}z2e...{right}z3e...{down}z4e...z5e...{left}z75e - ...{up}z6e...{right}z7e...z8e...{down}z9e...{left}z10e...{up}z11e...z12e; -penlabels(1,2,3,4,5,75,6,7,8,9,10,11,12); -endchar; - -cmchar "Tamil c"; -beginchar(24,1.5x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u; -filldraw stroke z25e---z26e; -penlabels(26); -endchar; - -cmchar "Tamil ci"; -beginchar(26,1.7x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u-.2x_height; -filldraw stroke z25e---z26e; -z45=z21; x46=x3; top y46r=h; x47=x48=w-u; y47=y4; y48=0; -pos45(tthinnest,270); pos46(tthick,90); pos47(tthinner,0); -x48l=x48-.5; x48r=x48+.5; y48l=y48r=0; -filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e; -penlabels(26,46,47,48); -endchar; - -cmchar "Tamil cii"; -beginchar(27,1.6x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u-.1x_height; -filldraw stroke z25e---z26e; -z45=z21; x46=x3; top y46r=h; -pos45(tthinnest,270); pos46(tmed,90); -x47=.6[x3,x4]; y47=.9[y3,y46]; x48=x4; y48=.5[y3,y46]; -y49=.3[y3,y46]; x49=x47; x50=.2[x3,x4]; y50=y48; z51=z47; -pos47(.7tmed,45); pos48(tthinner,0); pos49(tthinnest,-90); -pos50(tthinnest,-180); pos51(tthinnest,-225); -filldraw stroke z45e{left}...{right}z46e...z47e...{down}z48e...{left}z49e...{up}z50e...z51e; -penlabels(26,46,47,48,49,50); -endchar; - -cmchar "Tamil cu"; -beginchar(28,1.65x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u; -filldraw stroke z25e---z26e; -x27=x28=.5[x25,x26]; y27=y26; y28=0; pos27(tmed,0); pos28(tmed,0); -filldraw stroke z27e--z28e; -penlabels(26,27,28); -endchar; - -cmchar "Tamil cuu"; -beginchar(29,2x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -w:=1.65x_height; -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u; -filldraw stroke z25e---z26e; -x27=x28=.5[x25,x26]; y27=y26; y28=0; pos27(tmed,0); pos28(tmed,0); -filldraw stroke z27e--z28e; -x40=x6; bot y40r=-d; pos40(tthick,-90); -x41=-.25x_height; y41=y8; x42=x42l=x42r=x2; y42=y2; y42r=y42+.6; y42l=y42-.6; -pos41(tthinner,-180); -x48=x28; y48=0; pos48(tthinner,180); x49=w-u; y49=0; pos49(tthin,0); -filldraw stroke z48e{up}...{down}z49e...{left}z40e...{up}z41e...{right}z42e; -picture V; transform t; t=identity shifted(.35x_height,0); -V=currentpicture transformed t; currentpicture:=V; -penlabels(26,27,28,40,41); -endchar; - -cmchar "tamil ny"; -beginchar(32,2x_height#+2u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=1.7x_height; -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0); -x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); -y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; bot y12l=-d; pos12(tthick,-270); -x13=-.2x_height; y13=.3bar_height; pos13(tthin,-360); x14=x5-.75u; y14=y5; pos14(tthinner,-400); -filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...z14e; -picture V; transform t; t=identity shifted(.3x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "tamil nyi"; -beginchar(34,2.2x_height#+2u#,asc_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=1.7x_height; -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0); -x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); -y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; bot y12l=-d; pos12(tthick,-270); -x13=-.2x_height; y13=.3bar_height; pos13(tthin,-360); x14=x5-.75u; y14=y5; pos14(tthinner,-400); -filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...z14e; -x30=x8; y30=x_height; pos30(tthin,0); x31=x30; top y31l=h; pos31(tthick,-90); -x33=x32=x11+2u; y32=x_height; y33=y33l=y33r=0; pos32(tthin,-180); x33l=x33+.6; -x33r=x33-.6; filldraw stroke z30e{left}...{right}z31e...{down}z32e--z33e; -picture V; transform t; t=identity shifted(.3x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "tamil nyii"; -beginchar(35,2x_height#+2u#,body_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=1.7x_height; -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0); -x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); -y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; bot y12l=-d; pos12(tthick,-270); -x13=-.2x_height; y13=.3bar_height; pos13(tthin,-360); x14=x5-.75u; y14=y5; pos14(tthinner,-400); -filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...z14e; -small_iito(8,s,h); -picture V; transform t; t=identity shifted(.3x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "tamil nyu"; -beginchar(36,2x_height#+u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=1.7x_height; -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0); -x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); -y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; y12=-d; pos12(tthick,-270); -x13=0; y13=-.3d; pos13(tthin,-360); x14=x13+.2u; y14=y13+.2u; pos14(tthin,-450); -x15=x11+1.5u; y15=y14; pos15(tthin,-450); -x16=x15; y16=y15r; pos16(tthick,0); x17=x16; y17=x_height; pos17(tthick,0); -filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...{right}z14e--z15e; -filldraw stroke z16e--z17e; -penlabels(10,11,12,13,14,15,16,17); -endchar; - - -cmchar "tamil nyuu"; -beginchar(37,2.4x_height#+2u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=1.7x_height; -callchar:="e"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0); -x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); -y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; y12=-d; pos12(tthick,-270); -x13=0; y13=-.3d; pos13(tthin,-360); x14=x13+.2u; y14=y13+.2u; pos14(tthin,-450); -x15=x11+2u; y15=y14; pos15(tthin,-450); -x16=x15; y16=y15r; pos16(tthin,0); x17=x16; y17=x_height; pos17(tthin,0); -filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...{right}z14e--z15e; -filldraw stroke z16e--z17e; -w:=2.4x_height+2u; -top y18r=y17; x18=x17l; pos18(tmed,90); y19=y18; x19=w-u; x40r=x19-u; -y40=y17; x21=x40; y21=0; pos19(tmed,90); pos40(tmed,0); pos21(tmed,0); -filldraw stroke z18e--z19e; filldraw stroke z40e--z21e; -penlabels(10,11,12,13,14,15,16,17,18,19,40,21); -endchar; - -cmchar "Tamil t dot"; -beginchar(40,1.75x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="T"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil t dot i"; -beginchar(42,1.75x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="T"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x5=.7[x3,x4]; bot y5r=0; pos5(tthin,270); x6=x5-1.5u; top y6r=h; pos6(tthick,90); -x7=x5; y7=bar_height; pos7(tthin,0); x8=x7; y8=-d; pos8(tthinnest,0); -x40=x1; y40=.6[y1,y2]; -filldraw stroke z5e{z40-z5}...{right}z6e...{down}z7e--z8e; -penlabels(5,6,7,8); endchar; - -cmchar "Tamil t dot ii"; -beginchar(43,1.75x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="T"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x5=.7[x3,x4]; y5=0; pos5(tmed,180); -small_iito(5,s,x_height); -penlabels(5,6,7,8); endchar; - -cmchar "tamil t dot u"; -beginchar(44,1.6x_height#,body_height#,desc_depth#); -adjust_fit(0,0); -x1=x2=.45w; y1=x_height; y2=0; pos1(tmed,0); pos2(tmed,0); -x3r=x2r; y3=y2; pos3(tthinner,0); x5l=w-2.5u; y5=.5[y4,y6]; pos5(tthinner,-180); -x4=.5[x3,x5]; y4=bar_height; pos4(tthin,-90); -x6=x3; bot y6l=-d; pos6(tthick,-270); x7=u; y7=.5[y6,y8]; pos7(tthinner,-360); -x8=x1+u; top y8l=h; pos8(tmed,-450); x9=x10=w-u; y9=y1; pos9(tthin,-540); -y10=y10r=y10l=0; x10l=x10+.6; x10r=x10-.6; -filldraw stroke z1e--z2e; -filldraw stroke z3e{up}...{right}z4e...{down}z5e...{left}z6e...{up}z7e...{right}z8e...{down}z9e--z10e; -penlabels(1,2,4,5,6,7,8,9,10); -endchar; - -cmchar "tamil t dot uu"; -beginchar(45,1.6x_height#,body_height#,desc_depth#); -adjust_fit(0,0); -x1=x2=.45w; y1=x_height; y2=0; pos1(tmed,0); pos2(tmed,0); -x3r=x2r; y3=y2; pos3(tthinner,0); x5l=w-2.5u; y5=.5[y4,y6]; pos5(tthinner,-180); -x4=.5[x3,x5]; y4=bar_height; pos4(tthin,-90); -x6=x3; bot y6l=-d; pos6(tthick,-270); x7=u; y7=.5[y6,y8]; pos7(tthinner,-360); -x8=x1+u; top y8l=h; pos8(tmed,-450); x9=w-3.5u; y9=asc_height-.25u; -x10=x9+1.5u; y10=.5[y9,y11]; x11=x9; y11=y9-4u; x12=x9-1.5u; y12=y10; -x13=x9; y13=y9; pos9(tthin,-470); pos10(tthin,-540); pos11(tthinner,-630); -pos12(tthinnest,-720); x13l=x13r=x13; y13l=y13+.6; y13r=y13-.6; -filldraw stroke z1e--z2e; -filldraw stroke z3e{up}...{right}z4e...{down}z5e...{left}z6e...{up}z7e...{right}z8e - ...z9e...{down}z10e...{left}z11e...{up}z12e...{right}z13e; -penlabels(1,2,4,5,6,7,8,9,10,11,12,13); -endchar; - -cmchar "Tamil n dot"; -beginchar(48,2.8x_height#+u#,x_height#,0); -adjust_fit(0,0); -callchar:="1"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z13e---z14e; -filldraw stroke z15e---z16e; -endchar; - -cmchar "Tamil n.aa"; -beginchar(49,2.8x_height#+3u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="1"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x21=x16; y21=y6; -y22=-d; x22=.4[x1,x21]; -x23=x1; y23=.8x_height; -pos21(tthick,-1080); pos22(tthin,-1170); -y23l+.5=y23r-.5=y23; x23l=x23; x23r=x23-1; -filldraw stroke z13e{right}...{down}z21e...{left}z22e...{right}z23e; -picture V; transform t; t=identity shifted(3u,0); -V=currentpicture transformed t; currentpicture:=V; -%penlabels(21,22,23); -endchar; - -cmchar "Tamil n.i"; -beginchar(50,3x_height#+u#,asc_height#,0); -adjust_fit(0,0); -callchar:="1"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z13e---z14e; -filldraw stroke z15e---z16e; -x17=.5[x13,x14]; top y17l=x_height; x18=x17; top y18r=h; -pos17(tthin,270); pos18(tthick,90); -x20=x19=x14+u; y19=x_height; y20=y20r=y20l=0; -pos19(tthin,0); x20l=x20-.6; x20r=x20+.6; -filldraw stroke z17e{left}...{right}z18e...{down}z19e--z20e; -penlabels(17,18,19,20); -endchar; - -cmchar "Tamil n.ii"; -beginchar(51,3x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="1"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z13e---z14e; -filldraw stroke z15e---z16e; -x17=.5[x13,x14]; top y17l=x_height; pos17(tthin,270); -small_iito(17,s,h); -penlabels(17); -endchar; - -cmchar "Tamil n.u"; -beginchar(52,2.8x_height#+3u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="1"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x21=x16+u; y21=y6; -y22=-d; x22=.6[x1,x21]; -x23=x1; y23=-.3d; x24=x23+.2u; y24=y23+.2u; x25=w-u; y25=y24; -x27r=x26r=x25; y27=x_height; y26=y25r; -pos21(tthin,-1080); pos22(tthick,-1170); -pos23(tthin,-1260); pos24(tthin,-1350); pos25(tthin,-1350); -filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e...{right}z24e--z25e; -pos26(tmed,0); pos27(tmed,0); filldraw stroke z26e--z27e; -penlabels(21,22,23,24,25,27); -endchar; - -cmchar "Tamil n.uu"; -beginchar(53,3.6x_height#+u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=3x_height+u; -callchar:="1"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x21=x16+u; y21=y6; -y22=-d; x22=.6[x1,x21]; -x23=x1; y23=-.3d; x24=x23+.2u; y24=y23+.2u; x25=w-u; y25=y24; -x27r=x26r=x25; y27=x_height; y26=y25r; -pos21(tthin,-1080); pos22(tthick,-1170); -pos23(tthin,-1260); pos24(tthin,-1350); pos25(tthin,-1350); -filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e...{right}z24e--z25e; -pos26(tmed,0); pos27(tmed,0); filldraw stroke z26e--z27e; -w:=3.6x_height+u; x28=x27l; top y28r=y27; y29=y28; y30=y27; x29=w-u; x30=x29-2u; -x31=x30; y31=0; -pos28(tthin,90); pos29(tthin,90); pos30(tthin,0); pos31(tthin,0); -filldraw stroke z28e--z29e; filldraw stroke z30e--z31e; -penlabels(21,22,23,24,25,27,28,29,30,31); -endchar; - - - -cmchar "Tamil n dot ai"; -beginchar(54,3.8x_height#+u#,asc_height#,0); -adjust_fit(0,0); -callchar:="1"; -dodraw:=false; -tspecs; -dodraw:=true; -h:=oldh; w:=oldw; d:=oldd; -aipoints; -z211=.5[z210,z2]; pos211(tthin,135); -filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e - ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e - ...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e - ...{down}z6e...{left}z7e...{up}z8e...{right}z9e...{down}z10e - ...{left}z11e...{up}z12e...{right}z13e---z14e; -filldraw stroke z15e---z16e; -picture V; transform t; t=identity shifted(x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "Tamil t"; -beginchar(56,1.7x_height#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -% -% finish with tail for t shape -cloney(61,25); x61r=x61l=x61=.5[x3,x4]; -rt x62r=w-u; y62=.5y61; pos62(tthick,0); -y63=y64=-.3d; lft y66l=-d; y65=.4[y64,y66]; -x63=x61; x64=x2; x65=u; x66=.7[x65,x64]; -pos63(tthin,-90); pos64(tthin,-90); pos65(tthinner,0); -pos66(tthick,45); -%filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e---z64e{left}...{down}z65e..z66e; -filldraw stroke z66e...{up}z65e...{right}z64e---z63e{right}...{up}z62e...{left}z61e---z25e; -penlabels(45,47,48,61,62,63,64,65,66); -endchar; - - -cmchar "Tamil ti"; -beginchar(58,1.85x_height#,asc_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -% -% draw the i loop -z45=z21; x46=x3; top y46r=h; x47=x48=w-u; y47=y4; y48=0; -pos45(tthinnest,270); pos46(tthick,90); pos47(tthinner,0); -x48l=x48-.5; x48r=x48+.5; y48l=y48r=0; -filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e; -% -% finish with tail for t shape -cloney(61,25); x61r=x61l=x61=.5[x3,x4]; -rt x62r=.5[x4,x48]; % note this is based on position of i-loop -y62=.5y61; pos62(tthick,0); -y63=y64=-.3d; lft y66l=-d; y65=.4[y64,y66]; -x63=x61; x64=x2; x65=u; x66=.7[x65,x64]; -pos63(tthinner,-90); pos64(tthinner,-90); pos65(tthinner,0); -pos66(tthick,45); -%filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e---z64e{left}...{down}z65e..z66e; -filldraw stroke z66e...{up}z65e...{right}z64e---z63e{right}...{up}z62e...{left}z61e---z25e; -penlabels(45,47,48,61,62,63,64,65,66); -endchar; - -cmchar "Tamil tii"; -beginchar(59,1.65x_height#,asc_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -% -% do the upper loop for ii -z45=z21; x46=x3; top y46r=h; -pos45(tthinnest,270); pos46(tmed,90); -x47=.6[x3,x4]; y47=.9[y3,y46]; x48=x4; y48=.5[y3,y46]; -y49=.3[y3,y46]; x49=x47; x50=.2[x3,x4]; y50=y48; z51=z47; -pos47(.7tmed,45); pos48(tthinner,0); pos49(tthinnest,-90); -pos50(tthinnest,-180); pos51(tthinnest,-225); -filldraw stroke z45e{left}...{right}z46e...z47e...{down}z48e...{left}z49e...{up}z50e...z51e; -% -% finish with tail for t shape -cloney(61,25); x61r=x61l=x61=.5[x3,x4]; -rt x62r=w-u; y62=.5y61; pos62(tthick,0); -y63=y64=-.3d; lft y66l=-d; y65=.4[y64,y66]; -x63=x61; x64=x2; x65=u; x66=.7[x65,x64]; -pos63(tthin,-90); pos64(tthin,-90); pos65(tthinner,0); -pos66(tthick,45); -%filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e---z64e{left}...{down}z65e..z66e; -filldraw stroke z66e...{up}z65e...{right}z64e---z63e{right}...{up}z62e...{left}z61e---z25e; -penlabels(45,47,48,49,50,61,62,63,64,65,66); -endchar; - -cmchar "Tamil tu"; -beginchar(60,2.2x_height#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=w-2u; -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -% -% finish with tail for t shape -cloney(61,25); x61r=x61l=x61=.5[x3,x4]; -rt x62r=.35[x4,x90]; y62=.5y61; pos62(tthick,0); -x63=x7; y63=-d; x64=x8-2u; y64=.85[y63,y65]; y66=y65=-.3d; -x65=.25[x64,x8]; x66=w-u;rt x67r=x66; y67=bot y66l; x90=x67; y90=x_height; -pos63(tthin,-90); pos64(tthinner,-180); pos65(tthinner,-270); -pos66(tthinner,-270); pos67(.8tthick,0); pos90(.8tthick,0); -filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e...{up}z64e - ...{right}z65e---z66e; -filldraw stroke z67e---z90e; -picture V; transform t; t= identity shifted(2u,0); -V=currentpicture transformed t; currentpicture:=V; -penlabels(61,62,63,64,65,66,90); -endchar; - -cmchar "Tamil tuu"; -beginchar(61,2.6x_height#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -w:=2.2x_height-2u; -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -% -% finish with tail for t shape -cloney(61,25); x61r=x61l=x61=.5[x3,x4]; -rt x62r=.35[x4,x90]; y62=.5y61; pos62(tthick,0); -x63=x7; y63=-d; x64=x8-2u; y64=.85[y63,y65]; y66=y65=-.3d; -x65=.25[x64,x8]; x66=w-u;rt x67r=x66; y67=bot y66l; x90=x67; y90=x_height; -pos63(tthin,-90); pos64(tthinner,-180); pos65(tthinner,-270); -pos66(tthinner,-270); pos67(tthin,0); pos90(tthin,0); -filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e...{up}z64e - ...{right}z65e---z66e; -filldraw stroke z67e---z90e; -w:=2.6x_height-2u; -x201=x90l; top y201r=x_height; y202=y201; x202=w-u; pos201(tthin,90); -pos202(tthin,90); x203=.6[x201,x202]; y203=x_height; x204=x203; -y204=0; pos203(tmed,0); pos204(tmed,0); -filldraw stroke z201e--z202e; filldraw stroke z203e--z204e; -picture V; transform t; t= identity shifted(2u,0); -V=currentpicture transformed t; currentpicture:=V; -penlabels(61,62,63,64,65,66,90); -endchar; - -cmchar "Tamil n"; -beginchar(64,1.5x_height#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="n"; -tspecs; h:= oldh; w:=oldw; d:=oldd; -%draw the end loop -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e; -endchar; - -cmchar "Tamil ni"; -beginchar(66,1.75x_height#,asc_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="n"; -tspecs; h:= oldh; w:=oldw; d:=oldd; -%draw the end loop -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e; -% draw the i loop -x45=.8[x5,x4]; top y45r=x_height; x46=x45; top y46l=h; x47=x48=w-u; y47=y4; y48=0; -pos45(tthinnest,90); pos46(tthick,-90); pos47(tthinner,-180); -x48l=x48+.65; x48r=x48-.65; y48l=y48r=0; -filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e; -penlabels(45,46,47,48); -endchar; - -cmchar "Tamil nii"; -beginchar(67,1.65x_height#,body_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="n"; -tspecs; h:= oldh; w:=oldw; d:=oldd; -%draw the end loop -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e; -x31=x9l; y31=x_height; small_iito(31,s,h); -endchar; - -cmchar "Tamil nu"; -beginchar(68,1.8x_height#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="n"; -tspecs; h:= oldh; w:=oldw; d:=oldd; -%draw the end loop -x70=.5[x1,x6]; y70=-d; x72=w-u; y72=y82; rt x73r=x72; -y73=y72; x74=x73; y74=x_height; -z81=z12; z82=z11; pos70(tthinner,-90); pos81(tthinner,-180); -pos82(tthinner,-270); pos72(tthinner,-270); -pos73(.8tthick,0); pos74(.8tthick,0); -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z70e...{up}z81e - ...{right}z82e---z72e; -filldraw stroke z73e--z74e; -penlabels(70,72,73,74,81,82); -endchar; - -cmchar "Tamil nuu"; -beginchar(69,2.1x_height#,x_height#,.5x_height#); -adjust_fit(0,0); -callchar:="n"; -tspecs; h:= oldh; w:=oldw; d:=oldd; -%draw the end loop -x70=.5[x1,x6]; y70=-d; x72=w-3u; y72=y82; rt x73r=x72; -y73=y72; x74=x73; y74=x_height; -z81=z12; z82=z11; pos70(tthinner,-90); pos81(tthinner,-180); -pos82(tthinner,-270); pos72(tthinner,-270); -pos73(tthinner,0); pos74(tthinner,0); -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z70e...{up}z81e - ...{right}z82e---z72e; -filldraw stroke z73e--z74e; -top y90r=x_height; x90=lft x73l; x91=w-u; y91=y90; -pos90(tthinner,90); pos91(tthinner,90); filldraw stroke z90e--z91e; -rt x92r=x91; y92=x_height; y93=0; x93=x92; -pos92(.8tthick,0); pos93(.8tthick,0); filldraw stroke z92e--z93e; -penlabels(70,72,73,74,81,82,90,91,92,93); -endchar; - -cmchar "Tamil p"; -beginchar(72,1.4x_height#+u#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="p"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil pi"; -beginchar(74,1.5x_height#+2u#,asc_height#,0); -adjust_fit(0,0); -callchar:="p"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=x6; top y7l=h; pos7(tthick,-90); x8=x9=w-u; y8=x_height; y9=y9r=y9l=0; -x9r=x9-.6; x9l=x9+.6; pos8(tthin,-180); -filldraw stroke z6e{left}...{right}z7e...{down}z8e--z9e; -penlabels(7,8,9); endchar; - -cmchar "Tamil pii"; -beginchar(75,1.4x_height#+u#,body_height#,0); -adjust_fit(0,0); -callchar:="p"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=x6; x7r=x6l; x7l=x6r; cloney(7,6); -small_iito(7,s,h); -endchar; - -cmchar "Tamil pu"; -beginchar(76,1.4x_height#+u#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="p"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(7,5); y7r=y7l=y7=-d; filldraw stroke z5e--z7e; -endchar; - -cmchar "Tamil puu"; -beginchar(77,1.4x_height#+4u#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="p"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(7,5); y7r=y7l=y7=-.5d; filldraw stroke z5e--z7e; -x8=x7; y8=y7; pos8(tthin,0); x10=w-u; y10=.5[y9,y11]; pos10(tthin,-180); -x9=.5[x8,x10]; top y9l=0; pos9(tthin,-90); x11=.5[x1,x10]; y11=-d; -x12=x1; y12=-.4d; x13=.25[x1,x4]; y13=-.2d; x14=.5[x1,x4]; y14=-.45d; -pos11(tthick,-270); pos12(tthin,-360); pos13(tthin,-450); pos14(tthinner,-540); -filldraw stroke z8e{up}...{right}z9e...{down}z10e...{left}z11e...{up}z12e - ...{right}z13e...{down}z14e; -endchar; - -cmchar "Tamil m"; -beginchar(80,1.6x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil mi"; -beginchar(82,1.85x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x10=x6; top y10l=h; y11=x_height; x12=x11=w-u; y12=0; -pos10(tthick,-90); pos11(tthin,-180); y12r=y12l=y12; -x12r=x12-.6; x12l=x12+.6; -filldraw stroke z6e{left}...{right}z10e...{down}z11e--z12e; -penlabels(10,11,12); endchar; - -cmchar "Tamil mii"; -beginchar(83,1.6x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x10=x6; y10l=x_height; x10r=x10-.6; x10l=x10+.6; y10=y10l-.6; y10r=y10-.6; -small_iito(10,s,h); -endchar; - -cmchar "Tamil mu"; -beginchar(84,2.2x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -w:=1.6x_height; -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x9=x8; y9=0; pos9(tthick,-180); -x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270); -x11=-.6x_height+u; y11=.5bar_height; x12=x1-.5u; y12l=h; -pos11(tthin,-360); x12l=x12r=x12; y12=y12l-.6; y12r=y12-.6; -filldraw stroke z9e{down}...{left}z10e...{up}z11e...{right}z12e; -picture V; transform t; t=identity shifted(.6x_height,0); -V=currentpicture transformed t; currentpicture:= V; -endchar; - - -cmchar "Tamil muu"; -beginchar(85,2.2x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -w:=1.6x_height; -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x9=x8; y9=0; pos9(tthick,-180); -x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270); -x11=-.6x_height+u; y11=.5bar_height; x12=x1-2.5u; y12l=h; -pos11(tthin,-360); pos12(tthinnest,-450); -x13=x12+u; y14=y12-u; x14=x13-2u; y14=y13; -pos13(tthinnest,-540); x14l=x14-.6; x14r=x14+.6; y14r=y14l=y14; -filldraw stroke z9e{down}...{left}z10e...{up}z11e...{right}z12e...{down}z13e...{z14-z2}z14e; -picture V; transform t; t=identity shifted(.6x_height,0); -V=currentpicture transformed t; currentpicture:= V; -endchar; - -cmchar "Tamil y"; -beginchar(88,1.5x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="y"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil yi"; -beginchar(90,1.9x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="y"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x20=x9; y20l=h; pos20(tthick,-90); x21=w-u; y21=x_height; pos21(tthin,-180); -x22=x21; y22=y22l=y22r=0; x22r=x22-.6; x22l=x22+.6; -filldraw stroke z9e{left}...{right}z20e...{down}z21e--z22e; -penlabels(20,21,22); endchar; - -cmchar "Tamil yii"; -beginchar(91,1.65x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="y"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x20=x9; y20=y9; pos20(tthin,180); -small_iito(20,s,h); -endchar; - -cmchar "Tamil yu"; -beginchar(92,1.5x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="y"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(20,10); y20=y20l=y20r=-d; -filldraw stroke z10e--z20e; -penlabels(20); endchar; - -cmchar "Tamil yuu"; -beginchar(93,1.75x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="y"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(20,10); y20=y20l=y20r=-.5d; -filldraw stroke z10e--z20e; -x22=w-u; y22=0; x21=.6[x10,x22]; y21=.25d; -pos21(tthinner,-90); pos22(tthin,-180); -x23=.7[x7,x8]; y23=-1.2d; pos23(tthick,-270); -x24=x2; y24=-.5d; pos24(tthin,-360); x25=x7; y25=-.25d; pos25(tthinner,-450); -x26=.5[x7,x8]; y26=-.5d; pos26(tthinnest,-540); -filldraw stroke z20e{up}...{right}z21e...{down}z22e...{left}z23e...{up}z24e - ...{right}z25e...{down}z26e; -penlabels(20,21,22,23,24,25,26); endchar; - -cmchar "Tamil r"; -beginchar(96,.9x_height#+2u#,x_height#,.75desc_depth#); -adjust_fit(0,0); -callchar:="r2"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=x6; bot y7l=y6; x8=x1; bot y8l=-d; -pos7(tthin,90); pos8(tthin,90); -filldraw stroke z7e--z8e; -penlabels(7,8); endchar; - -cmchar "Tamil aa matra"; -beginchar(97,.9x_height#+2u#,x_height#,0); -adjust_fit(0,0); -callchar:="r2"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil ri"; -beginchar(98,.9x_height#+3.5u#,asc_height#,0); -adjust_fit(0,0); -callchar:="r2"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=.5[x5,x4]; y7=y5; x8=x7; top y8r=h; x9=x10=w-u; y9=x_height; y10=0; -pos7(tthinner,-90); pos8(tthick,90); pos9(tthin,0); -x10l=x10-.6; x10r=x10+.6; y10r=y10l=0; -filldraw stroke z7e{left}...{right}z8e...{down}z9e--z10e; -penlabels(7,8,9,10); endchar; - -cmchar "Tamil rii"; -beginchar(99,.9x_height#+2.5u#,body_height#,0); -adjust_fit(0,0); -callchar:="r2"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=.5[x5,x4]; y7=x_height; pos7(tthinner,-90); -small_iito(7,s,body_height); -penlabels(7,8,9,10); endchar; - -cmchar "Tamil ru"; -beginchar(100,.9x_height#+7u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="r2"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=x6; y7=y6; x8=.7[x5,x4]; top y8l=bar_height; pos8(tthick,-90); -pos7(tthin,0); x9=1.4[x5,x4]; y9=0; pos9(tthin,-180); -x10=.7[x1,x6]; bot y10l=-d; pos10(tthinner,-270); x11=x1-4u; y11=.5bar_height; -pos11(tthinner,-360); x12=x2-u; top y12l=x_height; pos12(tthinnest,-450); -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{up}z11e...{right}z12e; -picture V; transform t; t=identity shifted(3.75u,0); -V=currentpicture transformed t; currentpicture:= V; -penlabels(7,8,9,10,11,12); endchar; - - -cmchar "Tamil ruu"; -beginchar(101,.9x_height#+9u#,x_height#,1.2desc_depth#); -adjust_fit(0,0); -callchar:="r2"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x7=x6; y7=y6; x8=.7[x5,x4]; top y8l=bar_height; pos8(tthick,-90); -pos7(tthin,0); x9=1.4[x5,x4]; y9=0; pos9(tthin,-180); -x10=.7[x1,x6]; bot y10l=-d; pos10(tthinner,-270); x11=x1-6u; y11=.5bar_height; -pos11(tthinner,-360); x12=.5[x11,x2]; top y12l=x_height; pos12(tthin,-450); -x13=.8[x11,x2]; y13=y12-1.5u; x14=.3[x11,x2]; y14=y12-3u; -pos13(tthin,-540); pos14(tthinner,-600); -filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{up}z11e...{right}z12e - ...{down}z13e...z14e; -picture V; transform t; t=identity shifted(5.75u,0); -V=currentpicture transformed t; currentpicture:= V; -penlabels(7,8,9,10,11,12); endchar; - - -cmchar "Tamil l"; -beginchar(104,1.4x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="l"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x11=x9; top y11r=h; x12=x11+.5u; y12=y11-.25u; pos11(tthick,90); pos12(.7tthick,60); -x13=x12; y13=x12-2u; pos13(tthin,-90); x14r=x14l=x14=x12; y14=y12; y14r=y14+1; y14l=y14-1; -filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e - ...{left}z10e; -endchar; - -cmchar "Tamil li"; -beginchar(106,1.6x_height#+2u#,body_height#,0); -adjust_fit(0,0); -callchar:="l"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x11=x10; top y11r=h; pos11(tthick,90); x13=x12=w-u; y12=x_height; -y13r=y13l=y13=0; x13l=x13-.6; x13r=x13+.6; pos12(tthin,0); -filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e - ...{left}z10e...{right}z11e...{down}z12e--z13e; -%filldraw stroke z10e...{right}z11e...{down}z12e--z13e; -penlabels(11,12,13); -endchar; - -cmchar "Tamil lii"; -beginchar(107,1.5x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="l"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x11=x9; top y11r=h; x12=x11+.5u; y12=y11-.25u; pos11(tthick,90); pos12(.7tthick,60); -x13=x12; y13=x12-2u; pos13(tthin,-90); x14r=x14l=x14=x12; y14=y12; y14r=y14+1; y14l=y14-1; -filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e - ...{left}z10e...{right}z11e..z12e...{left}z13e...{right}z14e; -%small_iito(10,s,h); -endchar; - -cmchar "Tamil lu"; -beginchar(108,2x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="l"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e - ...{left}z10e; -z21=z8; pos21(tthin,0); x22=.15[x5,x21]; bot y22r=-d; pos22(tthick,-90); -x23=x81-u; y23=-.4d; x24=x23+.5u; y24=y23+.5u; pos23(tthin,-180); pos24(tthin,-270); -x25=w-u; y25=y24; pos25(tthin,-270); x26r=x25; x27=x26; pos26(tmed,0); -y26=y25l; y27=x_height; pos27(tmed,0); -filldraw stroke z21e{down}...{left}z22e...{up}z23e...{right}z24e--z25e; -filldraw stroke z26e--z27e; -penlabels(21,22,23,24,25,26,27); -endchar; - -cmchar "Tamil luu"; -beginchar(109,2.4x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -w:=1.9x_height; -callchar:="l"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e - ...{left}z10e; -z21=z8; pos21(tthin,0); x22=.15[x5,x21]; bot y22r=-d; pos22(tthick,-90); -x23=x81-u; y23=-.4d; x24=x23+.5u; y24=y23+.5u; pos23(tthin,-180); pos24(tthin,-270); -x25=w-u; y25=y24; pos25(tthin,-270); x26r=x25; x27=x26; pos26(tthin,0); -y26=y25l; y27=x_height; pos27(tthin,0); -filldraw stroke z21e{down}...{left}z22e...{up}z23e...{right}z24e--z25e; -filldraw stroke z26e--z27e; -w:=2.4x_height; -x28=x27l; y28r=y27; y29=y28; x29=w-u; pos28(tthin,90); pos29(tthin,90); -filldraw stroke z28e--z29e; -x31=x30=.65[x28,x29]; y30=y27; y31=0; pos30(tmed,0); pos31(tmed,0); -filldraw stroke z30e--z31e; -penlabels(21,22,23,24,25,26,27,28,29,30); -endchar; - -cmchar "Tamil lai"; -beginchar(110,2.8x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="l"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; aipoints; -z211=.5[z210,z2]; pos211(tthin,135); -filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e - ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e - ...{right}z2e...{down}z3e...{left}z4e...{up}z81e...{right}z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e...{left}z10e; -picture V; transform t; t=identity shifted(x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - - - -cmchar "Tamil v"; -beginchar(112,1.4x_height#+2u#,x_height#,0); -adjust_fit(0,0); -callchar:="v"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil vi"; -beginchar(114,1.65x_height#+2u#,asc_height#,0); -adjust_fit(0,0); -callchar:="v"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; x21r=x10l; x21l=x10r; x21=x10; cloney(21,10); -x11=x10; top y11r=h; pos11(tthick,90); x13=x12=w-u; y12=x_height; -y13r=y13l=y13=0; x13l=x13-.6; x13r=x13+.6; pos12(tthin,0); -filldraw stroke z21e{left}...{right}z11e...{down}z12e--z13e; -penlabels(11,12,13); -endchar; - -cmchar "Tamil vii"; -beginchar(115,1.5x_height#+u#,body_height#,0); -adjust_fit(0,0); -callchar:="v"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x21r=x10l; x21l=x10r; x21=x10; cloney(21,10); small_iito(21,s,h); -endchar; - -cmchar "Tamil vu"; -beginchar(116,1.5x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="v"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(11,9); y11r=y11l=y11=-d; filldraw stroke z9e--z11e; -penlabels(11); endchar; - -cmchar "Tamil vuu"; -beginchar(117,1.5x_height#+3u#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="v"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(11,9); y11r=y11l=y11=-.5d; filldraw stroke z9e--z11e; -x18=x11; y18=y11; pos18(tthin,0); x20=w-u; y20=.5[y19,y21]; pos20(tthin,-180); -x19=.5[x18,x20]; top y19l=0; pos19(tthin,-90); x21=.5[x1,x20]; y21=-d; -x22=x1; y22=-.4d; x23=.25[x1,x9]; y23=-.2d; x24=.5[x1,x9]; y24=-.45d; -pos21(tthick,-270); pos22(tthin,-360); pos23(tthin,-450); pos24(tthinner,-540); -filldraw stroke z18e{up}...{right}z19e...{down}z20e...{left}z21e...{up}z22e - ...{right}z23e...{down}z24e; -penlabels(11); endchar; - -cmchar "Tamil z"; -beginchar(120,1.6x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x9=x9r=x9l=x5; y9=-.3d; y9l=y9+.6;y9r=y9-.6; filldraw stroke z8e{down}...{right}z9e; -x90l=x9l; y90l=y9l; pos90(tthin,-170); -x10=.4[x1,x5]; bot y10r=-d; x11=x1; y11=.3[y9,y10]; pos10(tthick,-90); pos11(tthin,-180); -x12=.25[x2,x5]; y12=.5[y2,y11]; pos12(tthinner,40); -filldraw stroke z9e{left}...{left}z10e...{up}z11e...z12e; -penlabels(9,10,11,12); -endchar; - -cmchar "Tamil zi"; -beginchar(122,1.9x_height#,asc_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x9=x9r=x9l=x5; y9=-.3d; y9l=y9+.6;y9r=y9-.6; filldraw stroke z8e{down}...{right}z9e; -x90l=x9l; y90l=y9l; pos90(tthin,-170); -x10=.4[x1,x5]; bot y10r=-d; x11=x1; y11=.3[y9,y10]; pos10(tthick,-90); pos11(tthin,-180); -x12=.25[x2,x5]; y12=.5[y2,y11]; pos12(tthinner,40); -filldraw stroke z9e{left}...{left}z10e...{up}z11e...z12e; -x30=x6; top y30l=h; y31=x_height; x32=x31=w-u; y32=0; -pos30(tthick,-90); pos31(tthin,-180); y32r=y32l=y32; -x32r=x32-.6; x32l=x32+.6; -filldraw stroke z6e{left}...{right}z30e...{down}z31e--z32e; -penlabels(9,10,11,12,30,31,32); -endchar; - -cmchar "Tamil zii"; -beginchar(123,1.6x_height#,body_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x9=x9r=x9l=x5; y9=-.3d; y9l=y9+.6;y9r=y9-.6; filldraw stroke z8e{down}...{right}z9e; -x90l=x9l; y90l=y9l; pos90(tthin,-170); -x10=.4[x1,x5]; bot y10r=-d; x11=x1; y11=.3[y9,y10]; pos10(tthick,-90); pos11(tthin,-180); -x12=.25[x2,x5]; y12=.5[y2,y11]; pos12(tthinner,40); -filldraw stroke z9e{left}...{left}z10e...{up}z11e...z12e; -small_iito(6,s,h); -penlabels(9,10,11,12); -endchar; - -cmchar "Tamil zu"; -beginchar(124,2.2x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(88,8); y88r=y88l=y88=-.5d; filldraw stroke z8e--z88e; -x9=x88; y9=y88; pos9(tthin,-360); x99=x4; y99=y9; pos99(tthin,-180); -x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270); -x11=-.6x_height+u; y11=.5bar_height; x12=x1-.5u; y12l=h; -pos11(tthin,-360); x12l=x12r=x12; y12=y12l-.6; y12r=y12-.6; -filldraw stroke z9e{up}...{down}z99e...{left}z10e...{up}z11e...{right}z12e; -picture V; transform t; t=identity shifted(.6x_height,0); -V=currentpicture transformed t; currentpicture:= V; -endchar; - -cmchar "Tamil zuu"; -beginchar(125,2.2x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="m"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -clonex(88,8); y88r=y88l=y88=-.5d; filldraw stroke z8e--z88e; -x9=x88; y9=y88; pos9(tthin,-360); x99=x4; y99=y9; pos99(tthin,-180); -x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270); -x11=-.6x_height+u; y11=.5bar_height; x12=.5[x11,x1]; top y12l=h; -pos11(tthin,-360); pos12(tthin,-450); x13=.8[x11,x1]; y13=y12-1.5u; -pos13(tthin,-540); x14=.3[x11,x1]; y14=y13-1.5u; pos14(tthinner,-600); -filldraw stroke z9e{up}...{down}z99e...{left}z10e...{up}z11e...{right}z12e - ...{down}z13e...z14e; -picture V; transform t; t=identity shifted(.6x_height,0); -V=currentpicture transformed t; currentpicture:= V; -endchar; - - - -cmchar "Tamil l dot"; -beginchar(128,1.75x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="L"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "Tamil l dot i"; -beginchar(130,1.75x_height#+2u#,asc_height#,0); -adjust_fit(0,0); -callchar:="L"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y13=y12; x13=x12r; x14=x13; top y14r=h; x15=x16=w-u; y15=y12; y16l=y16r=y16=0; -x16l=x16-.6; x16r=x16+.6; pos13(tthin,180); pos14(tthick,90); pos15(tthin,0); -filldraw stroke z13e{left}...{right}z14e...{down}z15e--z16e; -penlabels(14,15,16); endchar; - -cmchar "Tamil l dot ii"; -beginchar(131,1.75x_height#+u#,body_height#,0); -adjust_fit(0,0); -callchar:="L"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y13=y12; x13=x12r; -pos13(tthin,0); -small_iito(13,s,h); -endchar; - -cmchar "Tamil l dot u"; -beginchar(132,2.05x_height#+3u#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="L"; -tspecs; -h:=oldh; w:=2.05x_height; d:=oldd; -x31=x11; y31=0; pos31(tthin,0); x33=w-u; y33=.5[y32,y34]; pos33(tthin,-180); -x32=.5[x31,x33]; y32=bar_height; pos32(tthin,-90); -x35=x1-3u; y35=.5[y1,y2]; pos35(tthin,-360); x34=.5[x35,x33]; bot y34l=-d; -pos34(tthick,-270); x36=x1; y36=y5; x36r=x36+.6; x36l=x36-.6; -y36r=y36-.6; y36l=y36+.6; -filldraw stroke z31e{up}...{right}z32e...{down}z33e...{left}z34e...{up}z35e..{right}z36e; -picture V; transform t; t=identity shifted(3u,0); V=currentpicture transformed t; -currentpicture:=V; -endchar; - -cmchar "Tamil l dot uu"; -beginchar(133,2.05x_height#+3u#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="L"; -tspecs; -h:=oldh; w:=2.05x_height; d:=oldd; -x31=x11; y31=0; pos31(tthin,0); x33=w-u; y33=.5[y32,y34]; pos33(tthin,-180); -x32=.5[x31,x33]; y32=bar_height; pos32(tthin,-90); -x35=x1-3u; y35=.5[y1,y2]; pos35(tthin,-360); x34=.5[x35,x33]; bot y34l=-d; -pos34(tthick,-270); x36=.5[x35,x1]; top y36l=h; pos36(tthin,-450); -x37=.9[x35,x1]; y37=y36-u; pos37(tthin,-540); x38=.3[x35,x1]; y38=y37-u; -pos38(tthinner,-600); -filldraw stroke z31e{up}...{right}z32e...{down}z33e...{left}z34e...{up}z35e..{right}z36e - ...{down}z37e...z38e; -picture V; transform t; t=identity shifted(3u,0); V=currentpicture transformed t; -currentpicture:=V; -endchar; - -cmchar "Tamil l dot ai"; -beginchar(134,2.75x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="L"; -dodraw:=false; -tspecs; -dodraw:=true; -h:=oldh; w:=oldw; d:=oldd; -aipoints; -z211=.5[z210,z2]; pos211(tthin,135); -filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e - ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e - ...{right}z2e...{down}z3e...{left}z4e...{up}z1e...{right}z5e...{down}z6e; -filldraw stroke z7e---z8e; filldraw stroke z9e---z10e; -filldraw stroke z11e---z12e; -picture V; transform t; t=identity shifted(x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "Tamil alv. r"; -beginchar(136,1.3x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="R"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z4e{up}...{right}z6e...{down}z7e..z8e..z9e...{down}z12e..z10e; -endchar; - -cmchar "Tamil alv. raa"; -beginchar(137,1.3x_height#+3u#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="R"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x77=x7; y77=.4[y6,y7]; pos77(tthin,-180); -x7:=x7-u; x7r:=x7r-u; x7l:=x7l-u; -x88=x77; y88=0; pos88(tthin,-180); -x31=x5; bot y31l=-d; x32=-2u; y32=.3bar_height; -pos31(tthick,-270); pos32(tthin,-360); -x33=x33r=x33l=x11-.5u; y33=y11; y33l=y33+.6; y33r=y33-.6; -filldraw stroke z4e{up}...{right}z6e...{down}z77e...{down}z7e...{down}z88e...{left}z31e...{up}z32e...z33e; -picture V; transform t; t=identity shifted(3u,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "Tamil alv. ri"; -beginchar(138,1.7x_height#,asc_height#,desc_depth#); -adjust_fit(0,0); -callchar:="R"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z4e{up}...{right}z6e...{down}z7e..z8e..z9e...{down}z12e..z10e; -x77=x6; top y77r=h; pos77(tthick,-270); -x78=w-u; y78=x_height; x79=x78; y79=y79r=y79l=0; -x79r=x79+.6; x79l=x79-.6; pos78(tthin,-360); -filldraw stroke z6e{left}...{right}z77e...{down}z78e--z79e; -endchar; - -cmchar "Tamil alv. rii"; -beginchar(139,1.3x_height#,body_height#,desc_depth#); -adjust_fit(0,0); -callchar:="R"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z4e{up}...{right}z6e...{down}z7e..z8e..z9e...{down}z12e..z10e; -small_iito(6,s,h); -endchar; - -cmchar "Tamil alv. ru"; -beginchar(140,1.75x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="R"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x77=x7; y77=y7; pos77(tthin,-180); -x31=x5; bot y31l=-d; x32=x1; y32=-.5d; y33=y32+.5u; x33=x32+.5u; x34=w-u; y34=y33; -pos31(tthick,-270); pos32(tthin,-360); pos33(tthin,-450); pos34(tthin,-450); -filldraw stroke z4e{up}...{right}z6e...{down}z77e...{left}z31e...{up}z32e...{right}z33e--z34e; -x35r=x34; y35=y34r; x36=x35; y36=x_height; pos35(tthick,0); pos36(tthick,0); -filldraw stroke z35e--z36e; -endchar; - -cmchar "Tamil alv. ruu"; -beginchar(141,2x_height#,x_height#,1.4desc_depth#); -adjust_fit(0,0); -callchar:="R"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x77=x7; y77=y7; pos77(tthin,-180); -x31=x5; bot y31l=-d; x32=x1; y32=-.5d; y33=y32+.5u; x33=x32+.5u; x34=w-3.3u; y34=y33; -pos31(tthick,-270); pos32(tthin,-360); pos33(tthin,-450); pos34(tthin,-450); -filldraw stroke z4e{up}...{right}z6e...{down}z77e...{left}z31e...{up}z32e...{right}z33e--z34e; -x35r=x34; y35=y34r; x36=x35; y36=x_height; pos35(tthin,0); pos36(tthin,0); -filldraw stroke z35e--z36e; -x37=x36l; top y37r=x_height; x38=w-.3u; y38=y37; pos37(tthin,90); pos38(tthin,90); -filldraw stroke z37e--z38e; -x39r=x38-.7u; y39=x_height; x40=x39; y40=0; pos39(tthick,0); pos40(tthick,0); -filldraw stroke z39e--z40e; -endchar; - - -cmchar "Tamil 2loop n"; -beginchar(144,2x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="N"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z13e---z14e; -filldraw stroke z15e---z16e; -endchar; - -cmchar "Tamil 2loop naa"; -beginchar(145,2x_height#+3u#,x_height#,desc_depth#); -adjust_fit(0,0); -w:=2x_height; -callchar:="N"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x21=x16+u; y21=y6; -y22=-d; x22=.4[x1,x21]; -x23=x1; y23=.8x_height; -pos21(tthick,-1080); pos22(tthin,-1170); -y23l+.5=y23r-.5=y23; x23l=x23; x23r=x23-1; -filldraw stroke z13e{right}...{down}z21e...{left}z22e...{right}z23e; -picture V; transform t; t=identity shifted(3u,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - - - -cmchar "Tamil 2loop ni"; -beginchar(146,2.25x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="N"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z13e---z14e; -filldraw stroke z15e---z16e; -x21=x16; y21=x_height; pos21(tthin,0); x22=x21; top y22l=h; pos22(tthick,-90); -x23=w-u; y23=x_height; x24=x23; y24=y24l=y24r=0; x24r=x24-.6; x24l=x24+.6; -pos23(tthin,-180); -filldraw stroke z21e{left}...{right}z22e...{down}z23e--z24e; -penlabels(22,23,24); -endchar; - -cmchar "Tamil 2loop nii"; -beginchar(147,2x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="N"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -filldraw stroke z13e---z14e; -filldraw stroke z15e---z16e; -small_iito(16,s,h); -endchar; - -cmchar "Tamil 2loop nu"; -beginchar(148,2.5x_height#+3u#,x_height#,desc_depth#); -adjust_fit(0,0); -w:=2x_height; -callchar:="N"; -tspecs; -h:=oldh; w:=2.5x_height; d:=oldd; -x21=x16+u; y21=y6; -y22=-d; x22=.4[x1,x21]; -x23=x1-3u; y23=-.43d; x24=x23+u; y24=-.25d; -pos21(tthick,-1080); pos22(tthin,-1170); -pos23(tthin,-1260); pos24(tthin,-1350); -y25=y24; x25=w-2u; pos25(tthin,-1350); -rt x26r=x25; y26=y25; pos26(tthick,0); x27=x26; y27=h; pos27(tthick,0); -filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e{up}...{right}z24e--z25e; -filldraw stroke z26e--z27e; -picture V; transform t; t=identity shifted(3u,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "Tamil 2loop nuu"; -beginchar(149,2.8x_height#+3u#,x_height#,desc_depth#); -adjust_fit(0,0); -w:=2x_height; -callchar:="N"; -tspecs; -h:=oldh; w:=2.5x_height; d:=oldd; -x21=x16+u; y21=y6; -y22=-d; x22=.4[x1,x21]; -x23=x1-3u; y23=-.43d; x24=x23+u; y24=-.25d; -pos21(tthick,-1080); pos22(tthin,-1170); -pos23(tthin,-1260); pos24(tthin,-1350); -y25=y24; x25=w-3u; pos25(tthin,-1350); -rt x26r=x25; y26=y25; pos26(tthin,0); x27=x26; y27=h; pos27(tthin,0); -filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e{up}...{right}z24e--z25e; -filldraw stroke z26e--z27e; -w:=2.8x_height; -x28=lft x27l; top y28r=h; x29=w-u; y29=y28; pos28(tthin,90); pos29(tthin,90); -rt x30r=x29-.7u; y30=h; x31=x30; y31=0; pos30(tthick,0); pos31(tthick,0); -filldraw stroke z28e--z29e; filldraw stroke z30e--z31e; -picture V; transform t; t=identity shifted(3u,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "Tamil 2loop n ai"; -beginchar(150,3x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="N"; -dodraw:=false; -tspecs; -dodraw:=true; -h:=oldh; w:=oldw; d:=oldd; -aipoints; -z211=.5[z210,z2]; pos211(tthin,135); -filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e - ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e - ...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e - ...{down}z6e...{left}z7e...{up}z8e...{right}z13e---z14e; -filldraw stroke z15e---z16e; -picture V; transform t; t=identity shifted(x_height,0); -V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "grantha s dot"; -beginchar(176,2.2x_height#,asc_height#,desc_depth#); -adjust_fit(0,0); -callchar:="S"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "grantha s dot i"; -beginchar(178,2.5x_height#,body_height#+2u#,desc_depth#); -adjust_fit(0,0); -callchar:="S"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x50=x44; y50=y44; pos50(tthin,90); -x51=x50; top y51l=h; pos51(tthick,-90); -x52=x53=w-u; y52=x_height; y53=y53r=y53l=0; pos52(tthin,-180); -x53r=x53-.6; x53l=x53+.6; -filldraw stroke z50e{left}...{right}z51e...{down}z52e--z53e; -penlabels(50,51,52,53); -endchar; - -cmchar "grantha s dot ii"; -beginchar(179,2.4x_height#,body_height#+4u#,desc_depth#); -adjust_fit(0,0); -callchar:="S"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x50=x44; y50=y44; pos50(tthin,0); -small_iito(50,s,h); -endchar; - -cmchar "grantha s"; -beginchar(184,2.4x_height#,x_height#,0); -adjust_fit(0,0); -callchar:="s"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - -cmchar "grantha si"; -beginchar(186,2.6x_height#,asc_height#,0); -adjust_fit(0,0); -callchar:="s"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -z82=z16; x83=x16; top y83l=h; pos82(tthin,45); pos83(tthick,-90); -x85=x84=w-u; y84=x_height; y85=y85r=y85l=0; x85r=x85-.6; x85l=x85+.6; -pos84(tthin,-180); -filldraw stroke z82e{left}...{right}z83e...{down}z84e--z85e; -penlabels(83,84,85); -endchar; - -cmchar "grantha sii"; -beginchar(187,2.4x_height#,body_height#,0); -adjust_fit(0,0); -callchar:="s"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -x100=x16-2.5u; x101=x16+.5u; top y101l=h; pos101(tthick,-90); -y100=.5[y16,y101]; pos100(tthin,0); -x102=x101+u; y102=y101-.5u; pos102(.7tthick,-135); x103=x102; -y103=y102-2u; pos103(tthin,-270); x104=x104r=x104l=x102; -y104=y101; y104r=y104-.6; y104l=y104+.6; -filldraw stroke z16e{left}...{up}z100e...{right}z101e...z102e...{left}z103e...{right}z104e; -endchar; - -cmchar "grantha j"; -beginchar(192,1.75x_height#,x_height#,.8x_height#); -adjust_fit(0,0); -callchar:="j"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - - -cmchar "grantha ji"; -beginchar(194,2.05x_height#,asc_height#,.8x_height#); -adjust_fit(0,0); -callchar:="j"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -z182=z10; x183=x10; top y183l=h; pos182(tthin,90); pos183(tthick,-90); -x185=x184=w-u; y184=x_height; y185=y185r=y185l=0; x185r=x185-.6; x185l=x185+.6; -pos184(tthin,-180); -filldraw stroke z182e{left}...{right}z183e...{down}z184e--z185e; -penlabels(183,184,185); -endchar; - -cmchar "grantha jii"; -beginchar(195,1.75x_height#,body_height#,.8x_height#); -adjust_fit(0,0); -callchar:="j"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -z82=z10; pos82(tthinner,0); small_iito(82,s,h); -endchar; - - - - - -cmchar "grantha h"; -beginchar(200,3x_height#,x_height#,desc_depth#); -adjust_fit(0,0); -callchar:="h"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -endchar; - - -cmchar "grantha hi"; -beginchar(202,3.2x_height#,asc_height#,desc_depth#); -adjust_fit(0,0); -callchar:="h"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -z180=z106; pos180(tthin,90); x181=x180; top y181l=h; pos181(tthick,-90); -x182=x183=w-u; y182=x_height; y183=y183r=y183l=0; pos182(tthin,-180); -x183r=x183-.6; x183l=x183+.6; -filldraw stroke z180e{left}...{right}z181e...{down}z182e--z183e; -penlabels(180,181,182,183); -endchar; - -cmchar "grantha hii"; -beginchar(203,3x_height#,body_height#,desc_depth#); -adjust_fit(0,0); -callchar:="h"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -small_iito(106,s,h); -endchar; - -cmchar "grantha ksh"; -beginchar(208,3.6x_height#,asc_height#,desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y202=y25; x202=x4+2.5u; pos202(tthin,90); x241r=w-u; -x206=.4[x202,x241]; x207=.3[x202,x241]; x205=.2[x202,x241]; -top y205r=x_height; pos205(tthin,-270); y206=.5[y205,y207]; pos206(tthick,-360); -bot y207r=0; pos207(tmed,-450); x240=.8[x207,x241]; bot y240r=0; -pos240(tmed,-450); y241=.5bar_height; pos241(tthick,-360); -x243=.5[x207,x240]; y243=h-y241; z242=.5[z241,z243]; -pos242(.5(tthick+tthin),-315); pos243(tthin,-360); -x244=.5[x243,x245]; top y244l=h; pos244(tmed,-450); x245=x243+4u; y245=y243; -pos245(tthin,-540); x246=.5[x207,x243]; bot y246l=-d; pos246(tthinner,-585); -x203=.4[x202,x207]; y203=.5[y202,y204]; pos203(tthick,0); x204=x202; -bot y204r=0; pos204(tthin,-90); x201=2x202-x203; y201=y203; pos201(tthin,-180); -filldraw stroke z25e--z202e{right}...{down}z203e...{left}z204e...z201e...{right}z205e - ...{down}z206e...{left}z207e; -filldraw stroke z207e--z240e{right}...{up}z241e...{z243-z241}z242e...{up}z243e - ...{right}z244e...z245e--z246e; -endchar; - -cmchar "grantha kshi"; -beginchar(210,3.6x_height#+2.6u#,body_height#+2u#,desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=3.6x_height; d:=oldd; -y202=y25; x202=x4+2.5u; pos202(tthin,90); x241r=w-u; -x206=.4[x202,x241]; x207=.3[x202,x241]; x205=.2[x202,x241]; -top y205r=x_height; pos205(tthin,-270); y206=.5[y205,y207]; pos206(tthick,-360); -bot y207r=0; pos207(tmed,-450); x240=.8[x207,x241]; bot y240r=0; -pos240(tmed,-450); y241=.5bar_height; pos241(tthick,-360); -x243=.5[x207,x240]; y243=asc_height-y241; z242=.5[z241,z243]; -pos242(.5(tthick+tthin),-315); pos243(tthin,-360); -x244=.5[x243,x245]; top y244l=asc_height; pos244(tmed,-450); x245=x243+4u; y245=y243; -pos245(tthin,-540); x246=.5[x207,x243]; bot y246l=-d; pos246(tthinner,-585); -x203=.4[x202,x207]; y203=.5[y202,y204]; pos203(tthick,0); x204=x202; -bot y204r=0; pos204(tthin,-90); x201=2x202-x203; y201=y203; pos201(tthin,-180); -filldraw stroke z25e--z202e{right}...{down}z203e...{left}z204e...z201e...{right}z205e - ...{down}z206e...{left}z207e; -filldraw stroke z207e--z240e{right}...{up}z241e...{z243-z241}z242e...{up}z243e - ...{right}z244e...z245e--z246e; -w:=oldw; -x250=x244; top y250l=asc_height; pos250(tthin,-90); x251=x245; top y251=h; -pos251(tthick,90); x252=w-u; y252=x_height; pos252(tthin,0); x253=x252; -y253=y253r=y253l=0; x253l=x253-.6; x253r=x253+.6; -filldraw stroke z250e{left}...{right}z251e...{down}z252e--z253e; -endchar; - -cmchar "grantha kshii"; -beginchar(211,3.6x_height#,body_height#+4u#,desc_depth#); -adjust_fit(0,0); -callchar:="c"; -tspecs; -h:=oldh; w:=oldw; d:=oldd; -y202=y25; x202=x4+2.5u; pos202(tthin,90); x241r=w-u; -x206=.4[x202,x241]; x207=.3[x202,x241]; x205=.2[x202,x241]; -top y205r=x_height; pos205(tthin,-270); y206=.5[y205,y207]; pos206(tthick,-360); -bot y207r=0; pos207(tmed,-450); x240=.8[x207,x241]; bot y240r=0; -pos240(tmed,-450); y241=.5bar_height; pos241(tthick,-360); -x243=.5[x207,x240]; y243=asc_height-y241; z242=.5[z241,z243]; -pos242(.5(tthick+tthin),-315); pos243(tthin,-360); -x244=.5[x243,x245]; top y244l=asc_height; pos244(tmed,-450); x245=x243+4u; y245=y243; -pos245(tthin,-540); x246=.5[x207,x243]; bot y246l=-d; pos246(tthinner,-585); -x203=.4[x202,x207]; y203=.5[y202,y204]; pos203(tthick,0); x204=x202; -bot y204r=0; pos204(tthin,-90); x201=2x202-x203; y201=y203; pos201(tthin,-180); -filldraw stroke z25e--z202e{right}...{down}z203e...{left}z204e...z201e...{right}z205e - ...{down}z206e...{left}z207e; -filldraw stroke z207e--z240e{right}...{up}z241e...{z243-z241}z242e...{up}z243e - ...{right}z244e...z245e--z246e; -small_iito(244,s,h) -endchar; - -cmchar "Tamil ayyatham"; -beginchar(240,asc_height#+2u#,asc_height#,0); -adjust_fit(0,0); pickup light_rule.nib; autorounded; -lft x6=hround u; x2=5u-x6; bot y4=0; y2=2u; circle_points; draw_circle; -transform ta; ta=identity shifted(w-5u,0); transform tb; tb=identity shifted(.5w-2.5u,h-6u); -picture VA; VA=currentpicture transformed ta; -picture VB; VB=currentpicture transformed tb; -addto currentpicture also VA; addto currentpicture also VB; -endchar; - -% following taken directly from cmr's accent.mf -cmchar "Dot accent"; -numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#); -beginchar(241,5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0); -define_whole_blacker_pixels(dot_diam); -italcorr h#*slant+.5dot_diam#-2u#; -adjust_fit(0,0); -pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90); -x1=x2=.5w; top y2r=h+1; -if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi -y1=.5[y2l,y2r]; dot(1,2); % dot -penlabels(1,2); endchar; - -cmchar "grantha u"; -beginchar(242,x_height#,asc_height#,0); -adjust_fit(0,0); -x1=u; x2=w-u; top y1r=h; y2=y1; pos1(tthinner,90); pos2(tthinner,90); -rt x3r=x2; x4=x3; y3=h; y4=h-3u; pos3(tthinner,0); pos4(tthinner,0); -x5=x2; bot y5l=y4; x6=x5-3u; y6=y5; pos5(tthinner,90); pos6(tthinner,90); -lft x7l=x6; y7=y4; y8=y3; x8=x7; pos7(tthinner,0); pos8(tthinner,0); -filldraw stroke z1e--z2e; -filldraw stroke z3e--z4e; -filldraw stroke z5e--z6e; -filldraw stroke z7e--z8e; -%picture V; transform t; t=identity shifted(-x_height,0); -%V=currentpicture transformed t; currentpicture:=V; -endchar; - -cmchar "grantha uu"; -beginchar(243,1.2x_height#,asc_height#+3u#,0); -adjust_fit(0,0); -w:=x_height; h:=asc_height; -x1=u; x2=w-u; top y1r=h; y2=y1; pos1(tthinner,90); pos2(tthinner,90); -rt x3r=x2; x4=x3; y3=h; y4=h-3u; pos3(tthinner,0); pos4(tthinner,0); -x5=x2; bot y5l=y4; x6=x5-3u; y6=y5; pos5(tthinner,90); pos6(tthinner,90); -lft x7l=x6; y7=y4; y8=y3; x8=x7; pos7(tthinner,0); pos8(tthinner,0); -filldraw stroke z1e--z2e; -filldraw stroke z3e--z4e; -filldraw stroke z5e--z6e; -filldraw stroke z7e--z8e; -w:=1.2x_height; h:=asc_height+3u; -x10=w-u; x11=.5[x10,x12]; y11=y4-3u; y10=.5[y9,y11]; top y9l=h; x9=.5[x8,x10]; -pos9(tthinner,-90); pos10(tthinner,-180); pos11(tthinner,-270); -y12=y4; x12=x6-2u; pos12(tthinner,-360); -filldraw stroke z8e{up}...{right}z9e...{down}z10e...{left}z11e...{up}z12e; -%picture V; transform t; t=identity shifted(-x_height,0); -%V=currentpicture transformed t; currentpicture:=V; -endchar; - - diff --git a/Master/texmf-dist/fonts/source/public/itrans/tel12.mf b/Master/texmf-dist/fonts/source/public/itrans/tel12.mf deleted file mode 100644 index c33adccf1cf..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tel12.mf +++ /dev/null @@ -1,7 +0,0 @@ -%tel12% -input telmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.5pt#; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/tel12b.mf b/Master/texmf-dist/fonts/source/public/itrans/tel12b.mf deleted file mode 100644 index b54210f2ee9..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tel12b.mf +++ /dev/null @@ -1,7 +0,0 @@ -%tel12b% -input telmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.68pt#; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/tel12nx.mf b/Master/texmf-dist/fonts/source/public/itrans/tel12nx.mf deleted file mode 100644 index b012a6547a3..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tel12nx.mf +++ /dev/null @@ -1,10 +0,0 @@ -%tel12nx% non-uniform pen(x-axis) -input telmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.74pt#; -vardef special_telpen = - pickup pencircle xscaled (pen_width/2) yscaled (pen_width); -enddef; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/tel12ny.mf b/Master/texmf-dist/fonts/source/public/itrans/tel12ny.mf deleted file mode 100644 index ea0f796e09a..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tel12ny.mf +++ /dev/null @@ -1,10 +0,0 @@ -%tel12ny% non-uniform pen(y-axis) -input telmode; -font_size 12pt#; -slant:=0; -pen_width#:=0.65pt#; -vardef special_telpen = - pickup pencircle xscaled pen_width yscaled (pen_width/2); -enddef; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/tel12s.mf b/Master/texmf-dist/fonts/source/public/itrans/tel12s.mf deleted file mode 100644 index 6816c2d6d56..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tel12s.mf +++ /dev/null @@ -1,7 +0,0 @@ -%tel12s% -input telmode; -font_size 12pt#; -slant:=1/4; -pen_width#:=0.61pt#; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/tel18.mf b/Master/texmf-dist/fonts/source/public/itrans/tel18.mf deleted file mode 100644 index a54da7079ec..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/tel18.mf +++ /dev/null @@ -1,7 +0,0 @@ -%tel18% -input telmode; -font_size 18pt#; -slant:=0; -pen_width#:=0.86pt#; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/telbase.mf b/Master/texmf-dist/fonts/source/public/itrans/telbase.mf deleted file mode 100644 index 9234fcdc269..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telbase.mf +++ /dev/null @@ -1,871 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% -% This file contains several macros. These are used for setting -% up the environment and character generation. Before you change -% anything in this file you should be very clear about the impact -% of the change. -% - % when testing is false all symbols in the font are - % generated automatically else when testing is true - % only selected symbols will be generated. -if unknown testing:boolean testing; testing:=false; fi -showstopping := 1; % for debugging only -let telchar=\; -let generate=input; -let sketch=draw; -let pos=penpos; -let stop=bye; -string tl_symname,tl_stra,tl_strb,tl_strc,tl_strw,tl_strx,tl_stry; - % contains the name of the symbol being created -tl_symname:=""; % used for creating substitute commands on log file -tl_stra:="OFFSETA{"; tl_strb:="OFFSETB{"; tl_strc:="OFFSETC{"; -tl_strw:="CODE{"; -tl_strx:="\def\";tl_stry:="}%"; - - -if testing: - %To test different characters use following definitions of - % stest and etest. - def stest (text s) = - quote def s = - enddef; - let etest=enddef; -else: - %To generate all the characters use following definitions of - % stest and etest. - def stest (text s) = - tl_symname := str s;% symbol name - used in various messages - enddef; - let etest=;; -fi; - -% We should be very careful about implications of currenttransform -% (particularly 'slanted' transform). When a path is drawn/filled -% currenttransform is applied. When a transform is applied to -% currentpicture, the transform is really applied to slanted (or -% whatever currenttransform is) path. -def font_setup = - let adjust_fit = normal_adjust_fit; - currenttransform := currenttransform slanted slant; - define_pixels(u,v,uh,asc_height,des_depth,x_height); - define_pixels(pen_width,ul,ur,em_width); - define_pixels(bot_depth,top_height); - define_pixels(fig_height,tfig_height,tfig_width); - define_pixels(ascunit,vmwidth); - define_pixels(top_accent,bot_accent); - define_pixels(bot_cc_ceiling,bot_cc_floor,bot_cc_width,ccwidth); - define_pixels(c_height,w_height,j_height); - define_pixels(asc_height1,asc_height2); - define_pixels(dot_radius,wedge_height,wedge_depth); - define_pixels(half_plus_width,sc_height); - - define_pixels(v_a_width,v_e_width,v_u_width); - define_pixels(v_lo_width,v_ea_width,v_i_width); - - define_pixels(vm_a_width,vm_e_width,vm_e_height1); - define_pixels(vm_e_height2,vm_e_height3,vm_u_width); - define_pixels(vm_ro_width,vm_ao_width,vm_aoo_width); - - define_pixels(cb_ka_width,cb_kha_width,cb_ga_width,cb_cha_width); - define_pixels(cb_ja_width,cb_tta_width,cb_nna_width); - define_pixels(cb_ta_width,cb_da_width,cb_na_width); - define_pixels(cb_ba_width,cb_ya_width,cb_ra_width); - define_pixels(cb_la_width,cb_lla_width,cb_va_width,cb_ca_width); - define_pixels(cb_sha_width,cb_ksha_width); - define_pixels(cb_ksha_depth); - define_pixels(cb_np_width,cb_vg_width); - - define_pixels(cv_pu_width,cv_pu_depth); - - define_pixels(p_comma_width); - - %define pen - if unknown special_telpen: - pickup pencircle scaled pen_width; - telpen:=savepen; - else: - special_telpen; - telpen:=savepen; - fi; - - %print titles if generating font - if unknown offsets_only: - tracingtitles:=1; - fi; -enddef; - -newinternal l,r; %adjustment to spacing - -def normal_adjust_fit(expr left_adjustment,right_adjustment) = - l := -hround(left_adjustment*hppp); - interim xoffset := -l; - charwd := charwd + left_adjustment + right_adjustment; - r := l+hround(charwd*hppp) ; - w := r - hround(right_adjustment*hppp) ; -enddef; - -def makebox(text rule) = - for y=0,asc_height,-des_depth,x_height,-bot_depth, - top_height,w_height,c_height, - j_height: rule((l,y)t_,(r,y)t_); % horizontal rules - endfor; - rule((0,h),(r+pen_width,h)); rule((0,-d),(r+pen_width,-d));%height,depth markers - for x=l,r:rule((x,-bot_depth)t_,(x,top_height)t_); % vertical - endfor; - for x=u*(1+floor(l/u)) step u until r-1: - rule((x,-bot_depth)t_,(x,top_height)t_); - endfor; % vertical lines at each u - if charic <> 0: - rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); - fi % italic correction -enddef; - -def maketicks(text rule) = - for y=0,h.o_,-d.o_; - rule((l,y),(l+10,y));rule((r-10,y),(r,y)); % horizontals - endfor - for x=l,r: - rule((x,10-d.o_),(x,-d.o_)); - rule((x,h.o_-10),(x,h.o_)); % verticals - endfor - if charic <> 0: - rule((r+charic*pt,h.o_-10),(r+charic*pt,h.o_)); % italic corr - fi -enddef; - -rulepen := pensquare; - -def begintchar(expr a,b,c,d,e,f,g) = - beginchar(a,b,c,d); - italcorr e; - if known offsets_only: - message tl_strx&tl_symname&tl_strw&decimal(a)&tl_stry; - fi; - numeric left_space,right_space,l_s,r_s; - l_s:=f; r_s:=g; - left_space:=hround(hppp*f); right_space:=hround(hppp*g); - pickup telpen; - enddef; - -extra_endchar := extra_endchar&"w:=r-l;"; - -def endtchar = - charwd:=w/hppp; charht:= h/vppp; chardp:= d/vppp; - adjust_fit(l_s,r_s); - penlabels(range 1 thru 20); - message ""; - % If any special effects are needed then those should be - % defined as special_effects macro. - if known special_effects: special_effects; fi; - endchar; - enddef; - -% pivot_message macro is used to print offsets to certain points -% in the symbol being generated. These offsets are used by syllable -% building macros to allign vowel modifiers/consonant conjuncts. -% Unlike in english where all symbols stand alone, in Telugu -% various symbols in the font combine to form text. -% For consonant bases two/three offsets are identified. One is used to place -% vowel modifiers and the other is used to place consonant conjuncts(excluding -% those that appear on side). Third offset is used in attaching vowel modifiers -% in some special cases. Offsets have suffixes A,B and C. -% Vowel modifiers, accents and consonant -% conjuncts that appear above/below base consonant indicate one offset value. -% Same macro works in all cases. -% The messages are in the form of TeX macros. -% The log file contains TeX macros mixed with other messages. Use -% some pattern matching program like grep to eliminate all lines containing -% not begining with a \ sign. Name this file tloffsets. -% grep '^\\' xxxxx.log>tloffsets.tex -% The offsets are in em units. So the offsets would be same for any designsize -% and pen width combination. -% Print the offsets only when offsets are being generated. -if unknown offsets_only: % do not print offsets - def pivot_message (text t) = - enddef; -else: %print offsets - def pivot_message (text t) = - numeric count,piv[],index; - % count indicates the number of arguments - count:=0; - for index=t: count:=count+1; piv[count]:=index; endfor; - if count=1: - message tl_strx&tl_symname&tl_stra&decimal((piv[1]+left_space)/em_width)&tl_stry; - elseif count=2: - message tl_strx&tl_symname&tl_stra&decimal((piv[1]+left_space)/em_width)&tl_stry; - message tl_strx&tl_symname&tl_strb&decimal((piv[2]+left_space)/em_width)&tl_stry; - else: - message tl_strx&tl_symname&tl_stra&decimal((piv[1]+left_space)/em_width)&tl_stry; - message tl_strx&tl_symname&tl_strb&decimal((piv[2]+left_space)/em_width)&tl_stry; - message tl_strx&tl_symname&tl_strc&decimal((piv[3]+left_space)/em_width)&tl_stry; - - fi; - enddef; -fi;%end of if unknown offsets - -def fill_dot(suffix $) = - z$t = (x$,y$+dot_radius); - z$l = (x$-dot_radius,y$); - z$b = (x$,y$-dot_radius); - z$r = (x$+dot_radius,y$); - path fill_dot_p; - fill_dot_p = z$t..z$l..z$b..z$r..cycle; - fill fill_dot_p; - penlabels($t,$l,$b,$r); - enddef; - -def lit_cir_form = - lft z1l = (0,c_height/2); top z1t = (c_height/2,c_height); - rt z1 = (c_height,c_height/2); bot z1b = (c_height/2,0); - path lit_cir_p; - lit_cir_p = z1..z1t..z1l..z1b..cycle; - sketch lit_cir_p; - penlabels(1t,1l,1b); - enddef; - -def half_plus_form(suffix $) = - z$a=(x$+1/2half_plus_width,y$); rt z$b=(x$+half_plus_width,y$); - top z$c=(x$+1/2half_plus_width,x_height); - lft z$d = z$; - path half_plus_pa,half_plus_pb; - half_plus_pa = z$d--z$a--z$b; - half_plus_pb = z$a--z$c; - sketch half_plus_pa; sketch half_plus_pb; - penlabels($a,$b,$c,$d); -enddef; - -def barandhook_form (suffix $)(expr bar_width,t) = - z$a=(x$+bar_width-u,y$); rt z$b=(x$a+u,y$-uh); - bot z$c =(x$b-u,y$-2uh); lft z$d=(x$b-2u,y$b); - top z$e=(x$a-u,y$); rt z$f=(x$b,y$+1.5uh); - top z$g=(x$a,y$f+uh); z$h=(x$d,y$f); -path barandhook_p; -barandhook_p= subpath(0,t) of (rt z$--z$a..z$b..z$c..z$d..z$e..z$f..z$g..z$h); -sketch barandhook_p; -penlabels($a,$b,$c,$d); -enddef; - -def barandhook_forma (suffix $)(expr bar_width,t) = -barandhook_form($,bar_width,t); -erase sketch barandhook_p; -barandhook_p:= subpath(0,t) of (z$--z$a..z$b..z$c..z$d..z$e..z$f..z$g..z$h); -sketch barandhook_p; -enddef; - -def wedge(suffix $) = -bot z$w=(x$,-wedge_depth); - path wedge_p; - wedge_p = z$--z$w; - sketch wedge_p; - penlabels($u,$v,$w,$x,$y); - enddef; - -def vwedge(suffix $) = - z$a=(x$,y$+wedge_height); - path vwedge_p; - vwedge_p =z$--z$a; - sketch vwedge_p; - penlabels($a); - enddef; - - -def vm_hook_form (suffix $)(expr t) = - z$a = (x$,y$+1.5ascunit); - z$b = (x$+u,y$+3ascunit); - z$c = (x$+2u,y$+1.5ascunit); - sketch subpath (0,t) of (z$..z$a..z$b..z$c); - penlabels ($a,$b,$c); - h:=top y$b; -enddef; - - def v_a_form = - top z1=(1/4v_a_width,x_height); - z10=(x1-u,y1-uh); z11=(x1,y1-2(y1-y10)); - lft z3=(0,2/3x_height); bot z4=(1/2v_a_width,0); - rt z5=(v_a_width,2/3x_height); top z6=(v_a_width-1.5u,x_height); - z7=(3.5/5x5,1/2x_height); z8=(1/4w,1/2x_height); - z12=(.65v_a_width,5/6x_height); rt z2=(v_a_width,1/2x_height); - enddef; - -def v_e_form = - lft z1=(0,j_height); top z2=(1/5v_e_width,x_height); - z3=(2/5v_e_width,j_height); top z4=(3/5v_e_width,x_height); - rt z5=(v_e_width,1/2x_height); z6=(4/5v_e_width,1/5x_height); - bot z7=(1/2v_e_width,0); z8=(1/5v_e_width,1/4x_height); - z9=(1/2v_e_width,1/2x_height); rt z10=(v_e_width,-1/5des_depth); - path v_e_p; - v_e_p = z1..z2..tension 1.2..z3&z3..tension 1.2..z4..z5..z6..z7..z8..z9..z10; - sketch v_e_p; - enddef; - -def v_u_form = - z1=(v_u_width-1/2w_height,1/2w_height); z2=(v_u_width-u,w_height); - rt z3=(v_u_width,1/6x_height); bot z4=(3/4v_u_width,0); - z5=(1/2v_u_width,w_height); bot z6=(1/3v_u_width,0); - lft z7=(0,1/2x_height); top z8=(1/2v_u_width,x_height); - top z9=(v_u_width-w_height,x_height); -path v_u_p; -v_u_p=z1..z2..z3..z4..tension 1.2..z5&z5..tension 1.2..z6..z7..z8..z9; -sketch v_u_p; - enddef; - -def v_lo_form = - lft z1=(0,j_height); top z2=(v_lo_width/5,x_height); - z3=(2/5v_lo_width,j_height); top z4=(3/5v_lo_width,x_height); - z5=(4/5v_lo_width,j_height); z6=(3/5v_lo_width,w_height); - bot z7=(4/5v_lo_width,0); rt z8=(v_lo_width,1/2x_height); - top z9=(9/10v_lo_width,x_height); - path v_lo_p; -v_lo_p= z1..z2..z3&z3..z4..z5..z6..z7..z8..z9; -sketch v_lo_p; - enddef; - -def v_ea_form = - lit_cir_form; - bot z2=(2/3v_ea_width,0); rt z3=(v_ea_width,1/3x_height); - z4=(2/3v_ea_width,4/5x_height);top z5=(1/3v_ea_width,x_height); -sketch z1..z2..z3..z4..z5; - enddef; - - def vm_a_form (suffix $) = - top lft z$a=(x$-2/5vm_a_width,asc_height1); - top rt z$b=(x$+3/5vm_a_width,asc_height); - z$c = z$; - sketch z$a..tension 6..z$c..tension 16..z$b; - penlabels($a,$b,$c); - enddef; - -def vm_e_form = - lft z1 = (0,x_height+1.2ascunit); - top z2 = (1/2vm_e_width,x_height); - rt z3 = (vm_e_width,x_height+2ascunit); - lft z5 = (0,x_height+3ascunit); - z6 = (1/2vm_e_width,y5); - top z7=(1/2vm_e_width,vm_e_height1+ascunit); - sketch subpath (0.4,1) of z1{down}..{right}z2..z3..z7..z5..z6; - % hook can be attached at z7 -enddef; - -def vm_e_form_a (expr xcoord) = -% used for vowel modifier e for some consonants (eg. khe, che, ne etc) -% 999 was chosen arbitrarily. we needed something not used elsewhere! -% same suffix should be used by vm_ee_form_a. - top z999=(xcoord,vm_e_height1); rt z999i=((lft x999)-1.8u,(y999+y999j)/2); - top z999j=(x999,asc_height1); - path vm_e_pa; - vm_e_pa=z999..z999i..z999j..cycle; h:= (top y999)+pen_width; - penlabels(z999,z999i,z999j); -enddef; - -def vm_ee_form_a (expr xcoord) = -% used for vowel modifier ee for some consonants (eg. khee, chee, nee etc) -% 999 was chosen arbitrarily. we needed something not used elsewhere! -% same suffix should be used by vm_e_form_a. - vm_e_form_a(xcoord); vm_hook_form(999,3); -enddef; - -def vm_u_form (suffix $) = - bot z$a = (x$+vm_u_width/2,0); - rt z$b = (x$+vm_u_width,y$); - z$c = (x$+3/4vm_u_width,3/4x_height); - top z$d = (x$+vm_u_width/2,x_height); -path vm_u_p; - vm_u_p=z$..z$a..z$b..z$c..z$d; - sketch vm_u_p; - penlabels($a,$b,$c,$d); - enddef; - -def vm_ro_form = - z1 = (1/3vm_ro_width,-1/2des_depth); - z2 = (1/2vm_ro_width,-1/2des_depth); - z3 = (1/3vm_ro_width,0); - lft z4 = (0,-1/2des_depth); - bot z5 = (1/2vm_ro_width,-des_depth); - rt z6 = (vm_ro_width,(y5+y7)/2); - top z7 = (1/2vm_ro_width,x_height); -sketch z1..z2..z3..z4..z5..z6..z7; -enddef; - -def vm_ea_form(suffix $) (expr bar_width) = - z$a=(5/7bar_width,y$); - z$b=(x$a,asc_height2); - lft z$c=(0,y$b); - rt z$d=(bar_width,(y$+y$b)/2); -penlabels ($a,$b,$c,$d); - sketch z$c--z$b..z$d..z$a--z$; -enddef; - -def vm_ao_form(suffix $)(expr x_offset) = - z$a = (1/6vm_ao_width+x_offset,x_height); - lft z$b = (0+x_offset,asc_height1); - z$c = (1/6vm_ao_width+x_offset,asc_height2); - z$d = (2/6vm_ao_width+x_offset,asc_height1); - z$e = (3/6vm_ao_width+x_offset,asc_height2); - z$f = (5/6vm_ao_width+x_offset,asc_height2); - rt z$g = (vm_ao_width+x_offset,1/2(asc_height1+asc_height2)); - top z$h = (5/6vm_ao_width+x_offset,asc_height1); - z$i = (4/6vm_ao_width+x_offset,asc_height2); - top z$j = (5/6vm_ao_width+x_offset,asc_height); - top z$k = (vm_aoo_width+x_offset-1.5u,asc_height); - rt z$l = (vm_aoo_width+x_offset,asc_height2); - %rt z$l = (vm_aoo_width+x_offset,1/2(asc_height+asc_height2)); - %rt z$k = (vm_ao_width+x_offset,1/2(asc_height+asc_height2)); - path vm_ao_pa,vm_ao_pb; - vm_ao_pa = z$a..z$b..z$c..tension1.2..z$d; - vm_ao_pb= z$d..tension1.2..z$e..tension 1.8..z$f..z$g..z$h..z$i..z$j..tension 1.8..z$k..z$l; - w:= rt x$g; h:= top y$c; - penlabels ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l); -enddef; - -% b---------c--------------d -% | |_| -% $------a -def vm_au_form (suffix $)(expr bar_width) = % see the above diagram - numeric na; - top z$e=z$; - z$a = (x$e+2/10(bar_width-u),y$e); - z1000 = (x$-u,asc_height2); - % 1000 was chosen arbitrarily - % we needed some suffix not used by any user of - % this macro - barandhook_form(1000,bar_width,5); - z$d=z1000a; - %next two statements solve for c - x$c = x$a; - z$c = whatever[z1000,z$d]; - na:=x$c+(x1000a-x$c)/3; % used for alligning pa,pha,sha.. - sketch z$e--z$a{right}..{left}z$c; - penlabels($a,$b,$c,$d,$e,1000); -enddef; - -def cb_ka_form = -rt x1=rt x5=cb_ka_width; y1=8/10x_height; y5=1/4x_height; -x2=x4=x6=1/2cb_ka_width; top y2=x_height; y4=1/2x_height; bot y6=0; -lft x3=lft x7=0; y3=3/4x_height; y7=x_height-y1; -path cb_ka_p; -cb_ka_p=z7..z6..z5..z4..z3..z2..z1; -enddef; - -def cb_kha_form = -z1=(4/15cb_kha_width,5/6x_height);z2=(2/15cb_kha_width,y1-uh); -lft z3=(0,y1); top z4=(x6,x_height); -z5=(5/12cb_kha_width,1/8x_height); bot z6=(1/4cb_kha_width,0); -lft z7=(0,1/4x_height); z8=(1/4cb_kha_width,1/3x_height); -bot z9=(3/4cb_kha_width,0); rt z10=(cb_kha_width,1/3x_height); -top z11=(x9,x_height); -path cb_kha_p; -cb_kha_p=z1..z2..z3..z4..z5..z6..z7..z8..z9..z10..z11; -sketch cb_kha_p; -numeric a,b; -(a,b)=(subpath (3,5) of cb_kha_p) intersectiontimes - subpath (6,9) of cb_kha_p; -z15 = point a of (subpath (3,5) of cb_kha_p); wedge(15); -enddef; - -def cb_ga_form = -bot z1=(u,0); x5=cb_ga_width-x1; bot y5=0; -y2=y4=1/3x_height; lft x2=0; rt x4=cb_ga_width; -top z3=(1/2cb_ga_width,x_height); -path cb_ga_p,cv_ge_p; - cb_ga_p=z1..z2..z3..z4..z5; - sketch cb_ga_p; - numeric na,nb,nc,nd; - (na,nb)= cb_ga_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_ga_width,vm_e_height2)); - z30= point na of cb_ga_p; - (nc,nd)= cb_ga_p intersectiontimes - ((1/2cb_ga_width,vm_e_height2)--(cb_ga_width,vm_e_height2)); - z32= point nc of cb_ga_p; - top z31=(1/2cb_ga_width,vm_e_height3); - cv_ge_p=z30..z31..z32; -enddef; - -def cb_cha_form = - lft z1=(0,x_height/2); z2=(cb_cha_width/3,x_height/2); - z3=(cb_cha_width/6,w_height); bot z4=(cb_cha_width/4,0); -z5=(cb_cha_width/2,w_height); bot z6=(3/4cb_cha_width,0); - rt z7=(cb_cha_width,w_height); top z8=(cb_cha_width/2,x_height); - path cb_cha_p; - cb_cha_p=z1--z2..z3..z4..tension1.2..z5&z5..tension1.2..z6..z7..z8; - sketch cb_cha_p; - enddef; - -def cb_ja_form = - lft z1 = (0,j_height); top z2 = (cb_ja_width/4,x_height); - z3 = (cb_ja_width/2,j_height); z4 = (cb_ja_width/4,x_height/2); - lft z5 = (0,w_height); bot z6 = (cb_ja_width/4,0); - z7 = (cb_ja_width/2,w_height); bot z8 = (3/4cb_ja_width,0); - rt z9 = (cb_ja_width,w_height); - %following are useful for defining a bowl at the top - bot lft z3w=top z3; z3x=(x8,y1); rt z3y=(w,5/6x_height); - top z3z=(4/5w,x_height); - path cb_ja_pa,cb_ja_pb; - cb_ja_pa=z1..z2..z3..z4..z5..z6..tension1.2..z7&z7..tension1.2..z8..z9; - cb_ja_pb=z3w..z3x..z3y..z3z; - sketch cb_ja_pa; - penlabels(3w,3x,3y,3z); - enddef; - -def cb_tta_form = - top z1=(1/4cb_tta_width,x_height); - y2=y6=1/2x_height; - lft x2=0; rt x6=cb_tta_width; - x3=x1; x5=cb_tta_width-x3; - bot y3=bot y5=0; - top z4=(1/2cb_tta_width,w_height); - top z7=(cb_tta_width-x1,x_height); - z11=(x1+1.5u,y1-1.45uh); - path cb_tta_p,cb_tta_pa,cb_tta_pb; - cb_tta_pb=z1..z2..z3..tension1.2..z4&z4..tension1.2..z5..z6..z7; - numeric na,nb,nc,nd; - (na,nb)= cb_tta_pb intersectiontimes - ((0,5/6x_height)--(1/2cb_tta_width,5/6x_height)); - z8=point na of cb_tta_pb; - (nc,nd)= cb_tta_pb intersectiontimes - ((0.6cb_tta_width,w_height)--(cb_tta_width,w_height)); - z20=point nc of cb_tta_pb; - z19=rt z20; - cb_tta_pa=bot z8..z11..z1; - cb_tta_p=cb_tta_pa..cb_tta_pb; - bot lft z18= z1;% used for placing a vertical line - enddef; - -def cb_nna_form = -z1a=(1/3cb_nna_width,1/2sc_height); -bot z1=(1/4cb_nna_width,0); lft z2=(0,1/4x_height); -z3=(1/6cb_nna_width,1/2x_height); lft z4=(0,3/4x_height); -top z5=(1/4cb_nna_width,x_height); z6=(1/2cb_nna_width,j_height); -top z7=(5/8cb_nna_width,x_height); rt z8=(cb_nna_width,1/2x_height); -bot z9=(2/3cb_nna_width,0); z10=(x9-1/2sc_height,sc_height); -z11=(x9,3/2sc_height); z12=(x9+1/2sc_height,sc_height); - path cb_nna_p; -cb_nna_p= z1a..z1..z2..z3&z3..z4..z5..z6&z6..z7..z8..z9..z10..z11..z12; -sketch cb_nna_p; - penlabels(1a); -enddef; - -def cb_ta_form = -lft z1=(0,1/2x_height); -z2=(x1+u,y1-uh); z3=(x1+2u,y1); z4=(x2,y1+uh); -bot z5=(1/2cb_ta_width,0); rt z6=(cb_ta_width,1/2x_height); -z7=(x6-u,y6+uh); z8=(x6-2u,y6); z9=(x7,y6-uh); -top z10=(1/2cb_ta_width,x_height); - path cb_ta_p; - cb_ta_p = z1..z2..z3..z4..z1..z5..z6..z7..z8..z9..z6..{left}z10; -enddef; - -def cb_da_form = - top z1=(1/2cb_da_width,x_height); lft z2=(0,w_height); - bot z3=(1/3cb_da_width,0);z4=(1/2cb_da_width,w_height); - bot z5=(2/3cb_da_width,0);rt z6=(cb_da_width,1/2x_height); - path cb_da_p,cv_de_p; - cb_da_p= z4..tension 1.2..z5..z6..z1..z2..z3..tension 1.2..z4; - sketch cb_da_p; - numeric na,nb,nc,nd; - (na,nb)= cb_da_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_da_width,vm_e_height2)); - z30= point na of cb_da_p; - (nc,nd)= cb_da_p intersectiontimes - ((1/2cb_da_width,vm_e_height2)--(cb_da_width,vm_e_height2)); - z32= point nc of cb_da_p; - top z31=(1/2cb_da_width,vm_e_height3); - cv_de_p=z30..z31..z32; - enddef; - -def cb_na_form = - bot lft z1=(0,0); lft z2=(0,1/2w_height); - z3=(1/3cb_na_width,w_height); bot z4=(2/3cb_na_width,0); - rt z5=(cb_na_width,1/3x_height); top z6=(1/2cb_na_width,x_height); - path cb_na_p; - cb_na_p=z1..z2..z3..z4..z5..z6; - enddef; - -def cb_ba_form = - lft z1 = (u/2,j_height); top z2 = (cb_ba_width/5,x_height); - z3 = (cb_ba_width/3,j_height); lft z4 = (0,w_height); - bot z5 = (cb_ba_width/4,0); bot z6 = (cb_ba_width/2,w_height); - bot z7 = (3/4cb_ba_width,0); - rt z8 = (cb_ba_width,w_height); %z8 contact point - top z9 = (2/3cb_ba_width,x_height); % z9 another contact point - path cb_ba_p; - cb_ba_p = z1..z2..z3..z4..z5..tension 1.2..z6&z6..tension 1.2..z7..z8..z9; - sketch cb_ba_p; - enddef; - -def cb_ya_form = - lft z1 = (0,2/5x_height); - top z2 = (3/10cb_ya_width,8/10x_height); - rt z3 = (3/5cb_ya_width,y1); - bot z4 = (x2,0); - bot z5 = (4/5cb_ya_width,0); - rt z6 = (cb_ya_width,w_height); - z7 = ((x5+x6)/2,7.3/10x_height); - top z8 = (9/20cb_ya_width,x_height); -enddef; - -def cb_ra_form = - top z1=(cb_ra_width/2,x_height); - lft z2 = (0,w_height); - bot z3 = (cb_ra_width/2,0); - rt z4 = (cb_ra_width,y2); - path cb_ra_p,cv_re_p; - cb_ra_p = z1..z2..z3..z4..cycle; - sketch cb_ra_p; - numeric na,nb,nc,nd; - (na,nb)= cb_ra_p intersectiontimes - ((0,vm_e_height2)--(1/2cb_ra_width,vm_e_height2)); - z30= point na of cb_ra_p; - (nc,nd)= cb_ra_p intersectiontimes - ((1/2cb_ra_width,vm_e_height2)--(cb_ra_width,vm_e_height2)); - z32= point nc of cb_ra_p; - top z31=(1/2cb_ra_width,vm_e_height3); - cv_re_p=z30..z31..z32; - enddef; - -def cb_rra_form = -cb_tta_form; -z14=(cb_tta_width-1.5x1,x_height-sc_height); -z15=(x7,1/2x_height);z16=(x1,y15); - path cb_rra_p; - cb_rra_p= cb_tta_p..z14..z15--z16; - sketch cb_rra_p; -enddef; - -def cb_la_form = -top z1=(1/4cb_la_width,x_height); -lft z2=(0,x_height/2); bot z3=(1/2cb_la_width,0); -rt z4=(cb_la_width,y2); top z5=(cb_la_width-x1,x_height); -z7=(x1+1.5u,2/3x_height); - path cb_la_pa,cb_la_pb,cb_la_p; - cb_la_pb=z1..z2..z3..z4..z5; -z6=point 0.35 of cb_la_pb; - cb_la_pa= bot rt z6..z7..z1; - cb_la_p=cb_la_pa..cb_la_pb; -% z8 is useful for la+u and la+uu -numeric na,nb; -(na,nb)=cb_la_pb intersectiontimes - ((cb_la_width/2,w_height)..(cb_la_width,w_height)); -z9=point na of cb_la_pb; -z8=rt z9; -enddef; - -def cb_lla_form = -top z1=(cb_lla_width/2,w_height); -bot z2 =(x1,0); -z6=(1/3cb_lla_width,x_height-2uh); z3=(x6+u/2,y6-uh); -z4=(x6,.6x_height); z5=(x6+u/2,y3); lft z7=(0,2/3x_height); -bot z8=top z1; rt z9=(cb_lla_width,y7); top z10=(1/2cb_lla_width,x_height); -path cb_lla_pa,cb_lla_pb; -cb_lla_pa=z3..z4..z5..z6..z7..z8..z9..z10; -cb_lla_pb=z1..z2..cycle; -sketch cb_lla_pa; -sketch cb_lla_pb; -% z12 is useful for lla+u and lla+uu -numeric na,nb; -(na,nb)=cb_lla_pa intersectiontimes - ((cb_lla_width/2,x_height/2)..(cb_lla_width,x_height/2)); -z13=point na of cb_lla_pa; -z12=rt z13; -enddef; - -def cb_va_form = - lit_cir_form; - bot z2 = (3/5cb_va_width,0); rt z3 = (cb_va_width,w_height); - z4 = (7/8cb_va_width,j_height); top lft z5 = (x1,x_height); -path cb_va_p,cv_paa_p; -cb_va_p=z1..z2..z3..z4..z5; -top z20=(cb_va_width/2,h); -cv_paa_p=subpath(0,2) of cb_va_p{up}..z20; -% z22 is useful for alligning au modifier -numeric na,nb; -(na,nb)=cv_paa_p intersectiontimes - ((cb_va_width/2,asc_height2)..(cb_va_width,asc_height2)); -z22=point na of cv_paa_p; - enddef; - -def cb_ca_form = -lft z1=(0,1/2x_height); z2=(1/3cb_ca_width,6/8x_height); -bot z3=(1/3cb_ca_width,0); z4=(3/4cb_ca_width,1/3x_height); -rt z5=(cb_ca_width,2/3x_height); top z6=(1/2cb_ca_width,x_height); -lft z7=(0,1/6x_height); -path cb_ca_p,cb_ca_pa; -cb_ca_p=z1..z2{right}..z4..z3..z7..z4..z5..z6; -sketch cb_ca_p; -% z10 is useful for ca+u and ca+uu -cb_ca_pa=subpath(1,3) of cb_ca_p; -numeric na,nb; -(na,nb)=cb_ca_pa intersectiontimes - ((0,w_height)..(cb_ca_width,w_height)); -z11=point na of cb_ca_pa; -z10=rt z11; -enddef; - -def cb_ksha_form = - cb_ka_form; - top z11 = (1/5cb_ka_width,0); - lft z12 = (0,-1/2cb_ksha_depth); - bot z13 = (x11,-cb_ksha_depth); - z14 = (2/5cb_ka_width,-2/3cb_ksha_depth); - bot z15 = (3/5cb_ka_width,-cb_ksha_depth); - z16 = (4/5cb_ka_width,-1/2cb_ksha_depth); - top z17 = (x15,0); - bot rt z18 = (cb_ka_width,-cb_ksha_depth); - sketch z11..z12..z13..z14; sketch z14..z15..z16..z17; - sketch z16..z18; - enddef; - - -def cc_clear = -%erase all that is drawn so far. - clearit; - lft z99=(0,100); - left_spill := xpart(lft (z99 scaled cc_scale)) - xpart(lft z99); - bot z98=(100,0); - bot_spill := ypart(bot (z98 scaled cc_scale)) - ypart(bot z98); - top((z97 scaled cc_scale) - shifted (0,-bot_accent-(x_height*cc_scale)) - shifted (-left_spill,-bot_spill))= - (w*cc_scale/2,x_height); -enddef; - -def cc_transform(text t) = -% used to obtain consonant conjuncts for some consonants and vowels lo&loo -path cc_transformed_path; -cc_transformed_path = t scaled cc_scale - shifted (0,-bot_accent-(x_height*cc_scale)); -sketch cc_transformed_path; -enddef; - -def cc_f_transform(text t) = -% used to obtain consonant conjuncts for some consonants and vowels lo&loo -fill t scaled cc_scale - shifted (0,-bot_accent-(x_height*cc_scale)); -enddef; - -def cc_whd (expr hh,dd) = -%this macro sets w, h and d for accents that appear below baseline. -% for some consonant conjuncts that result from transforming -% consonant bases the height is not zero (eg. cha, ba ,pa etc) -% for such symbols hh should be 1 and for others hh should be 0. -% Some consonant bases have wedges that hang below base line (eg. bha, pha -% ddha etc. ). For these dd should be 1 and for others dd should be 0. -% -%When a picture is scaled, what really happens is the componant paths -% are scaled and the picture is redrawn. Hence we need to adjust w,h and d. -% Still consonant conjunct for nya needs special care( for d). -w:=w*cc_scale-pen_width*cc_scale+pen_width;; -h:=hh*x_height; -d:=bot_accent+((x_height+(dd*wedge_depth))*cc_scale)+dd*bot_spill; -% (x,y) slanted s shifted (a,b) is (x+sy+a,y+b) whereas -% (x,y) shifted (a,b) slanted s is (x+sy+a+ bs,y+b). Hence we -% need to add the correction 'bs'. 'bs' is -bot_spill*slant -currentpicture:=currentpicture shifted - (-left_spill+((-bot_spill)*slant),-bot_spill); -enddef; - -def cv_ngu_form = - z1=(0,j_height); z2=(cb_ja_width/4,j_height-uh#); - rt z3=(cb_ja_width/2,5/6x_height); top z4=(4/10cb_ja_width,x_height); - sketch z1..z2..z3..z4; -enddef; - -def cv_ju_form = - z1=(0,5/6x_height); z2=(cb_ja_width/4,j_height); - rt z3=(cb_ja_width/2,y1); top z4=(4/10cb_ja_width,x_height); - sketch z1..z2..z3..z4; -enddef; - -def cv_pu_form = - top lft z1=(0,c_height/2); bot z2=(cv_pu_width/2,-cv_pu_depth); - rt z3=(cv_pu_width,h/2); top z4=(cv_pu_width-2u,x_height); - sketch z1..z2..z3..z4; -enddef; - -def dr_sixnine_form = - path dr_sixnine_p; - top rt z1 = (w,fig_height); - z2 = (w/2+u,y1-uh); - bot z4 = (w/2,0); - rt z5 = (w,x4); - z6 = (x4,x5-x7); - lft z7 = (0,y5); - dr_sixnine_p = z1..z2..z7..z4..z5..z6..z7; -enddef; - -def dt_six_form= -path dt_six_pa,dt_six_pb; - top z1=(w/5,h); lft z2=(0,3h/4); z3=(x1,h/2); - z4=(w/3,h/2); lft z5=(0,h/4); bot z6=(x1,0); - bot rt z7=(w,0); -dt_six_pa= flex(z1,z2,z3)& z3--z4; -dt_six_pb=flex(z3,z5,z6)& z6--z7; -enddef; - - -def p_comma_form = -path p_comma_p; - z1 = (dot_radius,dot_radius); - rt z2 = (p_comma_width,0); - bot lft z3 = (x1-1/2dot_radius,-des_depth); -fill_dot(1); p_comma_p= flex(z1,z2,z3); -sketch p_comma_p; -enddef; - -def p_bar_form = -path p_bar_p; - bot lft z1 = (0,0); - top lft z2 = (0,x_height); -p_bar_p= z1--z2; -enddef; - -def p_slash_form = -path p_slash_p; - bot lft z1 = (0,-des_depth); - top rt z2 = (6u,asc_height); -p_slash_p= z1--z2; -enddef; - -def p_lbracket_form = % square bracket -path p_lbracket_p; - top lft z1 = (0,top_height); - bot lft z2 = (0,-bot_depth); - rt z3 = (w,y1); - rt z4 = (w,y2); -p_lbracket_p=z3--z1--z2--z4; -enddef; - - -def p_rparen_form = -path p_rparen_p; - top lft z1 = (0,top_height); bot lft z2 = (0,-bot_depth); - rt z3 = (w,(-d+h)/2); -p_rparen_p= flex(z1,z3,z2); -enddef; - - -def p_lbrace_form = -path p_lbrace_p; - top rt z1 = (w,h); lft z4 = (0,(h-d)/2); - z2 = (w/2,-d+7/8(h+d)); - z3 = (x2,-d+5/8(h+d)); -p_lbrace_p= z1..z2..z3..z4; -p_lbrace_p:=(p_lbrace_p reflectedabout (z4,z4+(w,0)) )..reverse(p_lbrace_p); -enddef; - - diff --git a/Master/texmf-dist/fonts/source/public/itrans/telchrs1.mf b/Master/texmf-dist/fonts/source/public/itrans/telchrs1.mf deleted file mode 100644 index b811a075515..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telchrs1.mf +++ /dev/null @@ -1,1061 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% -% This file contains code to generate vowels, vowel modifiers, -% consonant bases, consonant conjuncts and accents - -stest(va); telchar "vowel a"; -begintchar(v_a_code,v_a_width#,x_height#,0,0,0,0); -v_a_form; -sketch z10..z11..z1..z3..z4..z5..z6..z7--z8; -endtchar; etest; - -stest(vaa); telchar "vowel aa"; -begintchar(v_aa_code,v_a_width#,x_height#,0,0,0,0); -v_a_form; -sketch z10..z11..z1..z3..z4..z2 &z2{(0,1)}..{up}z12..z6..z5..{left}z7--z8; -endtchar; etest; - -stest(ve); telchar "vowel e"; -begintchar(v_e_code,v_e_width#,x_height#,des_depth#,0,0,0); -v_e_form; -d:=abs(bot y10); -endtchar; etest; - -stest(vee); telchar "vowel ee"; -begintchar(v_ee_code,cb_ra_width#+4u#,asc_height#,0,0,0,0); -cb_ra_form; -z10=top z1; -vm_a_form(1); -currentpicture := currentpicture shifted (u,0); -z6 = (0,1/2x_height); -barandhook_form(6,w,8); -endtchar; etest; - -stest(vu); telchar "vowel u"; -begintchar(v_u_code,v_u_width#,asc_height#,0,0,0,0); -v_u_form; -barandhook_form(7,v_u_width,1); z20=0.5[z8,z9]; -vwedge(20); -h:=top y20a; -endtchar; etest; - -stest(vuu); telchar "vowel uu"; -begintchar(v_uu_code,v_u_width#+2.5u#,asc_height#,0,0,0,0); -v_u_form; -barandhook_form(7,w-x7,8); vwedge(8); vwedge(9); -h:=top y8a; -endtchar; etest; - -stest(vro); telchar "vowel ro"; -begintchar(v_ro_code,cb_ba_width#+2vm_u_width#,x_height#,0,0,0,0); -cb_ba_form; -vm_u_form(8); -vm_u_form(8b); -w:=rt x8b.b; -endtchar; etest; - -stest(vroo); telchar "vowel roo"; -begintchar(v_roo_code,cb_ba_width#+2vm_u_width#+vmwidth#,x_height#,0,0,0,0); -cb_ba_form; -vm_u_form(8); -z10=z8b; -vm_u_form(10); -z11=z10d; -barandhook_forma(11,vmwidth,5); -w:=rt x11b; -endtchar; etest; - -stest(vlo); telchar "vowel lo"; -begintchar(v_lo_code,v_lo_width#,x_height#,0,0,0,0); -v_lo_form; -endtchar; etest; - -stest(vloo); telchar "vowel loo"; -begintchar(v_loo_code,v_lo_width#+vmwidth#,x_height#,0,0,0,0); -v_lo_form; -barandhook_forma(9,vmwidth,5); -w:=rt x9b; -endtchar; etest; - -stest(vea); telchar "vowel ea"; -begintchar(v_ea_code,v_ea_width#,x_height#,0,0,0,0); -v_ea_form; -endtchar; etest; - -stest(veae); telchar "vowel eae"; -begintchar(v_eae_code,v_ea_width#,asc_height1#,0,0,0,0); -v_ea_form; -lft z10 = (0,5/6x_height); -z11 = (1/2v_ea_width,asc_height1); -sketch z10{up}..{right}z11; -h:=top y11; -endtchar; etest; - -stest(vi); telchar "vowel i"; -begintchar(v_i_code,v_i_width#,x_height#,0,0,0,0); -lit_cir_form; -bot z2=(x1+2u,0); rt z3=(v_i_width,1/2x_height); -top z4=(x2,x_height); z5=(x1,x_height-y1); top z6=(1/2x1,x_height); -lft z7=(0,y5); - sketch rt z1..z2..z3..z4..z5; - sketch z5..z6..z7; -endtchar; etest; - -stest(vao); telchar "vowel ao"; -begintchar(v_ao_code,cb_ja_width#,x_height#,0,0,0,0); -cb_ja_form; -endtchar; etest; - - -stest(vaoo); telchar "vowel aoo"; -begintchar(v_aoo_code,cb_ja_width#,x_height#,0,0,0,0); -cb_ja_form; -vm_hook_form(2,2); -endtchar; etest; - - -stest(vau); telchar "vowel au"; -begintchar(v_au_code,5/4cb_ja_width#,asc_height#,0,0,0,0); -cb_ja_form; -z12=top z2; -vm_au_form(12,w); -h:=top y12c; w:=rt x1000b; -endtchar; etest; - -%--------------------end of vowels------------------- -stest(vma); telchar "vowel modifier of a"; -begintchar(vm_a_code,vm_a_width#,asc_height#,0,0,0,0); -top z1=(2/5vm_a_width,x_height); vm_a_form(1); -pivot_message(x1); -endtchar; etest; - -stest(vmaa); telchar "vowel modifier of aa"; -begintchar(vm_aa_code,11u#,asc_height#,0,0,0,0); -top z1 = (0,x_height); -barandhook_form(1,w,5); -pivot_message((w/3)); -h:=top y1; -endtchar; etest; - -stest(vmaaa); telchar "vowel modifier of aa"; -% used for kha,nga,ja,nya etc. -begintchar(vm_aaa_code,8.3u#,asc_height#,0,0,0,0); -top z1 = (0,x_height); -barandhook_form(1,w,5); -pivot_message((1.6u),rt x1); -h:=top y1; -endtchar; etest; - -stest(vme); telchar "vowel modifier of e"; -begintchar(vm_e_code,vm_e_width#,asc_height#,0,0,0,0); -vm_e_form; -pivot_message(x2); -h:=top y7; -endtchar; etest; - -stest(vmee); telchar "vowel modifier of ee"; -begintchar(vm_ee_code,vm_e_width#,asc_height#,0,0,0,0); -vm_e_form; -vm_hook_form(7,3); -pivot_message(x2); -endtchar; etest; - -stest(vmeea); telchar "vowel modifier of ee"; -% Used with kha,cha,ccha,ja,ta,na,ba,bha,ma,la,lla,va etc. -begintchar(vm_eea_code,vm_e_width#,asc_height#,0,0,0,0); -% w and h are revised -top z1=(0,vm_e_height1); -vm_hook_form(1,3); w:=rt x1c; -pivot_message(x1); -endtchar; etest; - -stest(vmeeb); telchar "vowel modifier of ee"; -% Used with ra,ga and da(and its variations) -begintchar(vm_eeb_code,vm_e_width#,asc_height#,0,0,0,0); -% w and h are revised -top z1=(0,vm_e_height3); -vm_hook_form(1,3); w:=rt x1c; -pivot_message(x1); -endtchar; etest; - -stest(vmu); telchar "vowel modifier of u"; -begintchar(vm_u_code,vm_u_width#,x_height#,0,0,0,0); -rt z1 = (0,w_height); -vm_u_form(1); -w:=rt x1b; -pivot_message(x1d); -endtchar; etest; - -stest(vmuu); telchar "vowel modifier of uu"; -begintchar(vm_uu_code,vm_u_width#+vmwidth#-2.5u#,x_height#,0,0,0,0); -rt z1 = (0,w_height); -vm_u_form(1); -barandhook_forma(1d,vmwidth,5); -w:=rt x1d.b; -endtchar; etest; - -stest(vmro); telchar "vowel modifier of ro"; -begintchar(vm_ro_code,vm_ro_width#,x_height#,des_depth#,0,ul#,0); -vm_ro_form; -endtchar; etest; - -stest(vmroo); telchar "vowel modifier of roo"; -begintchar(vm_roo_code,vm_ro_width#+vmwidth#,x_height#,des_depth#,0,ul#,0); -vm_ro_form; -barandhook_forma(7,vmwidth,5); -w:=rt x7b; -endtchar; etest; - -stest(vmlo); telchar "vowel modifier of lo"; -begintchar(vm_lo_code,v_lo_width#,x_height#,0,0,0,0); -%w,h and d are revised later -v_lo_form; -cc_clear;cc_transform(v_lo_p);cc_whd(0,0); -pivot_message((x3*cc_scale)); -endtchar; etest; - -stest(vmloo); telchar "vowel modifier of loo"; -begintchar(vm_loo_code,v_lo_width#+vmwidth#,x_height#,0,0,0,0); -%w,h and d are revised later -v_lo_form; -barandhook_forma(9,vmwidth,5); -w:=rt x9b; -cc_clear;cc_transform(v_lo_p);cc_transform(barandhook_p);cc_whd(0,0); -pivot_message((x3*cc_scale)); -endtchar; etest; - -stest(vmea); telchar "vowel modifier of ea"; -begintchar(vm_ea_code,vmwidth#,asc_height#,0,0,0,0); -top z1 = (4/7w,x_height); -vm_ea_form(1,w); -pivot_message(x1a); -h:=top y1c; -endtchar; etest; - -stest(vmeae); telchar "vowel modifier of eae"; -begintchar(vm_eae_code,vmwidth#,asc_height#,0,0,0,0); -top z1 = (4/7w,x_height); -vm_ea_form(1,w); -z2 = z1b; -vm_hook_form(2,3); -pivot_message(x1a); -w:=rt x2c; -endtchar; etest; - -stest(vmib); telchar "vowel modifier of i(bottom)"; -%top of vm_i is same as vm_ea -begintchar(vm_i2_code,vmwidth#,0,des_depth#,0,0,0); -top z1=(0,0); -barandhook_form(1,w,5); erase sketch barandhook_p; -transform t; -t:= identity rotated 180 shifted (vmwidth,-(bot_accent+(top y1a - bot y1c))); -sketch barandhook_p transformed t; -pivot_message((w/2)); -d:=abs(ypart (top z1 transformed t)); -endtchar; etest; - -stest(vmao); telchar "vowel modifier of ao"; -begintchar(vm_ao_code,vm_ao_width#,asc_height#,0,0,0,0); -vm_ao_form(1,0);sketch vm_ao_pa; -sketch subpath(0,5) of vm_ao_pb; -pivot_message(x1a); -endtchar; etest; - -stest(vmaoo); telchar "vowel modifier of aoo"; -begintchar(vm_aoo_code,vm_aoo_width#,asc_height#,0,0,0,0); -vm_ao_form(1,0);sketch vm_ao_pa; % place the hook -sketch vm_ao_pb; -pivot_message(x1a); -w:=rt x1l; h:=top y1j; -endtchar; etest; - -stest(vmaooa); telchar "vowel modifier of aoo(alternate)"; -% This is basically a hook to be attached on top of ao modifier -begintchar(vm_aoo_code_a,0#,asc_height#,0,0,0,0); -vm_ao_form(1,0); % place the hook -sketch vm_ao_pb; erase sketch subpath (0,5) of vm_ao_pb; -numeric left_shift;left_shift:=x1i; -currentpicture := currentpicture shifted (-left_shift,0); -h:=top y1j;w:=(rt x1l)-left_shift; -pivot_message(x1i-left_shift); -endtchar; etest; - -stest(vmau); telchar "vowel modifier of au"; -begintchar(vm_au_code,vmwidth#+4u#,asc_height#,0,0,0,0); -z1 = (0,x_height); -vm_au_form(1,w); -pivot_message(x1,na); -w:=rt x1000b; h:=top y1c; -endtchar; etest; - - -stest(vmp); telchar "absence of vowel modifier(pollu)"; -begintchar(vm_p_code,cb_vg_width#,asc_height#,0,0,0,0); -top z1=(1/3w,x_height); top z2 = (1/5w,x_height); -z3=(x2,(x_height+asc_height)/2); z4=(w/2,y3); -top z5=(x2,h); top rt z6=(w,h); -sketch z1--z2{left}..{right}z3--z4; -sketch z3{left}..{right}z5--z6; -pivot_message(x1); -endtchar; etest; -%------------End of Vowel Modifiers------------------- - -stest(cbka); telchar "base of consonant ka"; -begintchar(cb_ka_code,cb_ka_width#,x_height#,0,0,0,0); -cb_ka_form; -sketch cb_ka_p; -pivot_message(x2,x2); -endtchar; etest; - -stest(cbkha); telchar "base of consonant kha"; -begintchar(cb_kha_code,cb_kha_width#,x_height#,wedge_depth#,0,0,0); -cb_kha_form; -pivot_message(x11,x5); -endtchar; etest; - -stest(cbga); telchar "base of consonant ga"; -begintchar(cb_ga_code,cb_ga_width#,x_height#,0,0,0,0); -cb_ga_form; -pivot_message(x3,x3); -endtchar; etest; - -stest(cbgha); telchar "base of consonant gha"; -begintchar(cb_gha_code,cb_va_width#+vm_u_width#,x_height#,wedge_depth#,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z10=1/2[rt z1,z1]; -wedge(10); -vm_u_form(3); -w:=rt x3b; -pivot_message(x1,x1,x3d); -endtchar; etest; - -stest(cbnga); telchar "base of consonant nga"; -begintchar(cb_nga_code,cb_ja_width#,x_height#,0,0,0,0); -cb_ja_form; -half_plus_form(3); -pivot_message(x3c,x7); -endtchar; etest; - -stest(cbcha); telchar "base of consonant cha"; -begintchar(cb_cha_code,cb_cha_width#,x_height#,0,0,0,0); -cb_cha_form; -pivot_message(x8,x5); -endtchar; etest; - -stest(cbccha); telchar "base of consonant ccha"; -begintchar(cb_ccha_code,cb_cha_width#,x_height#,wedge_depth#,0,0,0); -cb_cha_form; -z10 = 1/2[rt z5,z5]; -wedge(10); -pivot_message(x8,x5); -endtchar; etest; - -stest(cbja); telchar "base of consonant ja"; -begintchar(cb_ja_code,cb_ja_width#,x_height#,0,0,0,0); -cb_ja_form; -sketch cb_ja_pb; -pivot_message(x3z,x7); -endtchar; etest; - -stest(cbjha); telchar "base of consonant jha"; -begintchar(cb_jha_code,cb_ra_width#+2vm_u_width#,x_height#,wedge_depth#,0,0,0); -cb_ra_form; -% The next statement will identify the point on ra_form -% where the bowl will be attached. -z5 = (cb_ra_p) intersectionpoint ((x1,w_height)--(x1+w,w_height)); -vm_u_form(5); -z6 = z5b; -wedge(6); -z7 = z6; -vm_u_form(7); -w:=rt x7b; -pivot_message(x1,x5,lft x7d); -endtchar; etest; - -stest(cbnya); telchar "base of consonant nya"; -begintchar(cb_nya_code,v_e_width#+half_plus_width#,x_height#,0,0,0,0); -v_e_form; -z14= v_e_p intersectionpoint ((x4,j_height)--(w,j_height)); -z15=z14; -half_plus_form(15); -pivot_message(x15c,x7); -w:=rt x15b;d:=abs(bot y10); -endtchar; etest; - -stest(cbtta); telchar "base of consonant tta"; -begintchar(cb_tta_code,cb_tta_width#,x_height#,0,0,0,0); -cb_tta_form; -vwedge(18); -sketch cb_tta_p; -pivot_message(x7,x4,x19); -h:=top y18a; -endtchar; etest; - -stest(cbttha); telchar "base of consonant ttha"; -begintchar(cb_ttha_code,cb_ra_width#,x_height#,0,0,0,0); -cb_ra_form; -z10 = (x1,1/2x_height); -fill_dot(10); -pivot_message(x1,x1); -endtchar; etest; - -stest(cbdda); telchar "base of consonant dda"; -begintchar(cb_dda_code,v_u_width#,x_height#,0,0,0,0); -v_u_form; -pivot_message((x8+x9)/2,x5); -endtchar; etest; - -stest(cbddha); telchar "base of consonant ddha"; -begintchar(cb_ddha_code,v_u_width#,x_height#,wedge_depth#,0,0,0); -v_u_form; -z12=3/4[rt z5,z5]; -wedge(12); -pivot_message((x8+x9)/2,x5); -endtchar; etest; - -stest(cbnna); telchar "base of consonant nna"; -begintchar(cb_nna_code,cb_nna_width#,x_height#,0,0,0,0); -cb_nna_form; -pivot_message(x7,x6); -endtchar; etest; - -stest(cbta); telchar "base of consonant ta"; -begintchar(cb_ta_code,cb_ta_width#,x_height#,0,0,0,0); -cb_ta_form; - sketch cb_ta_p; -pivot_message(x10,x5); -endtchar; etest; - -stest(cbtha); telchar "base of consonant tha"; -begintchar(cb_tha_code,cb_da_width#,x_height#,wedge_depth#,0,0,0); -cb_da_form; -wedge(4); -z10 = (x1,2/3x_height-uh); -fill_dot(10); -pivot_message(x1,x4); -endtchar; etest; - -stest(cbda); telchar "base of consonant da"; -begintchar(cb_da_code,cb_da_width#,x_height#,0,0,0,0); -cb_da_form; -pivot_message(x1,x4); -endtchar; etest; - -stest(cbdha); telchar "base of consonant dha"; -begintchar(cb_dha_code,cb_da_width#,x_height#,wedge_depth#,0,0,0); -cb_da_form; -wedge(4); -pivot_message(x1,x4); -endtchar; etest; - -stest(cbna);telchar "base of consonant na"; -begintchar(cb_na_code,cb_na_width#,x_height#,0,0,0,0); -cb_na_form; -sketch cb_na_p; -pivot_message(x6,x6); -endtchar; etest; - -stest(cbpa); telchar "base of consonant pa"; -begintchar(cb_pa_code,cb_va_width#,x_height#,0,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -pivot_message(x1,x1); -endtchar; etest; - -stest(cbpha); telchar "base of consonant pha"; -begintchar(cb_pha_code,cb_va_width#,x_height#,wedge_depth#,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z10 = 1/2[rt z1,z1]; -wedge(10); -pivot_message(x1,x1); -endtchar; etest; - -stest(cbba); telchar "base of consonant ba"; -begintchar(cb_ba_code,cb_ba_width#,x_height#,0,0,0,0); -cb_ba_form; -pivot_message(x9,x6); -endtchar; etest; - -stest(cbbha); telchar "base of consonant bha"; -begintchar(cb_bha_code,cb_ba_width#,x_height#,wedge_depth#,0,0,0); -cb_ba_form; -wedge(6); -pivot_message(x9,x6); -endtchar; etest; - -stest(cbma); telchar "base of consonant ma"; -begintchar(cb_ma_code,cb_va_width#+vm_u_width#,x_height#,0,0,0,0); -cb_va_form; -sketch cb_va_p; -vm_u_form(3); -w:=rt x3b; -pivot_message(x5,x1,x3d); -endtchar; etest; - -stest(cbya); telchar "base of consonant ya"; -begintchar(cb_ya_code,cb_ya_width#+vm_u_width#,x_height#,0,0,0,0); -cb_ya_form; - sketch z1..z2..z3..z4..cycle; - sketch z3{down}..{right}z5..z6..z7..z8; -vm_u_form(6); -w:=rt x6b; -pivot_message(x8,x3,x6d); -endtchar; etest; - -stest(cbra); telchar "base of consonant ra"; -begintchar(cb_ra_code,cb_ra_width#,x_height#,0,0,0,0); -cb_ra_form; -pivot_message(x1,x3); -endtchar; etest; - -stest(cbrra); telchar "base of consonant rra"; -begintchar(cb_rra_code,cb_tta_width#,x_height#,0,0,0,0); -cb_rra_form; -pivot_message(x7,x4,x19); -endtchar; etest; - -stest(cbla); telchar "base of consonant la"; -begintchar(cb_la_code,cb_la_width#,x_height#,0,0,0,0); -cb_la_form; - sketch cb_la_p; -pivot_message(x5,x3,x8); -endtchar; etest; - -stest(cblla); telchar "base of consonant lla"; -begintchar(cb_lla_code,cb_lla_width#,x_height#,0,0,0,0); - cb_lla_form; -pivot_message(x10,x1); -endtchar; etest; - -stest(cbva); telchar "base of consonant va"; -begintchar(cb_va_code,cb_va_width#,x_height#,0,0,0,0); -cb_va_form; -sketch cb_va_p; -pivot_message(x5,x1); -endtchar; etest; - -stest(cbca); telchar "base of consonant ca"; -begintchar(cb_ca_code,cb_ca_width#,x_height#,0,0,0,0); - cb_ca_form; -pivot_message(x6,x3,x10); -endtchar; etest; - -stest(cbsha); telchar "base of consonant sha"; -begintchar(cb_sha_code,cb_sha_width#,x_height#,wedge_depth#,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -bot rt z25 = (cb_sha_width,-d); -sketch bot z3{down}..{right}z25; -pivot_message(x1,x1); -endtchar; etest; - -stest(cbsa); telchar "base of consonant sa"; -begintchar(cb_sa_code,cb_na_width#,x_height#,0,0,0,0); -cb_na_form; -sketch subpath (0,4.7) of cb_na_p; -pivot_message(x3,x6); -endtchar; etest; - -stest(cbha); telchar "base of consonant ha"; -begintchar(cb_ha_code,cb_va_width#+vmwidth#,x_height#,0,0,0,0); -cb_va_form; -z10 = point 3.6 of cb_va_p; -top z11 = (x10,x_height); -sketch subpath(0,3) of cb_va_p..z11; -barandhook_forma(11,vmwidth,5); -pivot_message(x5,x2,x11a); -w:=rt x11b; -endtchar; etest; - -stest(cbksha); telchar "base of consonant ksha"; -begintchar(cb_ksha_code,cb_ka_width#,x_height#,cb_ksha_depth#,0,0,0); -cb_ksha_form; -sketch cb_ka_p; -pivot_message(x2,x6); -endtchar; etest; - -stest(cbdt); telchar "dantyam accent(sits at top)"; -begintchar(cb_dt_code,vmwidth#,0,0,0,0,0); -% h is set later -top z1=(0,top_accent); -barandhook_form(1,w,5);erase sketch barandhook_p; -transform t; -t:=identity reflectedabout (top z1, top z1 + (w,0)); -sketch barandhook_p transformed t; -h:=ypart((bot z1c) transformed t); -pivot_message((w/2)); -endtchar; etest; - -stest(cbnp); telchar "consonant nakaarapollu(np)"; -begintchar(cb_np_code,cb_np_width#,x_height#,0,0,0,ur#); -bot z1 = (1/2w,0); -bot z2 = (1/5w,0); -z3 = (x2,1/3x_height); -z4 = (x1,y3); -z5 = (x3,2/3x_height); -z6 = (x1,y5); -top z7 = (x2,x_height); -top rt z8 = (w,x_height); -sketch z1--z2{left}..{right}z3--z4; -sketch z3{left}..{right}z5--z6; -sketch z5{left}..{right}z7--z8; -endtchar; etest; - -stest(cbvg); telchar "consonant valapalagilaka(vg)"; -begintchar(cb_vg_code,cb_vg_width#,x_height#,0,0,0,ur#); -bot z1 = (1/2w,0); -bot z2 = (1/5w,0); -z3 = (x2,1/3x_height); -z4 = (x1,y3); -top z5 = (x2,2/3x_height); -top rt z6 = (w,2/3x_height); -sketch z1--z2{left}..{right}z3--z4; -sketch z3{left}..{right}z5--z6; -h:=top y5; -endtchar; etest; - -stest(cbbb); telchar "consonant blackbox(bb)"; -%This is not really a letter in Telugu. However this character -% is useful for demonstrating vowel modifiers, cons. conjuncts, accents etc. -begintchar(cb_bb_code,0.2em_width#,0.8x_height#,0.25x_height#,0,0,0); -fill (0,-d)--(w,-d)--(w,h)--(0,h)--cycle; -pivot_message((w/2),(w/2)); -endtchar; etest; - -stest(cbbo); telchar "consonant outlinebox(bo)"; -%This is not really a letter in Telugu. However this character -% is useful for demonstrating vowel modifiers, cons. conjuncts, accents etc. -begintchar(cb_bo_code,0.2em_width#,x_height#,0,0,0,0); -bot lft z1=(0,-d);bot rt z2=(w,-d);top rt z3=(w,h); top lft z4=(0,h); -z1a=(0,y1);z2a=(w,y2);z3a=(w,y3);z4a=(0,y4); -sketch z1--z4; sketch z2--z3; sketch z1a--z2a; sketch z4a--z3a; -cutoff(z1a,180);cutoff(z2a,0);cutoff(z3a,0);cutoff(z4a,180); -pivot_message((w/2),(w/2)); -endtchar; etest; - -stest(cbbe); telchar "consonant emptybox(be)"; -%This is not really a letter in Telugu. However this character -% is useful for demonstrating vowel modifiers, cons. conjuncts, accents etc. -begintchar(cb_be_code,0.2em_width#,x_height#,0,0,0,0); -pivot_message((w/2),(w/2)); -endtchar; etest; -%----------------End of Consonants(Base)---------- - -stest(ccka); telchar "consonant conjunct of ka"; -begintchar(cc_ka_code,6u#,x_height#,des_depth#,0,ul#,0); -top lft z1 = (0,h); -z2 = (w/4,(-d+h)/2); -lft z3 = (0,-1/3d); -bot z4 = (1/3w,-d); -z5 = (w/2,0); -rt z6 = (w,0); -sketch z1..z2..z3..z4{right}..{up}z5--z6; -endtchar; etest; - -stest(cckha); telchar "consonant conjunct of kha"; -begintchar(cc_kha_code,cb_kha_width#,x_height#,0,0,0,0); -cb_kha_form; -cc_clear; cc_transform(cb_kha_p); -cc_transform(wedge_p);cc_whd(0,1); -pivot_message(x5*cc_scale); -endtchar; etest; - -stest(ccga); telchar "consonant conjunct of ga"; -begintchar(cc_ga_code,cb_ga_width#,x_height#,0,0,0,0); -cb_ga_form; -cc_clear; cc_transform(cb_ga_p);cc_whd(0,0); -pivot_message(x3*cc_scale); -endtchar; etest; - -stest(ccgha); telchar "consonant conjunct of gha"; -begintchar(cc_gha_code,cb_va_width#+vm_u_width#,x_height#,0,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z10=1/2[rt z1,z1]; -wedge(10); -vm_u_form(3); -cc_clear; cc_transform(subpath(0,3.4) of cb_va_p); -cc_transform(lit_cir_p); -cc_transform(wedge_p);cc_transform(vm_u_p);cc_whd(0,1); -pivot_message(x1*cc_scale); -endtchar; etest; - -stest(ccnga); telchar "consonant conjunct of nga"; -begintchar(cc_nga_code,cb_ja_width#,x_height#,0,0,0,0); -cb_ja_form; -half_plus_form(3); -cc_clear; cc_transform(cb_ja_pa); -cc_transform(half_plus_pa); -cc_transform(half_plus_pb);cc_whd(0,0); -pivot_message(x7*cc_scale); -endtchar; etest; - -stest(cccha); telchar "consonant conjunct of cha"; -begintchar(cc_cha_code,cb_cha_width#,x_height#,0,0,ul#,0); -cb_cha_form; -cc_clear; cc_transform(((subpath (0,6) of cb_cha_p) .. z97)); -cc_whd(1,0); -endtchar; etest; - -stest(ccccha); telchar "consonant conjunct of ccha"; -begintchar(cc_ccha_code,cb_cha_width#,x_height#,0,0,ul#,0); -cb_cha_form; -z10 = 1/2[rt z5,z5]; -wedge(10); -cc_clear; cc_transform(((subpath (0,6) of cb_cha_p) .. z97)); -cc_transform(wedge_p);cc_whd(1,1); -endtchar; etest; - -stest(ccja); telchar "consonant conjunct of ja"; -begintchar(cc_ja_code,cb_ja_width#,x_height#,0,0,0,0); -cb_ja_form; -cc_clear; cc_transform(cb_ja_pa); -cc_transform(cb_ja_pb); cc_whd(0,0); -pivot_message(x7*cc_scale); -endtchar; etest; - -stest(ccjha); telchar "consonant conjunct of jha"; -begintchar(cc_jha_code,cb_ra_width#+2vm_u_width#,x_height#,0,0,0,0); -cb_ra_form; -% The next statement will identify the point on ra_form -% where the bowl will be attached. -z5=z4; -vm_u_form(5); -path p; p:=vm_u_p; -z6 = z5b; -wedge(6); -z7 = z6; -vm_u_form(7); -w:=rt x7b; -cc_clear; cc_transform(cb_ra_p); -cc_transform(p); cc_transform(vm_u_p); -cc_transform(wedge_p);cc_whd(0,1); -penlabels(5,6); -pivot_message(x5*cc_scale); -endtchar; etest; - -stest(ccnya); telchar "consonant conjunct of nya"; -begintchar(cc_nya_code,v_e_width#+half_plus_width#,x_height#,0,0,0,0); -v_e_form; -z14= v_e_p intersectionpoint ((x4,j_height)--(w,j_height)); -z15=rt z14; -half_plus_form(15); -w:=rt x15b;d:=abs(bot y10); -cc_clear; cc_transform(v_e_p); -cc_transform(half_plus_pa); -cc_transform(half_plus_pb);cc_whd(0,0); -d:=d+(abs(bot y10) - pen_width/2)*cc_scale + pen_width/2+bot_spill; -pivot_message(x7*cc_scale); -endtchar; etest; - -stest(cctta); telchar "consonant conjunct of tta"; -begintchar(cc_tta_code,cb_tta_width#,top_height#,0,0,0,0); -cb_tta_form; -vwedge(18); -cc_clear; cc_transform(cb_tta_p); cc_whd(0,0); -pivot_message(x4*cc_scale); -endtchar; etest; - -stest(ccttha); telchar "consonant conjunct of ttha"; -begintchar(cc_ttha_code,cb_ra_width#,x_height#,0,0,0,0); -cb_ra_form; -z10 = (x1,1/2x_height); -fill_dot(10); -cc_clear; cc_transform(cb_ra_p); -cc_f_transform(fill_dot_p);cc_whd(0,0); -pivot_message(x1*cc_scale); -endtchar; etest; - -stest(ccdda); telchar "consonant conjunct of dda"; -begintchar(cc_dda_code,v_u_width#,top_height#,0,0,0,0); -v_u_form; -cc_clear; cc_transform(v_u_p); cc_whd(0,0); -pivot_message(x5*cc_scale); -endtchar; etest; - -stest(ccddha); telchar "consonant conjunct of ddha"; -begintchar(cc_ddha_code,v_u_width#,x_height#,0,0,0,0); -v_u_form; -z12=3/4[rt z5,z5]; -wedge(12); -cc_clear; cc_transform(v_u_p); -cc_transform(wedge_p);cc_whd(0,1); -pivot_message(x5*cc_scale); -endtchar; etest; - -stest(ccnna); telchar "consonant conjunct of nna"; -begintchar(cc_nna_code,cb_nna_width#,x_height#,0,0,0,0); -cb_nna_form; -cc_clear; cc_transform(cb_nna_p);cc_whd(0,0); -pivot_message(x6*cc_scale); -endtchar; etest; - -stest(ccta); telchar "consonant conjunct of ta"; -begintchar(cc_ta_code,vmwidth#,0,0,0,0,0); -% d is set later -top z1=(0,0); barandhook_form(1,w,5); erase sketch barandhook_p; -sketch barandhook_p reflectedabout ( top z1, top z1+(w,0)) - shifted (0, (-bot_accent+ (bot y1c))); -d:=bot_accent- (bot y1c); -pivot_message((w/2)); -endtchar; etest; - -stest(cctha); telchar "consonant conjunct of tha"; -begintchar(cc_tha_code,cb_da_width#,x_height#,0,0,0,0); -cb_da_form; -wedge(4); -z10 = (x1,2/3x_height-uh); -fill_dot(10); -cc_clear; cc_transform(cb_da_p); -cc_transform(wedge_p); cc_f_transform(fill_dot_p); -cc_whd(0,1); -pivot_message(x4*cc_scale); -endtchar; etest; - -stest(ccda); telchar "consonant conjunct of da"; -begintchar(cc_da_code,cb_da_width#,x_height#,0,0,0,0); -cb_da_form; -cc_clear; cc_transform(cb_da_p); -cc_whd(0,0); -pivot_message(x4*cc_scale); -endtchar; etest; - -stest(ccdha); telchar "consonant conjunct of dha"; -begintchar(cc_dha_code,cb_da_width#,x_height#,0,0,0,0); -cb_da_form; -wedge(4); -cc_clear; cc_transform(cb_da_p); -cc_transform(wedge_p); -cc_whd(0,1); -pivot_message(x4*cc_scale); -endtchar; etest; - -stest(ccna); telchar "consonant conjunct of na"; -begintchar(cc_na_code,7u#,x_height#,des_depth#,0,ul#,0); -top lft z1 = (0,h); -z2 = (1/2w,(h-d)/2); -bot z3 = (1/4w,-d); -lft z4 = (0,-d+1/2sc_height); -z5 = (x3,y3+sc_height); -bot z6 = (3/4w,-d); -rt z7 = (w,y4); -sketch z1..z2..z3..z4..z5..z6..z7; -endtchar; etest; - -stest(ccpa); telchar "consonant conjunct of pa"; -begintchar(cc_pa_code,cb_va_width#,top_height#,0,0,ul#,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97)); -cc_transform(lit_cir_p); -cc_whd(1,0); -endtchar; etest; - -stest(ccpha); telchar "consonant conjunct of pha"; -begintchar(cc_pha_code,cb_va_width#,x_height#,0,0,ul#,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z10 = 1/2[rt z1,z1]; -wedge(10); -cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97)); -cc_transform(lit_cir_p);cc_transform(wedge_p); cc_whd(1,1); -endtchar; etest; - -stest(ccba); telchar "consonant conjunct of ba"; -begintchar(cc_ba_code,cb_ba_width#,top_height#,0,0,ul#,0); -cb_ba_form; -cc_clear; cc_transform(((subpath(0,7) of cb_ba_p)..z97)); -cc_whd(1,0); -endtchar; etest; - -stest(ccbha); telchar "consonant conjunct of bha"; -begintchar(cc_bha_code,cb_ba_width#,x_height#,0,0,ul#,0); -cb_ba_form; -wedge(6); -cc_clear; cc_transform(((subpath(0,7) of cb_ba_p)..z97)); -cc_transform(wedge_p); cc_whd(1,1); -endtchar; etest; - -stest(ccma); telchar "consonant conjunct of ma"; -begintchar(cc_ma_code,6u#,x_height#,des_depth#,0,ul#,0); -rt z1=(w,-d+uh);bot z2=(w/2,-d); -lft z3=(0,-d/3); z4=(2/3w,x_height/5); -rt z5=(w,0); z6=(x4,-5/10d); -z7=(w/2,y5); z8=(2/3w,x_height/2); -top lft z9=(0,h); -sketch z1..z2..z3..z4..z5..z6..z7..z8..z9; -endtchar; etest; - -stest(ccya); telchar "consonant conjunct of ya"; -begintchar(cc_ya_code,6u#,x_height#,des_depth#,0,ul#,0); -lft z1 = (0,-1/3d); z2 = (w/4,0); z3 = (1/4w,-1/2d); -bot z4 = (1/3w,-d); z5 = (2/3w,0); z6 = (1/3w,j_height); -top z7 = (2/3w,h); rt z8=(w,y6); -sketch z1..z2..z3..z4..z5..z6..z7..z8; -endtchar; etest; - -stest(ccra); telchar "consonant conjunct of ra"; -begintchar(cc_ra_code,7u#,0,3.5uh#,0,0,0); -top lft z1=(0,-bot_accent); bot z2=(w/2,-d); top rt z3=(w,-bot_accent); -sketch z1..z2..z3; -pivot_message(x2); -endtchar; etest; - -stest(ccrra); telchar "consonant conjunct of rra"; -begintchar(cc_rra_code,cb_tta_width#,x_height#,0,0,0,0); -cb_rra_form; -cc_clear; cc_transform(cb_rra_p); cc_whd(0,0); -pivot_message(x4*cc_scale); -endtchar; etest; - -stest(ccla); telchar "consonant conjunct of la"; -begintchar(cc_la_code,7u#,0,4.5uh#,0,0,0); -path s,t; -bot z1=(w/4,-d); lft z2 =(0,-1/2d); top z3=(x1,-bot_accent); -top z4=(w/2,y2); -s= z1..z2..z3..z4; -t=s reflectedabout ((w/2,h),(w/2,-d)); -sketch s;sketch t; -pivot_message(x4); -endtchar; etest; - -stest(cclla); telchar "consonant conjunct of lla"; -begintchar(cc_lla_code,cb_lla_width#,asc_height#,0,0,ul#,0); - cb_lla_form; -cc_clear; cc_transform(((subpath (0,6) of cb_lla_pa)..z97)); -cc_transform(cb_lla_pb); cc_whd(1,0); -endtchar; etest; - -stest(ccva); telchar "consonant conjunct of va"; -begintchar(cc_va_code,6u#,x_height#,des_depth#,0,ul#,0); -lit_cir_form; erase sketch lit_cir_p; -transform t; -t= identity shifted (0,-d); -sketch lit_cir_p transformed t; -z10=z1 transformed t; -z2 = (0,y1); bot z3 = (2/3w,-d); rt z4 = (w,-1/2d); -z5 = (1/3w,w_height); top z6 = (2/3w,h); rt z7 = (w,j_height); -sketch z10..z3..z4..z5..z6..z7; -endtchar; etest; - -stest(ccca); telchar "consonant conjunct of ca"; -begintchar(cc_ca_code,cb_ca_width#,asc_height#,0,0,ul#,0); - cb_ca_form; -cc_clear; cc_transform(((subpath (0,6) of cb_ca_p){up}..z97)); cc_whd(1,0); -endtchar; etest; - -stest(ccsha); telchar "consonant conjunct of sha"; -begintchar(cc_sha_code,cb_sha_width#,x_height#,0,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -bot rt z10 = (cb_sha_width,0); -sketch z3..z10; -cc_clear; cc_transform(subpath(0,3.4) of cb_va_p); -cc_transform(lit_cir_p); -cc_transform((z3..z10)); cc_whd(0,0); -pivot_message(x2*cc_scale); -endtchar; etest; - -stest(ccsa); telchar "consonant conjunct of sa"; -begintchar(cc_sa_code,cb_na_width#,x_height#,0,0,ul#,0); -cb_na_form; -sketch subpath (0,4.7) of cb_na_p; -cc_clear; cc_transform(((subpath (0,4) of cb_na_p)..z97)); cc_whd(1,0); -endtchar; etest; - -stest(ccha); telchar "consonant conjunct of ha"; -begintchar(cc_ha_code,cb_va_width#+vmwidth#-3.5u#,x_height#,0,0,0,0); -cb_va_form; -z10 = point 3.6 of cb_va_p; -top z11 = (x10,x_height); -sketch subpath(0,3) of cb_va_p..z11; -barandhook_forma(11,vmwidth,5); -cc_clear; cc_transform((subpath(0,3) of cb_va_p..z11)); -cc_transform(lit_cir_p); -cc_transform(barandhook_p); cc_whd(0,0); -pivot_message(x2*cc_scale); -endtchar; etest; - -% ---------- start of ubayaksharas ----------- - -stest(uas); telchar "accent ardhasunna"; -begintchar(u_ardhasunna_code,x_height#/2,x_height#,0,0,0,ur#); -top rt z2=(w,h); bot rt z1=(w,0); lft z3=(0,h/2); -sketch z1..z3..z2; -endtchar; etest; - -stest(us); telchar "accent sunna"; -begintchar(u_sunna_code,x_height#,x_height#,0,0,0,ur#); -top z2=(w/2,h); bot z1=(x2,0); -sketch z1..z2..cycle; -endtchar; etest; - -stest(uvi); telchar "accent visarga"; -begintchar(u_visarga_code,2/5x_height#,x_height#,0,0,0,ur#); -top z2 = (w/2,h); bot z1 =(x2,3h/5); -path puvi; -puvi= z1..z2..cycle; -sketch puvi; sketch puvi shifted (0,-2h/3); -endtchar; etest; - -stest(uav); telchar "accent ardhavisarga"; -begintchar(u_ardhavisarga_code,2/5x_height#,x_height#,0,0,0,ur#); -path puav; -top z2 = (w/2,h); bot z1 =(x2,3h/5); -puav = subpath (0.25,1.75) of (z1..z2..cycle); -sketch puav;sketch puav shifted (0,-2h/3); -endtchar; etest; - -stest(ua); telchar "accent avagraha"; -begintchar(u_avagraha_code,tfig_width#,x_height#,0,0,0,ur#); -top lft z1=(0,h); lft z2=(0,h/4); z3=(w/2,(y1+y2)/2); -bot lft z4=(0,0); bot rt z5=(w,0); -sketch flex (z1,z3,z2,z4)& z4--z5; -endtchar; etest; - -% ----------- end of ubhayaksharas ---------- - -% bars used for transliteration of vedic hymns - -stest(buone); telchar "b udatta(one bar)"; -begintchar(b_udatta1_code,u#,top_accent#+3uh#,0,0,0,0); -bot z1=(w/2,top_accent); top z2=(x1,h); -sketch z1--z2; -pivot_message((w/2)); -endtchar; etest; - -stest(butwo); telchar "b udatta (two bars)"; -begintchar(b_udatta2_code,3.5u#,top_accent#+3uh#,0,0,0,0); -bot z1=(w/4,top_accent); top z2=(x1,h); -bot z3=(w/4+w/2,top_accent); z4=z2+(w/2,0); -sketch z1--z2; sketch z3-- z4; -pivot_message((w/2)); -endtchar; etest; - -stest(ba); telchar "b anudatta"; -begintchar(b_anudatta_code,4u#,0,0,0,0,0); -% d is set later -top lft z1=(0,-bot_accent);top rt z2=(w,-bot_accent); -sketch z1--z2; -d:=- (bot y1); -pivot_message((w/2)); -endtchar; etest; - diff --git a/Master/texmf-dist/fonts/source/public/itrans/telchrs2.mf b/Master/texmf-dist/fonts/source/public/itrans/telchrs2.mf deleted file mode 100644 index 595ad923c86..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telchrs2.mf +++ /dev/null @@ -1,506 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% -% This file contains code to generate -% symbols for Consonant + Vowel's that need special handling - -stest(cvku); telchar "consonant+vowel ka+u"; -begintchar(cv_ku_code,cb_ka_width#,asc_height#,0,0,0,0); -cb_ka_form; -vm_a_form(2); -z20=(cb_ka_width+u,w_height); -vm_u_form(20); erase sketch vm_u_p; -sketch cb_ka_p..vm_u_p;w:=rt x20b; -pivot_message(x20d); -endtchar; etest; - -stest(cvkhe); telchar "consonant+vowel kha+e"; -begintchar(cv_khe_code,cb_kha_width#,vm_e_height1#,wedge_depth#,0,0,0); -cb_kha_form;erase sketch cb_kha_p; -vm_e_form_a(cb_kha_width/2); sketch (subpath (0,9) of cb_kha_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvkhao); telchar "consonant+vowel kha+ao"; -begintchar(cv_khao_code,cb_kha_width#,vm_e_height1#,wedge_depth#,0,0,0); -cb_kha_form;erase sketch cb_kha_p; -vm_ao_form(17,cb_kha_width/2); -sketch (subpath (0,9) of cb_kha_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x17i); -endtchar; etest; - -stest(cvge); telchar "consonant+vowel ga+e"; -begintchar(cv_ge_code,cb_ga_width#,vm_e_height3#,0,0,0,0); -cb_ga_form; -sketch cv_ge_p; -pivot_message(x31); -endtchar; etest; - -stest(cvngu); telchar "consonant+vowel nga+u"; -begintchar(cv_ngu_code,cb_ja_width#/2,x_height#,0,0,0,0); -cv_ngu_form; -endtchar; etest; - -stest(cvnguu); telchar "consonant+vowel nga+uu"; -begintchar(cv_nguu_code,cb_ja_width#/2,x_height#,0,0,0,0); -cv_ngu_form; -barandhook_forma(4,3/4vmwidth,5); -w:=rt x4b; -endtchar; etest; - -stest(cvche); telchar "consonant+vowel cha+e"; -begintchar(cv_che_code,cb_cha_width#,vm_e_height1#,0,0,0,0); -cb_cha_form; erase sketch cb_cha_p; -vm_e_form_a(cb_cha_width/2); -sketch (subpath(0,6) of cb_cha_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvchao); telchar "consonant+vowel cha+ao"; -begintchar(cv_chao_code,cb_cha_width#,vm_e_height1#,0,0,0,0); -cb_cha_form; erase sketch cb_cha_p; -vm_ao_form(11,cb_cha_width/2); -sketch (subpath (0,6) of cb_cha_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvcche); telchar "consonant+vowel ccha+e"; -begintchar(cv_cche_code,cb_cha_width#,vm_e_height1#,wedge_depth#,0,0,0); -cb_cha_form; erase sketch cb_cha_p; -vm_e_form_a(cb_cha_width/2); -sketch (subpath(0,6) of cb_cha_p)..vm_e_pa; -z10 = 1/2[rt z5,z5]; -wedge(10); -pivot_message(x999); -endtchar; etest; - -stest(cvcchao); telchar "consonant+vowel ccha+ao"; -begintchar(cv_cchao_code,cb_cha_width#,vm_e_height1#,wedge_depth#,0,0,0); -cb_cha_form; erase sketch cb_cha_p; -vm_ao_form(11,cb_cha_width/2); -sketch (subpath (0,6) of cb_cha_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -z10 = 1/2[rt z5,z5]; -wedge(10); -pivot_message(x11i); -endtchar; etest; - -stest(cvje); telchar "consonant+vowel ja+e"; -begintchar(cv_je_code,cb_ja_width#,vm_e_height1#,0,0,0,0); -cb_ja_form;vm_e_form_a(0.8cb_ja_width); -sketch (subpath (0,1) of cb_ja_pb)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvju); telchar "consonant+vowel ja+u"; -begintchar(cv_ju_code,cb_ja_width#/2,x_height#,0,0,0,0); -cv_ju_form; -endtchar; etest; - -stest(cvjuu); telchar "consonant+vowel ja+uu"; -begintchar(cv_juu_code,cb_ja_width#/2,x_height#,0,0,0,0); -cv_ju_form; -barandhook_forma(4,3/4vmwidth,5); -w:=rt x4b; -endtchar; etest; - -stest(cvjao); telchar "consonant+vowel ja+ao"; -begintchar(cv_jao_code,cb_ja_width#,vm_e_height1#,0,0,0,0); -cb_ja_form; -vm_ao_form(11,0.65cb_ja_width); -sketch (subpath (0,2) of cb_ja_pb)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvttao); telchar "consonant+vowel tta+ao"; -begintchar(cv_ttao_code,cb_tta_width#,x_height#,0,0,0,0); -cb_tta_form; -vwedge(18); -vm_ao_form(16,cb_tta_width/2); -sketch cb_tta_p..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -h:=max(top y18a,h); -pivot_message(x16i); -endtchar; etest; - -stest(cvtthe); telchar "consonant+vowel ttha+e"; -begintchar(cv_tthe_code,cb_ra_width#,vm_e_height3#,0,0,0,0); -cb_ra_form; -sketch cv_re_p; -z10 = (x1,1/2x_height); -fill_dot(10); -pivot_message(x31); -endtchar; etest; - -stest(cvddu); telchar "consonant+vowel dda+u"; -begintchar(cv_ddu_code,v_u_width#,asc_height#,0,0,0,0); -v_u_form;z14=((x8+x9)/2,y8);vm_a_form(14); -vm_u_form(3); w:=rt x3b+4u/10; -pivot_message(x3d); -endtchar; etest; - -stest(cvddhu); telchar "consonant+vowel ddha+u"; -begintchar(cv_ddhu_code,v_u_width#,asc_height#,wedge_depth#,0,0,0); -v_u_form;z14=((x8+x9)/2,y8);vm_a_form(14); -z12=3/4[rt z5,z5]; -wedge(12); -vm_u_form(3); w:=rt x3b; -pivot_message(x3d); -endtchar; etest; - -stest(cvte); telchar "consonant+vowel ta+e"; -begintchar(cv_te_code,cb_ta_width#,vm_e_height1#,0,0,0,0); -cb_ta_form; -vm_e_form_a(3/5cb_ta_width); - sketch (subpath (0,10) of cb_ta_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvtao); telchar "consonant+vowel ta+ao"; -begintchar(cv_tao_code,cb_ta_width#,vm_e_height1#,0,0,0,0); -cb_ta_form; -vm_ao_form(11,2.2/5cb_ta_width); -sketch (subpath (0,10) of cb_ta_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvthe); telchar "consonant+vowel tha+e"; -begintchar(cv_the_code,cb_da_width#,vm_e_height3#,wedge_depth#,0,0,0); -cb_da_form; -sketch cv_de_p; -wedge(4); -z10 = (x1,2/3x_height-uh); -fill_dot(10); -pivot_message(x31); -endtchar; etest; - -stest(cvde); telchar "consonant+vowel da+e"; -begintchar(cv_de_code,cb_da_width#,vm_e_height3#,0,0,0,0); -cb_da_form; -sketch cv_de_p; -pivot_message(x31); -endtchar; etest; - -stest(cvdhe); telchar "consonant+vowel dha+e"; -begintchar(cv_dhe_code,cb_da_width#,vm_e_height3#,wedge_depth#,0,0,0); -cb_da_form; -sketch cv_de_p; -wedge(4); -pivot_message(x31); -endtchar; etest; - -stest(cvne);telchar "consonant+vowel na+e"; -begintchar(cv_ne_code,cb_na_width#,vm_e_height1#,0,0,0,0); -cb_na_form; -vm_e_form_a(cb_na_width/2); -sketch (subpath (0,4) of cb_na_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvnao);telchar "consonant+vowel na+ao"; -begintchar(cv_nao_code,cb_na_width#,vm_e_height1#,0,0,0,0); -cb_na_form; -vm_ao_form(11,0.4cb_na_width); -sketch (subpath (0,4) of cb_na_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvpaa); telchar "consonant+vowel pa+aa"; -begintchar(cv_paa_code,cb_va_width#,asc_height#,0,0,0,0); -cb_va_form; -sketch cv_paa_p; -pivot_message(x2,x22);% x22 is used for alligning au modifier -endtchar; etest; - -stest(cvpu); telchar "consonant+vowel pa+u"; -begintchar(cv_pu_code,cv_pu_width#,x_height#,cv_pu_depth#,0,0,0); -cv_pu_form; -pivot_message(x1); -endtchar; etest; - -stest(ccvpu); telchar "consonant conjunct of pa + vowel u"; -begintchar(ccv_pu_code,cb_va_width#,top_height#,0,0,ul#,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97)); -numeric na,nb; -(na,nb)=cc_transformed_path intersectiontimes - ((0,w_height)..(cb_va_width,w_height)); -z10=point na of cc_transformed_path; -vm_u_form(10); -cc_transform(lit_cir_p); -cc_whd(1,0); -w:=rt x10b; -endtchar; etest; - -stest(cvpuu); telchar "consonant+vowel pa+uu"; -begintchar(cv_puu_code,cv_pu_width#,x_height#,cv_pu_depth#,0,0,0); -cv_pu_form;barandhook_forma(4,3/4vmwidth,5); -w:=rt x4b; -pivot_message(x1); -endtchar; etest; - -stest(ccvpuu); telchar "consonant conjunct of pa + vowel uu"; -begintchar(ccv_puu_code,cb_va_width#,top_height#,0,0,ul#,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97)); -numeric na,nb; -(na,nb)=cc_transformed_path intersectiontimes - ((0,w_height)..(cb_va_width,w_height)); -z10=point na of cc_transformed_path; -vm_u_form(10);barandhook_forma(10d,vmwidth,5); -cc_transform(lit_cir_p); -cc_whd(1,0); -w:= rt x10d.b; -endtchar; etest; - -stest(cvphaa); telchar "consonant+vowel pha+aa"; -begintchar(cv_phaa_code,cb_va_width#,asc_height#,wedge_depth#,0,0,0); -cb_va_form; -sketch cv_paa_p; -top z13 = 1/2[rt z1,z1]; -wedge(13); -pivot_message(x2,x22); %x22 is used for alligning au modifier -endtchar; etest; - -stest(ccvphu); telchar "consonant conjunct of pha + vowel u"; -begintchar(ccv_phu_code,cb_va_width#,x_height#,0,0,ul#,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z10 = 1/2[rt z1,z1]; -wedge(10); -cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97)); -numeric na,nb; -(na,nb)=cc_transformed_path intersectiontimes - ((0,w_height)..(cb_va_width,w_height)); -z11=point na of cc_transformed_path; -vm_u_form(11); -cc_transform(lit_cir_p);cc_transform(wedge_p); cc_whd(1,1); -w:=rt x11b; -endtchar; etest; - -stest(ccvphuu); telchar "consonant conjunct of pha + vowel uu"; -begintchar(ccv_phuu_code,cb_va_width#,x_height#,0,0,ul#,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z10 = 1/2[rt z1,z1]; -wedge(10); -cc_clear; cc_transform(((subpath(0,2) of cb_va_p)..z97)); -numeric na,nb; -(na,nb)=cc_transformed_path intersectiontimes - ((0,w_height)..(cb_va_width,w_height)); -z11=point na of cc_transformed_path; -vm_u_form(11);barandhook_forma(11d,vmwidth,5); -cc_transform(lit_cir_p);cc_transform(wedge_p); cc_whd(1,1); -w:=rt x11d.b; -endtchar; etest; - -stest(cvbe); telchar "consonant+vowel ba+e"; -begintchar(cv_be_code,cb_ba_width#,vm_e_height1#,0,0,0,0); -cb_ba_form;erase sketch cb_ba_p; -vm_e_form_a(cb_ba_width/2); -sketch (subpath(0,7) of cb_ba_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvbao); telchar "consonant+vowel ba+ao"; -begintchar(cv_bao_code,cb_ba_width#,vm_e_height1#,0,0,0,0); -cb_ba_form;erase sketch cb_ba_p; -vm_ao_form(11,cb_ba_width/2); -sketch (subpath (0,7) of cb_ba_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvbhe); telchar "consonant+vowel bha+e"; -begintchar(cv_bhe_code,cb_ba_width#,vm_e_height1#,wedge_depth#,0,0,0); -cb_ba_form;erase sketch cb_ba_p; -vm_e_form_a(cb_ba_width/2); -sketch (subpath(0,7) of cb_ba_p)..vm_e_pa; -wedge(6); -pivot_message(x999); -endtchar; etest; - -stest(cvbhao); telchar "consonant+vowel bha+ao"; -begintchar(cv_bhao_code,cb_ba_width#,vm_e_height1#,wedge_depth#,0,0,0); -cb_ba_form;erase sketch cb_ba_p; -vm_ao_form(11,cb_ba_width/2); -sketch (subpath (0,7) of cb_ba_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -wedge(6); -pivot_message(x11i); -endtchar; etest; - -stest(cvre); telchar "consonant+vowel ra+e"; -begintchar(cv_re_code,cb_ra_width#,vm_e_height3#,0,0,0,0); -cb_ra_form; -sketch cv_re_p; -pivot_message(x31); -endtchar; etest; - -stest(cvle); telchar "consonant+vowel la+e"; -begintchar(cv_le_code,cb_la_width#,vm_e_height1#,0,0,0,0); -cb_la_form; -vm_e_form_a(0.6cb_la_width); -sketch (subpath(0,6) of cb_la_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvlao); telchar "consonant+vowel la+ao"; -begintchar(cv_lao_code,cb_la_width#,vm_e_height1#,0,0,0,0); -cb_la_form; -vm_ao_form(11,0.6cb_la_width); -sketch (subpath (0,6) of cb_la_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvlle); telchar "consonant+vowel lla+e"; -begintchar(cv_lle_code,cb_lla_width#,vm_e_height1#,0,0,0,0); - cb_lla_form; erase sketch cb_lla_pa; -vm_e_form_a(cb_lla_width/2); -sketch (subpath(0,6) of cb_lla_pa)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvllu); telchar "consonant+vowel lla+u"; -begintchar(cv_llu_code,cb_lla_width#,asc_height#,0,0,0,0); - cb_lla_form;vm_a_form(10); -vm_u_form(12); w:=rt x12b; -pivot_message(lft x12d); -endtchar; etest; - -stest(cvllao); telchar "consonant+vowel lla+ao"; -begintchar(cv_llao_code,cb_lla_width#,vm_e_height1#,0,0,0,0); - cb_lla_form; erase sketch cb_lla_pa; -vm_ao_form(11,cb_lla_width/2); -sketch (subpath (0,6) of cb_lla_pa)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvve); telchar "consonant+vowel va+e"; -begintchar(cv_ve_code,cb_va_width#,vm_e_height1#,0,0,0,0); -cb_va_form; -vm_e_form_a(cb_va_width/2); -sketch (subpath(0,2) of cb_va_p)..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvvao); telchar "consonant+vowel va+ao"; -begintchar(cv_vao_code,cb_va_width#,vm_e_height1#,0,0,0,0); -cb_va_form; -vm_ao_form(11,0.4cb_va_width); -sketch (subpath (0,2) of cb_va_p)..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvce); telchar "consonant+vowel ca+e"; -begintchar(cv_ce_code,cb_ca_width#,vm_e_height1#,0,0,0,0); - cb_ca_form; erase sketch cb_ca_p; -vm_e_form_a(cb_ca_width/3); -sketch (subpath(0,6) of cb_ca_p){up}..vm_e_pa; -pivot_message(x999); -endtchar; etest; - -stest(cvcao); telchar "consonant+vowel ca+ao"; -begintchar(cv_cao_code,cb_ca_width#,vm_e_height1#,0,0,0,0); - cb_ca_form; erase sketch cb_ca_p; -vm_ao_form(11,cb_ca_width/3); -sketch (subpath (0,6) of cb_ca_p){up}..subpath (1,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -pivot_message(x11i); -endtchar; etest; - -stest(cvshaa); telchar "consonant+vowel sha+aa"; -begintchar(cv_shaa_code,cb_sha_width#,asc_height#,wedge_depth#,0,0,0); -cb_va_form; -sketch cv_paa_p; -bot rt z25 = (cb_sha_width,-d); -sketch bot z3{down}..{right}z25; -pivot_message(x2,x22); %x22 used for alligning au modifier -endtchar; etest; - -stest(cvshu); telchar "consonant+vowel sha+u"; -begintchar(cv_shu_code,cb_va_width#,asc_height#,1.25wedge_depth#,0,0,0); -cb_va_form; -sketch subpath(0,3.4) of cb_va_p; -top z30=(x1,x_height);vm_a_form(30); -bot rt z25 = (cb_sha_width,-d); -sketch bot z3{down}..{right}z25; - vm_u_form(3);w:=rt x3b; -pivot_message(lft x3d); -endtchar; etest; - -stest(cvsaa); telchar "consonant+vowel sa+aa"; -begintchar(cv_saa_code,cb_na_width#,asc_height#,0,0,0,0); -cb_na_form;top z20=(w/2,h); -path cv_saa_p; -cv_saa_p=subpath (0,4) of cb_na_p..z20; -sketch cv_saa_p; -numeric aa; aa= (x3+x4)/2; -numeric na,nb; -(na,nb)=cv_saa_p intersectiontimes - ((0,asc_height2)..(cb_na_width,asc_height2)); -z21=point na of cv_saa_p; -pivot_message(aa,x21); %x21 is used for alligning au modifier -endtchar; etest; - -stest(cvhaa); telchar "consonant+vowel ha+aa"; -begintchar(cv_haa_code,cb_va_width#+vmwidth#,asc_height#,0,0,0,0); -cb_va_form; -z10 = point 3.6 of cb_va_p; -top z11 = (x10,x_height); -sketch subpath(0,3) of cb_va_p..z11; -barandhook_forma(11,vmwidth,5); -vm_a_form(5);vm_hook_form(11e,3); -w:=max(rt x11e.c,rt x11b); -endtchar; etest; - -stest(cvhao); telchar "consonant+vowel ha+ao"; -begintchar(cv_hao_code,cb_va_width#+vmwidth#,asc_height#,0,0,0,0); -cb_va_form; -z10 = point 3.6 of cb_va_p; -top z11 = (x10,x_height); -sketch subpath(0,3) of cb_va_p..z11; -barandhook_forma(11,vmwidth,4); -numeric oldh; -vm_a_form(5);erase sketch barandhook_p;oldh:=h; -vm_ao_form(12,0.63w); sketch barandhook_p..subpath (2,3) of vm_ao_pa; -sketch subpath (0,5) of vm_ao_pb; -h:=max(h,oldh); -pivot_message(x12i); -endtchar; etest; - -stest(cvkshu); telchar "consonant+vowel ksha+u"; -begintchar(cv_kshu_code,cb_ka_width#,asc_height#,cb_ksha_depth#,0,0,0); -cb_ksha_form; -vm_a_form(2); -z20=(cb_ka_width+u,w_height); -vm_u_form(20); erase sketch vm_u_p; -sketch cb_ka_p..vm_u_p; w := rt x20b; -pivot_message(x20d); -endtchar; etest; - diff --git a/Master/texmf-dist/fonts/source/public/itrans/telchrs3.mf b/Master/texmf-dist/fonts/source/public/itrans/telchrs3.mf deleted file mode 100644 index 9cff20d6994..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telchrs3.mf +++ /dev/null @@ -1,502 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%% -% This file contains code to generate roman digits, -% telugu digits and punctuation symbols -% --------- start of roman digits ------------ -stest(drzero); telchar "Roman digit zero"; -begintchar(dr_zero_code,7u#,fig_height#,0,0,0,ur#); -top z1=(w/2,h); lft z2=(0,1/2h); -bot z3=(w/2,0); rt z4=(w,1/2h); -sketch superellipse(z4,z1,z2,z3,0.707); -endtchar; etest; - -stest(drone); telchar "Roman digit one"; -begintchar(dr_one_code,4u#,fig_height#,0,0,0,ur#); -bot lft z1=(0,0); bot rt z2=(w,0); top z3=(x5,h); -lft z4=(x1,x_height+uh); bot z5=1/2[z1,z2]; -sketch z1--z2; sketch z3--z5; -sketch z4..{up}z3; -endtchar; etest; - -stest(drtwo); telchar "Roman digit two"; -begintchar(dr_two_code,7u#,fig_height#,0,0,0,ur#); -bot lft z1=(0,0); bot rt z2=(w,0); lft z3=(0,x_height); -top z4=(w/2,h); rt z5=(w,y3); -sketch z1--z2; sketch z3..z4..z5..{-1,-1}z1; -endtchar; etest; - -stest(drthree); telchar "Roman digit three"; -begintchar(dr_three_code,7u#,fig_height#,0,0,0,ur#); -path pa; -top lft z1=(0,3/4h); top z2=(w/2,h); -rt z3=(w,y1); z4=(w/2-u,1/2h); -pa= z1..z2..z3..{(-1,0)}z4; -sketch pa; sketch pa reflectedabout (z4,(w,y4)); -endtchar; etest; - -stest(drfour); telchar "Roman digit four"; -begintchar(dr_four_code,7u#,fig_height#,0,0,0,ur#); -bot z1=(w-1.5u,0); top z2=(x1,h); -lft z3=(0,w_height); rt z4=(w,y3); -bot z1a=(x1-(x4-x1),0); bot z1b=(x4,0); -sketch z1a--z1b; sketch z1--z2; -sketch z3--z2; sketch z3--z4; -penlabels(1a,1b); -endtchar; etest; - -stest(drfive); telchar "Roman digit five"; -begintchar(dr_five_code,7u#,fig_height#,0,0,0,ur#); -top rt z1=(w,h); top lft z2=(0,h); lft z3=(0,6/10h); -z4=(1/2w,y3+uh); rt z5=(w,(y4+y6)/2); bot z6=(x4,0); lft z7=(0,1/4h); -sketch z1--z2; sketch z2--z3; -sketch z3..z4..z5..z6..z7; -endtchar; etest; - -stest(drsix); telchar "Roman digit six"; -begintchar(dr_six_code,6u#,fig_height#,0,0,0,ur#); -dr_sixnine_form; -sketch dr_sixnine_p; -endtchar; etest; - -stest(drseven); telchar "Roman digit seven"; -begintchar(dr_seven_code,7u#,fig_height#,0,0,0,ur#); -top lft z1=(0,h); top rt z3=(w,h); -bot z4=(1/4w,0); -sketch z1--z3{(-1,-1)}..{down}z4; -endtchar; etest; - -stest(dreight); telchar "Roman digit eight"; -begintchar(dr_eight_code,7u#,fig_height#,0,0,0,ur#); -top z1=(w/2,h); z2=(x1,0.6h); -bot z3=(x1,0); lft z4=(0,y2/2); rt z5=(w,y4); -z6=(x4+u,1/2(y1+y2)); z7=(w-u,y6); -sketch superellipse(z7,z1,z6,z2,0.707); -sketch superellipse(z5,z2,z4,z3,0.707); -endtchar; etest; - -stest(drnine); telchar "Roman digit nine"; -begintchar(dr_nine_code,6u#,fig_height#,0,0,0,ur#); -dr_sixnine_form; -bot lft z10 = z1; -sketch dr_sixnine_p rotatedaround(z10,-180) shifted(-w,-h); -endtchar; etest; - -%---------------------end of roman digits------------------------ - -% ------------- start of telugu digits ------------ - -stest(dtzero); telchar "telugu digit zero"; -begintchar(dt_zero_code,tfig_width#,tfig_height#,0,0,0,ur#); -top z1=(w/2,h); lft z2=(0,h/2); bot z3=(x1,0); rt z4=(w,y2); -sketch superellipse(z4,z1,z2,z3,0.707); -endtchar; etest; - -stest(dtone); telchar "telugu digit one"; -begintchar(dt_one_code,tfig_width#+u#,tfig_height#,0,0,0,ur#); -bot z1=(w/5,0); lft z2=(0,h/2); top z3=(w/2,h); -rt z4=(w,h/2); bot z5=(w-(w/5),0); -sketch z1..z2..z3..z4..z5; -endtchar; etest; - -stest(dttwo); telchar "telugu digit two"; -begintchar(dt_two_code,tfig_width#,tfig_height#,0,0,0,ur#); -z1=(3w/5,5h/6); z2=(x1,4h/6); z3=(w/2,y1); -top z4=(x1,h); z5=((x8+x1)/2,y3); bot z6=(x1,0); -bot lft z7=(0,0);rt z8=(w,h/2); -sketch z1..z2..z3..z4..z8..{(-1,0)}z6--z7; -endtchar; etest; - - -stest(dtthree); telchar "telugu digit three"; -begintchar(dt_three_code,tfig_width#-2u#,tfig_height#,0,0,0,ur#); -path pa; -lft z1=(0,4h/5); top z2=(w/2,h); top z3=(4w/5,h); -rt z4=(w,3h/4); z5=(3w/4,h/2); z6=(w/3,h/2); -pa= z1..z2..z3..z4..z5; -sketch pa; sketch pa reflectedabout(z5,z6); -sketch z5--z6; -endtchar; etest; - -stest(dtfour); telchar "telugu digit four"; -begintchar(dt_four_code,tfig_width#-u#,tfig_height#,0,0,0,ur#); -top z1=(w/5,h); lft z2=(0,2h/3); z4=(w/2,h/3); -bot z5=(x4,0); z3=(w/3,1/2(y4+y5)); -forsuffixes s=6,7,8: - z.s=z.[s-5] reflectedabout(z4,z5); endfor; -sketch z1..z2..z4..z7..z6; -sketch z4..z3..z5..z8..z4; -endtchar; etest; - -stest(dtfive); telchar "telugu digit five"; -begintchar(dt_five_code,tfig_width#+u#,tfig_height#,0,0,0,ur#); -lft z1=(0,8h/10); lft z2=(0,3h/10); z3=(2w/3,(y1+y2)/2); -top z11=(w/3,h); z12 = z11 reflectedabout ((0,y3),(w,y3)); -sketch z1..z11..z3..z12..z2; -top z4=(x3+(w-x3)/2,h); -rt z5=(w,(y3+y4)/2); -bot z7=(x4,0); rt z8=(x9,y9-uh); rt z9=(w,y2); -sketch z3..z5..z4..z3..z7..z8..z9; -endtchar; etest; - -stest(dtsix); telchar "telugu digit six"; -begintchar(dt_six_code,tfig_width#,tfig_height#,0,0,0,ur#); -dt_six_form; -sketch dt_six_pa; sketch dt_six_pb; -endtchar; etest; - -stest(dtseven); telchar "telugu digit seven"; -begintchar(dt_seven_code,tfig_width#-2u#,tfig_height#,0,0,0,ur#); -lft z1=(0,3h/4); top z2=(w/2,h); rt z3=(w,y1); z4=(w/2,h/2); -forsuffixes i=6,7,8: - z.i=z.[i-5] rotatedaround (z4,180); -endfor; -sketch z1..z2..z3..z4..z8..z7..z6; -endtchar; etest; - - -stest(dteight); telchar "telugu digit eight"; -begintchar(dt_eight_code,tfig_width#+u#,tfig_height#,0,0,0,ur#); -z2=(1.5u,w/2); lft z7=(0,(y2+y3)/2); -bot z3=(w/4,0); z4=z2+(3(x3-x2),0); -top z5=(x3,h); top rt z6=(w,h); -sketch z2..z7..z3..z4..z5 & z5--z6; -endtchar; etest; - -stest(dtnine); telchar "telugu digit nine"; -begintchar(dt_nine_code,tfig_width#,tfig_height#,0,0,0,ur#); -dt_six_form; -sketch dt_six_pa reflectedabout((0,0),(w,0)) shifted (0,h); -sketch dt_six_pb reflectedabout((0,0),(w,0)) shifted (0,h); -endtchar; etest; - -% end of telugu digits - -% --------- start of punctuation ---------- - -stest(pperiod); telchar "punctuation period"; -begintchar(p_period_code,2*dot_radius#,2*dot_radius#,0,0,0,ur#); -z1=(dot_radius,dot_radius); -fill_dot(1); -endtchar; etest; - -stest(pcomma); telchar "punctuation comma"; -begintchar(p_comma_code, p_comma_width#,2*dot_radius#,des_depth#,0,0,ur#); -p_comma_form; -endtchar; etest; - -stest(pequal); telchar "punctuation equal"; -begintchar(p_equal_code,10u#,3/4x_height#,0,0,0,ur#); -top lft z1=(0,h); top rt z2=(w,h); -bot lft z3=(0,1/4x_height); bot rt z4=(w,1/4x_height); -sketch z1--z2; sketch z3--z4; -endtchar; etest; - -stest(pbar); telchar "punctuation vertical bar"; -begintchar(p_bar_code,u#,x_height#,0,0,0,ur#); -p_bar_form; -sketch p_bar_p; -endtchar; etest; - -stest(pdbar); telchar "punctuation double bar"; -begintchar(p_dbar_code,2.5u#,x_height#,0,0,0,ur#); -p_bar_form; -sketch p_bar_p;sketch p_bar_p reflectedabout ((w/2,0),(w/2,h)); -endtchar; etest; - -stest(pcolon); telchar "punctuation colon"; -begintchar(p_colon_code,2*dot_radius#,x_height#,0,0,0,ur#); -z1=(dot_radius,dot_radius); -fill_dot(1); -z2=(x1,x_height-dot_radius); -fill_dot(2); -endtchar; etest; - -stest(pscolon); telchar "punctuation semicolon"; -begintchar(p_scolon_code,p_comma_width#,x_height#,des_depth#,0,0,ur#); -p_comma_form; -z5=(x1,x_height-dot_radius); -fill_dot(5); -endtchar; etest; - -stest(pcquote); telchar "punctuation closing quote"; -begintchar(p_cquote_code,p_comma_width#,asc_height#,0,0,0,ur#); -p_comma_form; -erase fill fill_dot_p; erase sketch p_comma_p; -fill fill_dot_p shifted (0,asc_height-2*dot_radius); -sketch p_comma_p shifted (0,asc_height-2*dot_radius); -endtchar; etest; - -stest(pcquotes); telchar "punctuation closing quotes"; -begintchar(p_cquotes_code,2*p_comma_width#+u#,asc_height#,0,0,0,ur#); -p_comma_form; -erase fill fill_dot_p; erase sketch p_comma_p; -fill fill_dot_p shifted (0,asc_height-2*dot_radius); -sketch p_comma_p shifted (0,asc_height-2*dot_radius); -fill fill_dot_p shifted (0,asc_height-2*dot_radius) - shifted (p_comma_width+u,0); -sketch p_comma_p shifted (0,asc_height-2*dot_radius) - shifted (p_comma_width+u,0); -endtchar; etest; - -stest(poquote); telchar "punctuation opening quote"; -begintchar(p_oquote_code,p_comma_width#,asc_height#,0,0,0,ur#); -p_comma_form; -erase fill fill_dot_p; erase sketch p_comma_p; -lft z5 = z2; -top rt z6 =z3; -fill fill_dot_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); -sketch p_comma_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); -endtchar; etest; - -stest(poquotes); telchar "punctuation opening quotes"; -begintchar(p_oquotes_code,2*p_comma_width#+u#,asc_height#,0,0,0,ur#); -p_comma_form; -erase fill fill_dot_p; erase sketch p_comma_p; -lft z5 = z2; -top rt z6 =z3; -fill fill_dot_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); -sketch p_comma_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)); -fill fill_dot_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)) - shifted(p_comma_width+u,0); -sketch p_comma_p rotatedaround (z5,-180) shifted(-x5,asc_height-abs(y6)) - shifted(p_comma_width+u,0); -endtchar; etest; - -stest(pdquotes);telchar "punctuation double quotes"; -begintchar(p_dquotes_code,4.5u#,asc_height#,0,0,0,ur#); -top lft z1=(1.5u,h); bot lft z2=(0,x_height); -top rt z3=(w,h); bot rt z4=(x1+1.5u,x_height); -sketch z1--z2; sketch z3--z4; -endtchar; etest; - -%stest(pdquotes);telchar "punctuation double quotes"; -%begintchar(p_dquotes_code,2*dot_radius#+u#,asc_height#,0,0,0,ur#); -%%begintchar(p_dquotes_code,4*dot_radius#+u#,asc_height#,0,0,0,ur#); -%path pa; -%%z1=(dot_radius,h-dot_radius);z1l=(0,y1);z1r=(2x1,y1);z1t=(x1,h); -%z1=(dot_radius/2,h-dot_radius/2);z1l=(0,y1);z1r=(2x1,y1);z1t=(x1,h); -%z2=(x1,x_height); -%%z2=(x1,x_height);z2l=(dot_radius/2,y2);z2r=(x2+(x2-x2l),y2); -%%pa= z2l--z1l & flex(z1l,z1t,z1r) & z1r--z2r--cycle; fill pa; -%pa= z2--z1l & flex(z1l,z1t,z1r) & z1r--z2--cycle; filldraw pa; -%filldraw pa shifted(dot_radius+u,0); -%%fill pa shifted(2dot_radius+u,0); -%endtchar; etest; - -stest(pslash); telchar "punctuation virgule (slash)"; -begintchar(p_slash_code,6u#,asc_height#,des_depth#,0,0,ur#); -p_slash_form; -sketch p_slash_p; -endtchar; etest; - -stest(phash); telchar "punctuation hash mark (number sign)"; -begintchar(p_hash_code,12u#,asc_height#,des_depth#,0,0,ur#); -numeric midpoint; -midpoint = (-des_depth+asc_height)/2; -lft z1=(0,midpoint+2u); rt z2=(w,y1); -lft z3=(0,midpoint-2u); rt z4=(w,y3); -bot z5=(2u,-d); top z6=(x5+4u,h); -z7=(x5+4u,y5); z8=(x7+4u,y6); -sketch z1--z2; sketch z3--z4; -sketch z5--z6; sketch z7--z8; -endtchar; etest; - -%stest(pexcla); telchar "punctuation exclamation point"; -%begintchar(p_excla_code,dot_radius#,asc_height#,0,0,0,ur#); -%pickup pencircle; -%z1=(dot_radius/2,dot_radius/2); -%filldraw fullcircle scaled 2x1 shifted z1; -%z2=(x1,5*y1); z3 =(x1,h-y1); -%z2l=(x1-dot_radius/4,y2); z2r=(x1+dot_radius/4,y2); -%z3l=(0,y3); z3r=(x1+dot_radius/2,y3); z3t=(x1,h); -%filldraw z2l--z3l & flex(z3l,z3t,z3r) & z3r--z2r--cycle; -%endtchar; etest; - -stest(pexcla); telchar "punctuation exclamation point"; -begintchar(p_excla_code,dot_radius#,asc_height#,0,0,0,ur#); -z1=(dot_radius,dot_radius); -fill_dot(1); -fill fullcircle scaled 2x1 shifted z1; -top z2=(x1,h); bot z3 =(x1,4*y1); -sketch z2--z3; -endtchar; etest; - -stest(pasterisk); telchar "punctuation asterisk"; -begintchar(p_asterisk_code,x_height#,x_height#,0,0,0,ur#); -z1=(1/2w,1/2h); - for d=30 step 60 until 330: - z[d]=z1+0.5 dir d xscaled w yscaled h; - sketch z1--z[d]; - penlabels(z[d]); - endfor; -endtchar; etest; - -stest(pplus); telchar "punctuation plus"; -begintchar(p_plus_code,x_height#,x_height#,0,0,0,ur#); -lft z1=(0,h/2); rt z2=(w,y1); top z3=(w/2,h); bot z4=(x3,0); -sketch z1--z2; sketch z3--z4; -endtchar; etest; - - -stest(plbracket); telchar "punctuation left bracket"; -begintchar(p_lbracket_code,3u#,top_height#,bot_depth#,0,0,ur#); -p_lbracket_form; -sketch p_lbracket_p; -endtchar; etest; - -stest(prbracket); telchar "punctuation right bracket"; -begintchar(p_rbracket_code,3u#,top_height#,bot_depth#,0,0,ur#); -p_lbracket_form; -sketch p_lbracket_p shifted (-w,0) reflectedabout ((0,0),(0,h)); -endtchar; etest; - -stest(plparen); telchar "punctuation left parenthesis"; -begintchar(p_lparen_code,3u#,top_height#,bot_depth#,0,0,ur#); -p_rparen_form; -sketch p_rparen_p shifted (-w,0) reflectedabout ((0,0),(0,h)); -endtchar; etest; - -stest(prparen); telchar "punctuation right parenthesis"; -begintchar(p_rparen_code,3u#,top_height#,bot_depth#,0,0,ur#); -p_rparen_form; -sketch p_rparen_p; -endtchar; etest; - -stest(plbrace); telchar "punctuation left brace"; -begintchar(p_lbrace_code,4u#,top_height#,bot_depth#,0,0,ur#); -p_lbrace_form; -sketch p_lbrace_p; -endtchar; etest; - -stest(prbrace); telchar "punctuation right brace"; -begintchar(p_rbrace_code,4u#,top_height#,bot_depth#,0,0,ur#); -p_lbrace_form; - sketch (p_lbrace_p shifted (-w,0) reflectedabout ((0,0),(0,h)) ); -endtchar; etest; - -stest(ppercent); telchar "punctuation percent sign"; -begintchar(p_percent_code,6u#,asc_height#,des_depth#,0,0,ur#); -p_slash_form; -sketch p_slash_p; -z3=(3(x1+x2)/8,-d+7/8(h+d)); -z4=(w-x3,-d+(h-y3)); -sketch fullcircle scaled (1.5u) shifted z3; -sketch fullcircle scaled (1.5u) shifted z4; -endtchar; etest; - -stest(pbslash); telchar "punctuation backslash"; -begintchar(p_bslash_code,6u#,asc_height#,des_depth#,0,0,ur#); -p_slash_form; -sketch p_slash_p reflectedabout ((w/2,h),(w/2,0)); -endtchar; etest; - -stest(plbar); telchar "punctuation long bar"; -begintchar(p_lbar_code,u#,asc_height#,des_depth#,0,0,ur#); -top z1=(w/2,h); bot z2=(x1,-d); -sketch z1--z2; -endtchar; etest; - -stest(phyphen); telchar "punctuation hyphen"; -begintchar(p_hyphen_code,6u#,1/2x_height#,0,0,0,ur#); -top lft z1=(0,h); top rt z2=(w,h); -sketch z1--z2; -endtchar; etest; - -stest(plhyphen); telchar "punctuation long hyphen"; -begintchar(p_lhyphen_code,9u#,1/2x_height#,0,0,0,ur#); -top lft z1=(0,h); top rt z2=(w,h); -sketch z1--z2; -endtchar; etest; - -stest(pvlhyphen); telchar "punctuation very long hyphen"; -begintchar(p_vlhyphen_code,15u#,1/2x_height#,0,0,0,ur#); -top lft z1=(0,h); top rt z2=(w,h); -sketch z1--z2; -endtchar; etest; - -stest(pubar); telchar "punctuation underbar"; -begintchar(p_ubar_code,x_height#,0,uh#,0,0,ur#); -bot lft z1=(0,-d); bot rt z2=(w,-d); -sketch z1--z2; -endtchar; etest; - -stest(pquestion); telchar "punctuation question mark"; -begintchar(p_question_code,6u#,asc_height#,0,0,0,ur#); -lft z1=(0,h-2dot_radius); top z2=(w/2,h); -rt z3=(w,y1); z4=(x2,1/2x_height); -z5=(x2,1/3(y2+y4)); z6=(x2,dot_radius);fill_dot(6); -sketch z1..z2..z3..z5..tension 1.5..z4; -endtchar; etest; - -stest(pdollar); telchar "punctuation dollar sign"; -begintchar(p_dollar_code,cb_ka_width#,x_height#+1.5uh#,1.5uh#,0,0,ur#); -cb_ka_form; -sketch z1..z2..z3..z4..z5..z6..z7; -top z11 = (w/2,h); bot z12 = (w/2,-d); -sketch z11--z12; -endtchar; etest; - -stest(pgreater); telchar "punctuation greater than"; -begintchar(p_greater_code,7u#,x_height#,0,0,0,ur#); -bot lft z1=(0,0); top lft z2=(0,x_height); rt z3=(w,1/2(y1+y2)); -sketch z1--z3; sketch z2--z3; -endtchar; etest; - -stest(pless); telchar "punctuation less than"; -begintchar(p_less_code,7u#,x_height#,0,0,0,ur#); -bot rt z1=(w,0); top rt z2=(w,x_height); lft z3=(0,1/2(y1+y2)); -sketch z1--z3; sketch z2--z3; -endtchar; etest; - -stest(pat); telchar "punctuation at sign"; -begintchar(p_at_code,10u#,asc_height#,0,0,0,ur#); -z1=(w/2,3/4h); z2=(1/5w,1/2h); -z3=(x1,1/4h); z4=(4/5w,5/8h); -z5=(4/5w,3/8h); z6=(9/10w,y3); -rt z7=(w,y2); top z8=(x1,h); -lft z9=(0,y2); bot z10=(x1,0); rt z11=(x7,1/8h); -sketch z5..z3..z2..z1..z4&z4--z5& z5..z6..z7{up}..{left}z8..z9..z10..z11; -endtchar; etest; - -stest(ptilde); telchar "punctuation tilde sign"; -begintchar(p_tilde_code,9u#,asc_height#,0,0,0,ur#); -top lft z1=(0,asc_height2); top z2=(w/3,h); -z3=(2/3w,y1); top rt z4=(w,y2); -sketch z1..z2..z3..z4; -endtchar; etest; - -stest(phat); telchar "punctuation circumflex(hat)"; -begintchar(p_hat_code,5u#,asc_height#,0,0,0,ur#); -lft z1=(0,asc_height1); rt z2=(w,y1); top z3=(1/2(x1+x2),h); -sketch z1--z3; sketch z3--z2; -endtchar; etest; - -stest(pampersand); telchar "punctuation ampersand"; -begintchar(p_ampersand_code,11u#,asc_height#,0,0,0,ur#); -rt z11=(w,1/4x_height); bot z10=(3/4w,0); -z1=(x10+u,x_height); y1a=y1; x1-x1a=w-x1; rt z1b=(w,x_height); -bot z2=(w/4,0);lft z3=(0,y11); z4=(w/8,1/2x_height+uh); -z5=(x2,3/4x_height); z6=(w/2,asc_height1); -top z7=(5/12w,h); z8=(5/24w,y6); %z9=(x7,1/2x_height); -sketch z1a--z1b; -sketch z1..{left}z2..z3..z4..z5..z6..z7..z8..z5..z10..z11; -penlabels (1a,1b); -endtchar; etest; - -% ---------------- end of punctuation ------------ diff --git a/Master/texmf-dist/fonts/source/public/itrans/telcodes.mf b/Master/texmf-dist/fonts/source/public/itrans/telcodes.mf deleted file mode 100644 index 98f94481881..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telcodes.mf +++ /dev/null @@ -1,282 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%%%% -% This file contains codes to determine where various symbols -% are placed in the font. The symbols that are also part of ASCII -% character set are placed at the same location as in ASCII code. -% Any revision of this file MUST maintain this assignment. -% All telugu digits are given contiguous codes in the order -% 0,1,2,3,4,5,6,7,8,9. Any revision of this file MUST maintain -% this property. -% -% vowels -v_a_code := oct"027"; -v_aa_code := v_a_code +1; -v_e_code := v_aa_code +1; -v_ee_code := v_e_code +1; -v_u_code := v_ee_code +1; -v_uu_code := v_u_code +1; -v_ro_code := v_uu_code +1; -v_roo_code := v_ro_code +1; -v_lo_code := v_roo_code +1; -v_loo_code := v_lo_code +1; -v_ea_code := oct"101"; -v_eae_code := v_ea_code +1; -v_i_code := v_eae_code +1; -v_ao_code := v_i_code +1; -v_aoo_code := v_ao_code +1; -v_au_code := v_aoo_code +1; - -% vowel modifiers -vm_a_code := oct"200"; -vm_aa_code := vm_a_code +1; -vm_aaa_code := vm_aa_code +1; -vm_e_code := vm_aaa_code +1; -vm_ee_code := vm_e_code +1; -vm_eea_code := vm_ee_code +1; -vm_eeb_code := vm_eea_code +1; -vm_u_code := vm_eeb_code +1; -vm_uu_code := vm_u_code +1; -vm_ro_code := vm_uu_code +1; -vm_roo_code := vm_ro_code +1; -vm_lo_code := vm_roo_code +1; -vm_loo_code := vm_lo_code +1; -vm_ea_code := vm_loo_code +1; -vm_eae_code := vm_ea_code +1; -vm_i1_code := vm_ea_code; -vm_i2_code := vm_eae_code +1; -vm_ao_code := vm_i2_code +1; -vm_aoo_code := vm_ao_code +1; -vm_aoo_code_a := vm_aoo_code +1; -vm_au_code := vm_aoo_code_a+1; -vm_p_code := vm_au_code +1; - -% Consonant bases -cb_ka_code := v_au_code +1; -cb_kha_code := cb_ka_code +1; -cb_ga_code := cb_kha_code +1; -cb_gha_code := cb_ga_code +1; -cb_nga_code := cb_gha_code +1; -cb_cha_code := cb_nga_code +1; -cb_ccha_code := cb_cha_code +1; -cb_ja_code := cb_ccha_code +1; -cb_jha_code := cb_ja_code +1; -cb_nya_code := cb_jha_code +1; -cb_tta_code := cb_nya_code +1; -cb_ttha_code := cb_tta_code +1; -cb_dda_code := cb_ttha_code +1; -cb_ddha_code := cb_dda_code +1; -cb_nna_code := cb_ddha_code +1; -cb_ta_code := cb_nna_code +1; -cb_tha_code := cb_ta_code +1; -cb_da_code := cb_tha_code +1; -cb_dha_code := cb_da_code +1; -cb_na_code := cb_dha_code +1; -cb_pa_code := oct"141"; -cb_pha_code := cb_pa_code +1; -cb_ba_code := cb_pha_code +1; -cb_bha_code := cb_ba_code +1; -cb_ma_code := cb_bha_code +1; -cb_ya_code := cb_ma_code +1; -cb_ra_code := cb_ya_code +1; -cb_rra_code := cb_ra_code +1; -cb_la_code := cb_rra_code +1; -cb_lla_code := cb_la_code +1; -cb_va_code := cb_lla_code +1; -cb_ca_code := cb_va_code +1; -cb_sha_code := cb_ca_code +1; -cb_sa_code := cb_sha_code +1; -cb_ha_code := cb_sa_code +1; -cb_ksha_code := cb_ha_code +1; -cb_dt_code := cb_ksha_code +1; -cb_np_code := cb_dt_code +1; -cb_vg_code := cb_np_code +1; -cb_bb_code := cb_vg_code +1; % boxes(bb,bo,be)(used for demonstrating -% vowel modifiers, cons. conjuncts) -cb_bo_code := cb_bb_code +1; -cb_be_code := cb_bo_code +1; - -% Consonant conjuncts -cc_ka_code := vm_p_code +1; -cc_kha_code := cc_ka_code +1; -cc_ga_code := cc_kha_code +1; -cc_gha_code := cc_ga_code +1; -cc_nga_code := cc_gha_code +1; -cc_cha_code := cc_nga_code +1; -cc_ccha_code := cc_cha_code +1; -cc_ja_code := cc_ccha_code +1; -cc_jha_code := cc_ja_code +1; -cc_nya_code := cc_jha_code +1; -cc_tta_code := cc_nya_code +1; -cc_ttha_code := cc_tta_code +1; -cc_dda_code := cc_ttha_code +1; -cc_ddha_code := cc_dda_code +1; -cc_nna_code := cc_ddha_code +1; -cc_ta_code := cc_nna_code +1; -cc_tha_code := cc_ta_code +1; -cc_da_code := cc_tha_code +1; -cc_dha_code := cc_da_code +1; -cc_na_code := cc_dha_code +1; -cc_pa_code := cc_na_code +1; -cc_pha_code := cc_pa_code +1; -cc_ba_code := cc_pha_code +1; -cc_bha_code := cc_ba_code +1; -cc_ma_code := cc_bha_code +1; -cc_ya_code := cc_ma_code +1; -cc_ra_code := cc_ya_code +1; -cc_rra_code := cc_ra_code +1; -cc_la_code := cc_rra_code +1; -cc_lla_code := cc_la_code +1; -cc_va_code := cc_lla_code +1; -cc_ca_code := cc_va_code +1; -cc_sha_code := cc_ca_code +1; -cc_sa_code := cc_sha_code +1; -cc_ha_code := cc_sa_code +1; - -% bars used for transliteration of vedic hymns -% and other symbols used for singing -b_udatta1_code := oct"005"; -b_udatta2_code := b_udatta1_code +1; -b_anudatta_code := b_udatta2_code +1; - -% Roman digits -dr_zero_code := ASCII"0"; -dr_one_code := dr_zero_code +1; -dr_two_code := dr_one_code +1; -dr_three_code := dr_two_code +1; -dr_four_code := dr_three_code +1; -dr_five_code := dr_four_code +1; -dr_six_code := dr_five_code +1; -dr_seven_code := dr_six_code +1; -dr_eight_code := dr_seven_code +1; -dr_nine_code := dr_eight_code +1; - -% Telugu digits -dt_zero_code := oct"015"; -dt_one_code := dt_zero_code +1; -dt_two_code := dt_one_code +1; -dt_three_code := dt_two_code +1; -dt_four_code := dt_three_code +1; -dt_five_code := dt_four_code +1; -dt_six_code := dt_five_code +1; -dt_seven_code := dt_six_code +1; -dt_eight_code := dt_seven_code +1; -dt_nine_code := dt_eight_code +1; - -% Punctuations -p_period_code := ASCII"."; -p_comma_code := ASCII","; -p_equal_code := ASCII"="; -p_bar_code := oct"177"; -p_dbar_code := oct"000"; -p_colon_code := ASCII":"; -p_scolon_code := ASCII";"; -p_cquote_code := ASCII"'"; -p_cquotes_code := oct"001"; -p_oquote_code := ASCII"`"; -p_oquotes_code := oct"002"; -p_dquotes_code := ASCII ditto; %ASCII " -p_slash_code := ASCII"/"; -p_hash_code := ASCII"#"; -p_excla_code := ASCII"!"; -p_asterisk_code := ASCII"*"; -p_plus_code := ASCII"+"; -p_lbracket_code := ASCII"["; -p_rbracket_code := ASCII"]"; -p_lparen_code := ASCII"("; -p_rparen_code := ASCII")"; -p_lbrace_code := ASCII"{"; -p_rbrace_code := ASCII"}"; -p_percent_code := ASCII"%"; -p_bslash_code := ASCII"\"; -p_lbar_code := ASCII"|"; -p_hyphen_code := ASCII"-"; -p_lhyphen_code := oct"003"; -p_vlhyphen_code := oct"004"; -p_ubar_code := ASCII"_"; -p_question_code := ASCII"?"; -p_dollar_code := ASCII"$"; -p_greater_code := ASCII">"; -p_less_code := ASCII"<"; -p_at_code := ASCII"@"; -p_tilde_code := ASCII"~"; -p_hat_code := ASCII"^"; -p_ampersand_code := ASCII"&"; - -% Ubayaksharas -u_ardhasunna_code := oct"010"; -u_sunna_code := u_ardhasunna_code +1; -u_visarga_code := u_sunna_code +1; -u_ardhavisarga_code := u_visarga_code +1; -u_avagraha_code := u_ardhavisarga_code +1; - -%some consonant+vowel's need special symbols. Next we will -%define codes for these symbols. -cv_ku_code := cc_ha_code+1; -cv_khe_code := cv_ku_code+1; -cv_khao_code := cv_khe_code+1; -cv_ge_code := cv_khao_code+1; -cv_ngu_code := cv_ge_code+1; -cv_nguu_code := cv_ngu_code+1; -cv_che_code := cv_nguu_code+1; -cv_chao_code := cv_che_code+1; -cv_cche_code := cv_chao_code+1; -cv_cchao_code := cv_cche_code+1; -cv_je_code := cv_cchao_code+1; -cv_ju_code := cv_je_code+1; -cv_juu_code := cv_ju_code+1; -cv_jao_code := cv_juu_code+1; -cv_ttao_code := cv_jao_code+1; -cv_tthe_code := cv_ttao_code+1; -cv_ddu_code := cv_tthe_code+1; -cv_ddhu_code := cv_ddu_code+1; -cv_te_code := cv_ddhu_code+1; -cv_tao_code := cv_te_code+1; -cv_the_code := cv_tao_code+1; -cv_de_code := cv_the_code+1; -cv_dhe_code := cv_de_code+1; -cv_ne_code := cv_dhe_code+1; -cv_nao_code := cv_ne_code+1; -cv_paa_code := cv_nao_code+1; -cv_pu_code := cv_paa_code+1; -ccv_pu_code := cv_pu_code+1; %con. conjunct for pa + vowel u -cv_puu_code := ccv_pu_code+1; -ccv_puu_code := cv_puu_code+1; %con. conjunct for pa + vowel uu -cv_phaa_code := ccv_puu_code+1; -ccv_phu_code := cv_phaa_code+1; %con. conjunct for pha + vowel u -ccv_phuu_code := ccv_phu_code+1; %con. conjunct for pha + vowel uu -cv_be_code := ccv_phuu_code+1; -cv_bao_code := cv_be_code+1; -cv_bhe_code := cv_bao_code+1; -cv_bhao_code := cv_bhe_code+1; -cv_re_code := cv_bhao_code+1; -cv_le_code := cv_re_code+1; -cv_lao_code := cv_le_code+1; -cv_lle_code := cv_lao_code+1; -cv_llu_code := cv_lle_code+1; -cv_llao_code := cv_llu_code+1; -cv_ve_code := cv_llao_code+1; -cv_vao_code := cv_ve_code+1; -cv_ce_code := cv_vao_code+1; -cv_cao_code := cv_ce_code+1; -cv_shaa_code := cv_cao_code+1; -cv_shu_code := cv_shaa_code+1; -cv_saa_code := cv_shu_code+1; -cv_haa_code := cv_saa_code+1; -cv_hao_code := cv_haa_code+1; -cv_kshu_code := cv_hao_code+1; diff --git a/Master/texmf-dist/fonts/source/public/itrans/telmode.mf b/Master/texmf-dist/fonts/source/public/itrans/telmode.mf deleted file mode 100644 index 63760d2a2bc..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telmode.mf +++ /dev/null @@ -1,21 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. - -% avinash: comment out the mode line, since MakeTeXPK or MakeTeXTFM will -% pass the correct mode to mf anyway, no need to hardcode it here. -% mode=localfont; diff --git a/Master/texmf-dist/fonts/source/public/itrans/telparam.mf b/Master/texmf-dist/fonts/source/public/itrans/telparam.mf deleted file mode 100644 index 74cb3f0efe0..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telparam.mf +++ /dev/null @@ -1,135 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%%%%% -% This file contains various parameters used in making a font -% for telugu. Many of the parameters are used in several places. -% Before changing anything here you should be very clear about -% the possible impact. -% -input telbase % read basefile - -font_identifier :="TELUGU"; - -% parameters - -u#:=designsize/18; % unit width -v#:=designsize; % total height -uh#:=v#/18; % unit height -top_shoulder:=2/36; % top shoulder proportion -bot_shoulder:=2/36; % bottom shoulder proportion -xheight:=15/36; % x height proportion -ascheight:=10/36; % ascender height proportion -desdepth:=7/36; % descender depth proportion -figheight:=6/36; % height of roman digits - -em_width#:=18u#; % same as font_quad - -asc_height#:=(ascheight+xheight)*v#; -des_depth#:=desdepth*v#; -x_height#:=xheight*v#; -bot_depth#:=(bot_shoulder+desdepth)*v#; -top_height#:=(top_shoulder+ascheight+xheight)*v#; -fig_height#:=(figheight+xheight)*v#; % height of roman digits -tfig_width#:=7.5u#; % width of telugu digits -tfig_height#:=x_height#; % height of telugu digits - -asc_height1#:=(1/3ascheight+xheight)*v#; -asc_height2#:=(2/3ascheight+xheight)*v#; - -j_height#:=2/3x_height#; % height of bowls in ja,ta etc -c_height#:=1/3x_height#; % height of circle in ma, va etc -% c_height is used to draw small circles. If we use a wide pen then the circle -% may not be clearly visible. Hence the following statement. -if c_height# < (3.2*pen_width#):c_height#:=3.2pen_width#; fi; -w_height#:=1/3x_height#; % height of wedge in da,ta etc -ascunit#:=1/6(asc_height#-x_height#); % a unit for acsender area -vmwidth#:=7u#; % width of vowel modifiers -top_accent#:=1.5uh#; % base for accents that appear at top -bot_accent#:=1.5uh#; % base for accents that appear below -cc_scale:=0.7; % scale factor for consonant conjuncts -ccwidth#:=vmwidth#; % width of co.conjuncts that appear on % the side -dot_radius#:=u#; % radius of dot -wedge_height#:=x_height#/4; % height of wedge (in dha, uu etc) -wedge_depth#:=4/9des_depth#; % depth of wedge(in dha,uu etc) -sc_height#:=1/6x_height#; % misc. usage - -v_a_width#:=10u#; % width of vowel a -v_e_width#:=7.5u#; % width of vowel e -v_u_width#:=8u#; % width of vowel u (like dda no hat -v_lo_width#:=11u#; % width of vowel lo(inverted ja) -v_ea_width#:=6u#; % width of vowel ea(like va without -v_i_width#:=7u#; % width of vowel i - -vm_a_width#:=5u#; % width of vowel modifier a -vm_e_width#:=4u#; % width of vowel modifier e -vm_e_height1#:=asc_height2#; % height of vowelmodifier e (used - % with certain consonants kha,cha, - % ccha,ja,ta,na,ba,bha,ma,la,va etc) -vm_e_height2#:=5/6x_height#; % vowel mod. e for ra,ga.da sits -vm_e_height3#:=(1/2ascheight+xheight)*v#; % between vm_e_height2 and 3 -vm_u_width#:=5u#; % width of ubowl (attached to letter -vm_ro_width#:=6u#; % width of vowel modifier ro -vm_ao_width#:=8u#; % width of vowel modifier ao -vm_aoo_width#:=vm_ao_width#+1.5u#; % width of vowel modifier aoo - -cb_ka_width#:=6u#; % width of ka -cb_kha_width#:=7.5u#; % width of kha -cb_ga_width#:=6u#; % width of ga -cb_cha_width#:=9u#; % width of cha -cb_ja_width#:=7.5u#; % width of ja -cb_tta_width#:=10.5u#; % width of tta -cb_nna_width#:=10u#; % width of nna -cb_ta_width#:=8u#; % width of ta -cb_da_width#:=9.0u#; % width of da -cb_na_width#:=7.5u#; % width of na -cb_ba_width#:=7.5u#; % width of ba -cb_ya_width#:=10u#; % width of ya (without bowl) -cb_ra_width#:=6u#; % width of ra -cb_la_width#:=9u#; % width of la -cb_lla_width#:=6u#; % width of lla -cb_va_width#:=7.5u#; % width of va -cb_ca_width#:=5u#; % width of ca -cb_sha_width#:=cb_va_width#+1.5u#; % width of sha -cb_ksha_width#:=cb_ka_width#; % width of ksha -cb_ksha_depth#:=des_depth#; % floor of ksha -cb_np_width#:=ccwidth#; % width of nakarapollu -cb_vg_width#:=ccwidth#; % width of valapalagilaka - -cv_pu_width#:=cb_va_width#+2u#; % width of u modifier for pa -cv_pu_depth#:=1.5uh#; % depth of u modifier for pa - -p_comma_width#:=2dot_radius#+u#; % width of comma -half_plus_width#:=cb_ja_width#/2; % width of symbol like truncated + - -% ul#, ur# indicate the amount of white space that is added -% to a symbol. Following are the criteria used to add space -% consonant base, vowels - none -% punctuation,digits - on right -% consonant conjuncts that appear below,vowel modifiers that appear -% above/below - none -% accents that appear below/above - none -% consonant conjuncts that appear on the side - on left -% vowel modifiers for u, uu - none -% vowel modifiers for ro, roo - on left -% While composing Telugu text using TeX, space is added after a syllable -% by the macros that build a syllable. -ul#:=2u#; % white space (on left) -ur#:=2u#; % white space (on right) - - -generate telugu; % switch to driver files diff --git a/Master/texmf-dist/fonts/source/public/itrans/telspc.mf b/Master/texmf-dist/fonts/source/public/itrans/telspc.mf deleted file mode 100644 index c2ae45d132e..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telspc.mf +++ /dev/null @@ -1,52 +0,0 @@ -%telspc% -% generates striped characters with shading -input telmode; -font_size 72pt#; -slant:=0; -pen_width#:=2.5pt#; -% Following code(with minor modifications) is taken from the article, -% The ABC's of Special Effects by Georgia K. M. Tobin, -% that appeared in TUGboat, Volume 9(1988), No. 1 -vardef special_effects= -% creates characters filled with stripes and followed by a shadow. - cullit; - picture Normalchar; - Normalchar:=currentpicture; - clearit; -% Depending on the output device, pen size(0.1pt) may need to be -% changed. - pickup pencircle scaled 0.1pt; - filldraw (0,-d)--(w,-d)-- - (w,h)--(0,h)--cycle; - picture Blackbox; - Blackbox:=currentpicture; - picture Reversevideo; - Reversevideo:=Blackbox-Normalchar; - clearit; -% Depending on the output device,stepsize(uh/3) may need to be -% changed. - for f=-d step uh/3 until h: - draw(0,f)--(w,f); - endfor; - currentpicture:= - currentpicture-Reversevideo; - cullit; - picture Stripedchar; - Stripedchar:=currentpicture; - clearit; -% Depending on the output device,offset(1.5pt) may need to be -% changed. - currentpicture:=Normalchar shifted(1.5pt,-1.5pt); - picture Shadow; - Shadow:=currentpicture; - clearit; - currentpicture:=Shadow-Normalchar; - cullit; - picture Shadowonly; - Shadowonly:=currentpicture; - clearit; - - currentpicture:=Shadowonly+Stripedchar; -enddef; -input telparam; -%% diff --git a/Master/texmf-dist/fonts/source/public/itrans/telugu.mf b/Master/texmf-dist/fonts/source/public/itrans/telugu.mf deleted file mode 100644 index f442599c9f2..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/telugu.mf +++ /dev/null @@ -1,48 +0,0 @@ -% This file is part of the TeluguTeX Software Package. -%Copyright (c) 1991 Lakshmankumar Mukkavilli -% -%The TeluguTeX Software Package is distributed in the hope that -%it will be useful,but WITHOUT ANY WARRANTY. No author or distributor -%accepts responsibility to anyone for the consequences of using it -%or for whether it serves any particular purpose or works at all, -%unless he says so in writing. Refer to the TeluguTeX Software Package -%General Public License for full details. -% -%Everyone is granted permission to copy, modify and redistribute -%the TeluguTeX Software Package, but only under the conditions described in the -%TeluguTeX Software Package General Public License. A copy of this license is -%supposed to have been given to you along with TeluguTeX Software Package so you -%can know your rights and responsibilities. It should be in a -%file named CopyrightLong. Among other things, the copyright notice -%and this notice must be preserved on all copies. -%%%%%%% -% This file contains font dimensions, ligature definitions etc. -% -font_coding_scheme := "TeX text"; - -mode_setup; font_setup; - -input telcodes; % codes for telugu symbols -input telchrs1; % vowels,vowel modifiers, consonant bases, -% % consonant conjuncts, accents, c+v's -input telchrs2; % consonant + vowel that need special care -input telchrs3; % digits(roman&Telugu), punctuation - -% Font Dimensions - -font_slant slant; -font_x_height x_height#; -font_normal_space 6u#; -font_normal_stretch 3u#; -font_normal_shrink 2u#; -font_quad em_width#; -font_extra_space 2u#; - -%ligature and kern information - -ligtable "'": "'" =: p_cquotes_code; % close quotes -ligtable "`": "`" =: p_oquotes_code; % open quotes -ligtable "-": "-" =: p_lhyphen_code; % en dash -ligtable p_lhyphen_code: "-" =: p_vlhyphen_code; % em dash - -if not testing: expandafter stop fi; diff --git a/Master/texmf-dist/fonts/source/public/itrans/wntml12.mf b/Master/texmf-dist/fonts/source/public/itrans/wntml12.mf deleted file mode 100644 index 46d97df59aa..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/wntml12.mf +++ /dev/null @@ -1,77 +0,0 @@ -% This is WNTML12.MF (Washington Tamil 12pt) -% based on CMR12.MF -% Created by Avinash Chopde, from the existing U of Wash definition -if unknown cmbase: input cmbase fi - -font_identifier:="WNTML"; font_size 12pt#; - -u#:=23.5/36pt#; % unit width -width_adj#:=0pt#; % width adjustment for certain characters -serif_fit#:=0pt#; % extra sidebar near lowercase serifs -cap_serif_fit#:=5.8/36pt#; % extra sidebar near uppercase serifs -letter_fit#:=0pt#; % extra space added to all sidebars - -body_height#:=324/36pt#; % height of tallest characters -asc_height#:=300/36pt#; % height of lowercase ascenders -cap_height#:=295.2/36pt#; % height of caps -fig_height#:=278.4/36pt#; % height of numerals -x_height#:=186/36pt#; % height of lowercase without ascenders -math_axis#:=108/36pt#; % axis of symmetry for math symbols -bar_height#:=104.4/36pt#; % height of crossbar in lowercase e -comma_depth#:=84/36pt#; % depth of comma below baseline -desc_depth#:=84/36pt#; % depth of lowercase descenders - -crisp#:=0pt#; % diameter of serif corners -tiny#:=8/36pt#; % diameter of rounded corners -fine#:=7/36pt#; % diameter of sharply rounded corners -thin_join#:=7.5/36pt#; % width of extrafine details -hair#:=9.5/36pt#; % lowercase hairline breadth -stem#:=28/36pt#; % lowercase stem breadth -curve#:=33/36pt#; % lowercase curve breadth -ess#:=30/36pt#; % breadth in middle of lowercase s -flare#:=36/36pt#; % diameter of bulbs or breadth of terminals -dot_size#:=42/36pt#; % diameter of dots -cap_hair#:=11.5/36pt#; % uppercase hairline breadth -cap_stem#:=35/36pt#; % uppercase stem breadth -cap_curve#:=40/36pt#; % uppercase curve breadth -cap_ess#:=38/36pt#; % breadth in middle of uppercase s -rule_thickness#:=.44pt#; % thickness of lines in math symbols - -dish#:=1/36pt#; % amount erased at top or bottom of serifs -bracket#:=24/36pt#; % vertical distance from serif base to tangent -jut#:=33/36pt#; % protrusion of lowercase serifs -cap_jut#:=41/36pt#; % protrusion of uppercase serifs -beak_jut#:=11.4/36pt#; % horizontal protrusion of beak serifs -beak#:=84/36pt#; % vertical protrusion of beak serifs -vair#:=8.5/36pt#; % vertical diameter of hairlines -notch_cut#:=12pt#; % maximum breadth above or below notches -bar#:=12.5/36pt#; % lowercase bar thickness -slab#:=12.5/36pt#; % serif and arm thickness -cap_bar#:=12.5/36pt#; % uppercase bar thickness -cap_band#:=12.5/36pt#; % uppercase thickness above/below lobes -cap_notch_cut#:=12pt#; % max breadth above/below uppercase notches -serif_drop#:=4.8/36pt#; % vertical drop of sloped serifs -stem_corr#:=1/36pt#; % for small refinements of stem breadth -vair_corr#:=1/36pt#; % for small refinements of hairline height -apex_corr#:=0pt#; % extra width at diagonal junctions - -o#:=9/36pt#; % amount of overshoot for curves -apex_o#:=9/36pt#; % amount of overshoot for diagonal junctions - -slant:=0; % tilt ratio $(\Delta x/\Delta y)$ -fudge:=1; % factor applied to weights of heavy characters -math_spread:=-0.2; % extra openness of math symbols -superness:=1/sqrt2; % parameter for superellipses -superpull:=1/6; % extra openness inside bowls -beak_darkness:=11/30; % fraction of triangle inside beak serifs -ligs:=2; % level of ligatures to be included - -square_dots:=false; % should dots be square? -hefty:=false; % should we try hard not to be overweight? -serifs:=true; % should serifs and bulbs be attached? -monospace:=false; % should all characters have the same width? -variant_g:=false; % should an italic-style g be used? -low_asterisk:=false; % should the asterisk be centered at the axis? -math_fitting:=false; % should math-mode spacing be used? - -generate wntamil % switch to the driver file diff --git a/Master/texmf-dist/fonts/source/public/itrans/wntml17.mf b/Master/texmf-dist/fonts/source/public/itrans/wntml17.mf deleted file mode 100644 index 57fc94db469..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/wntml17.mf +++ /dev/null @@ -1,77 +0,0 @@ -% This is WNTML12.MF (Washington Tamil 12pt) -% based on CMR12.MF -% Created by Avinash Chopde, from the existing U of Wash definition -if unknown cmbase: input cmbase fi - -font_identifier:="WNTML"; font_size 17.28pt#; - -u#:=32.5/36pt#; % unit width -width_adj#:=0pt#; % width adjustment for certain characters -serif_fit#:=0pt#; % extra sidebar near lowercase serifs -cap_serif_fit#:=8/36pt#; % extra sidebar near uppercase serifs -letter_fit#:=-0.1pt#; % extra space added to all sidebars - -body_height#:=466/36pt#; % height of tallest characters -asc_height#:=432/36pt#; % height of lowercase ascenders -cap_height#:=425/36pt#; % height of caps -fig_height#:=401/36pt#; % height of numerals -x_height#:=267.8/36pt#; % height of lowercase without ascenders -math_axis#:=155.5/36pt#; % axis of symmetry for math symbols -bar_height#:=150/36pt#; % height of crossbar in lowercase e -comma_depth#:=121/36pt#; % depth of comma below baseline -desc_depth#:=121/36pt#; % depth of lowercase descenders - -crisp#:=0pt#; % diameter of serif corners -tiny#:=8/36pt#; % diameter of rounded corners -fine#:=7/36pt#; % diameter of sharply rounded corners -thin_join#:=9/36pt#; % width of extrafine details -hair#:=11/36pt#; % lowercase hairline breadth -stem#:=33/36pt#; % lowercase stem breadth -curve#:=40/36pt#; % lowercase curve breadth -ess#:=35/36pt#; % breadth in middle of lowercase s -flare#:=45/36pt#; % diameter of bulbs or breadth of terminals -dot_size#:=51/36pt#; % diameter of dots -cap_hair#:=13/36pt#; % uppercase hairline breadth -cap_stem#:=41/36pt#; % uppercase stem breadth -cap_curve#:=47/36pt#; % uppercase curve breadth -cap_ess#:=43/36pt#; % breadth in middle of uppercase s -rule_thickness#:=.6pt#; % thickness of lines in math symbols - -dish#:=1/36pt#; % amount erased at top or bottom of serifs -bracket#:=34/36pt#; % vertical distance from serif base to tangent -jut#:=42/36pt#; % protrusion of lowercase serifs -cap_jut#:=50/36pt#; % protrusion of uppercase serifs -beak_jut#:=15/36pt#; % horizontal protrusion of beak serifs -beak#:=121/36pt#; % vertical protrusion of beak serifs -vair#:=10/36pt#; % vertical diameter of hairlines -notch_cut#:=17pt#; % maximum breadth above or below notches -bar#:=16/36pt#; % lowercase bar thickness -slab#:=16/36pt#; % serif and arm thickness -cap_bar#:=16/36pt#; % uppercase bar thickness -cap_band#:=16/36pt#; % uppercase thickness above/below lobes -cap_notch_cut#:=17pt#; % max breadth above/below uppercase notches -serif_drop#:=7/36pt#; % vertical drop of sloped serifs -stem_corr#:=1/36pt#; % for small refinements of stem breadth -vair_corr#:=1/36pt#; % for small refinements of hairline height -apex_corr#:=0pt#; % extra width at diagonal junctions - -o#:=10/36pt#; % amount of overshoot for curves -apex_o#:=10/36pt#; % amount of overshoot for diagonal junctions - -slant:=0; % tilt ratio $(\Delta x/\Delta y)$ -fudge:=1; % factor applied to weights of heavy characters -math_spread:=-0.4; % extra openness of math symbols -superness:=1/sqrt2; % parameter for superellipses -superpull:=1/6; % extra openness inside bowls -beak_darkness:=11/30; % fraction of triangle inside beak serifs -ligs:=2; % level of ligatures to be included - -square_dots:=false; % should dots be square? -hefty:=false; % should we try hard not to be overweight? -serifs:=true; % should serifs and bulbs be attached? -monospace:=false; % should all characters have the same width? -variant_g:=false; % should an italic-style g be used? -low_asterisk:=false; % should the asterisk be centered at the axis? -math_fitting:=false; % should math-mode spacing be used? - -generate wntamil % switch to the driver file |