path: root/language/telugu/telchars2.mf

% 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;