diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/kdgreek/kdaccent.mf')
| -rw-r--r-- | Master/texmf-dist/fonts/source/public/kdgreek/kdaccent.mf | 489 |
1 files changed, 489 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/kdgreek/kdaccent.mf b/Master/texmf-dist/fonts/source/public/kdgreek/kdaccent.mf new file mode 100644 index 00000000000..6ac1114a8b1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/kdgreek/kdaccent.mf @@ -0,0 +1,489 @@ +% ====================================================================== +% KD Classical Greek Family of Fonts +% ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +% +% A set of MF source fonts for use with TeX version 3.0 or higher +% accompanied with macros and hyphenation tables to facilitate +% the typesetting of greek texts +% +% This piece of work is partially based on original work of +% Sylvio Levi (design of an excellent set of fonts) +% and Yianni Haralambous (ideas about macros other fonts). +% +% This file is part of the greektex package and abides to +% copyright laws of the GNU general public software licence +% +% You are allowed to use or modify this file as long as the +% original authors are clearly mentioned. It is ILLEGAL to sell +% any part of this work or work derived from it. You may not +% charge for this work except to cover for reasonable media +% expensess. +% +% K J Dryllerakis (C) 1991-1992 +% +% ====================================================================== +% +% Computer Classic Greek Font Accents +% KDACCENT.MF: defines all Greek diacritic marks. +% +% K J Dryllerakis May 1991. Code based on Haralambous Package. +% +if one_accent: gen_acc:=0; else: gen_acc:=1; fi +def acc_corr=0 enddef; +def separator= + if one_accent : + max(1,vround(1/12x_height)) + else: + max(1,vround(1/20x_height)) + fi +enddef; + +def grave(expr center) = + if serifs: x22-x21=1/4w; x21-.5stem=hround(center-2/3(x22-x21)-.5stem); + else: lft x21l=hround (1/4w-.5stem); rt x22r=hround(center+.25u+.5vair); fi + generate_grave; penlabels(21,22); +enddef; + +def acute(expr center) = + if one_accent: + generate_universal(center); + else: + if serifs: x21-x22=1/4w; x21+.5stem=hround(center+2/3(x21-x22)+.5stem); + else: rt x21r=hround (3/4w+.5stem); lft x22l=hround(center-.25u-.5vair); fi + generate_grave; penlabels(21,22); + fi +enddef; + +vardef search(expr xyzzy) = + pair p;ypart(p)=y22l;p-(x22,xyzzy)=whatever*((z21-(x22,xyzzy))rotated 90); + length(p-(x22,xyzzy))>.5(hair-currentbreadth) +enddef; + +vardef generate_grave= + if serifs: pickup crisp.nib; + y21+.5stem=h+eps; bot y22l=max(.8[h,x_height],x_height+o+separator); + y22=solve search(y21,y22l); x22l=xpart(p); z22r=2z22-z22l; + pos21(stem,angle(z22r-z22l)); + filldraw circ_stroke z21e--z22e; % diagonal + else: pickup fine.nib; pos21(stem,0); pos22(vair,0); + top y21=h; bot y22=vround .8[h,x_height]; + filldraw stroke z21e--z22e; % diagonal + fi +enddef; + +def corr_circumflex(expr center,corr)= + if one_accent: + generate_universal(center); + else: + w:=w+corr; + generate_circumflex(center,false); + w:=w-corr; + fi +enddef; + +def circumflex(expr center)= + if one_accent: + generate_universal(center); + else: + if italics: w:= w + acc_corr; fi + generate_circumflex(center,false); % variable `squeeze' + if italics: w:=wi-acc_corr; fi + fi +enddef; + +def generate_circumflex(expr center,squeeze)= + numeric mid_width; mid_width=if squeeze:.1 else: .5 fi [vair,stem]; + if serifs: + pickup fine.nib; pos21(hround(mid_width-eps),180); pos22(vair,90); + pos23(mid_width,90); pos24(vair,90); pos25(hround(mid_width-eps),180); + lft x21r=w-rt x25l=hround (center-w/3); x22-x21=x23-x22=x24-x23=x25-x24; + bot y21=bot y24l=vround(.75[x_height,h]-vair); + top y22r=top y25=h; y23=.5[y22,y24]; + filldraw stroke z21e{up}...z22e{right}..z23e..{right}z24e...{up}z25e; + else: + pos21(vair,-180); pos23(vair,0); y21=y23; + lft x21r=hround(center-w/3); rt x23r=hround(center+w/3); + bot y23=vround max(x_height+o+separator, + if squeeze: 2/3 else: 1/3 fi [x_height,h]-.5mid_width); + x22=center; pos22(mid_width,90); top y22r=h; + filldraw stroke z21e{up}...z22e...{down}z23e; + fi +enddef; + +vardef diaeresis(expr center)= + generate_diaeresis(center,dot_size,dot_size+1/8w,h,x_height+separator); +enddef; + +vardef diaeresis_acute(expr center)= + if serifs: x21-x22=1/4w; x21+.5stem=hround(center+5/6(x21-x22)+.5stem); + else: rt x21r=hround (3/4w+.5stem); lft x22l=hround(center-.5vair); fi + generate_grave; penlabels(21,22); + generate_diaeresis(center,.9dot_size,-1,.5[h,x_height],x_height+separator); +enddef; + +vardef diaeresis_grave(expr center)= + if serifs: x22-x21=1/4w; x21-.5stem=hround(center-5/6(x22-x21)-.5stem); + else: lft x21l=hround (1/4w-.5stem); rt x22r=hround(center+.5vair); fi + generate_grave; penlabels(21,22); + generate_diaeresis(center,.9dot_size,-1,.5[h,x_height],x_height+separator); +enddef; + +vardef diaeresis_circumflex(expr center)= + if italics: w:= w + acc_corr; fi + generate_circumflex(center,true); + if italics: w:=w-acc_corr; fi + numeric sp_bottom, sp_top; + sp_top=vround(.15[bot y21l,x_height]); sp_top+sp_bottom=bot y21l+x_height; + generate_diaeresis(center,5/8dot_size,5/8dot_size+1/4w,sp_top,sp_bottom); +enddef; + +vardef generate_diaeresis(expr center,target_dot_diam,sep,eff_h,base)= + pickup tiny.nib; numeric dot_diam; + dot_diam:=max(tiny.breadth,hround(target_dot_diam)); + pos31(dot_diam,0); pos32(dot_diam,90); x31=x32; top y32r=vround(eff_h); + if bot y32l<base: y32l:=min(y32r-eps,base+.5currentbreadth); fi + y31=.5[y32l,y32r]; + pos33(dot_diam,0); penpos34(y32r-y32l,90); y33=y34=y31; x33=x34; + if sep>0 : center=.5[x31,x33]; x33-x31=sep; + else: + y35l=y35r=.5[y31,y32]; z35l=whatever[z21l,z22l]; z35r=whatever[z21r,z22r]; + rt x31r=hround((min(x35l,x35r)-.5currentbreadth)-.05w); + lft x33l=hround((max(x35l,x35r)+.5currentbreadth)+.05w); + fi + dot(31,32); dot(33,34); + penlabels(31,32,33,34,35); +enddef; + +def rough(suffix $,@)(expr dot_size,depth,shear) = + pickup fine.nib; pos$(dot_size,90); + if square_dots: pos$'(dot_size,180); z$'=z$; dot($',$); % squarish dot + comma_join_:=max(fine.breadth,floor .7dot_size); + comma_bot_:=max(fine.breadth,floor .5dot_size); + pos@0(comma_join_,180); pos@1(comma_join_,180); + pos@2(comma_bot_,180); y@0=y$; y@1=y$l; y@2=y@1+dot_size-depth; + x@0r=x@1r=x$'r; lft x@2r=good.x(x$-eps); + filldraw stroke z@0e--z@1e..z@2e; % tail + else: pos@1(vair,90); pos@2(vair,180); pos@3(vair,-90); + z@1r=z$r; lft x@2r=hround(x$-.5depth+.5shear); + x@3+.5vair=x$+.5dot_size+shear; + y@2=.5[y@1,y@3]; bot y@3r=vround(top y@1r-depth); + y_:=ypart((z@1{left}...z@2{down}...z@3) + intersectiontimes (z$l{left}..{right}z$r)); if y_<0: y_:=1; fi + filldraw z$r{right}..subpath (0,y_) of (z$l{left}..{right}z$r)--cycle; % dot + filldraw stroke z@1e{left}...z@2e{down}...{right}z@3e; fi % tail + penlabels(@1,@2,@3); +enddef; + +def smooth(suffix $,@)(expr dot_size,depth,shear) = + pickup fine.nib; pos$(dot_size,90); + if square_dots: pos$'(dot_size,0); z$'=z$; dot($',$); % squarish dot + comma_join_:=max(fine.breadth,floor .7dot_size); + comma_bot_:=max(fine.breadth,floor .5dot_size); + pos@0(comma_join_,0); pos@1(comma_join_,0); + pos@2(comma_bot_,0); y@0=y$; y@1=y$l; y@2=y@1+dot_size-depth; + x@0r=x@1r=x$'r; rt x@2r=good.x(x$-eps); + filldraw stroke z@0e--z@1e..z@2e; % tail + else: pos@1(vair,90); pos@2(vair,0); pos@3(vair,-90); + z@1r=z$r; rt x@2r=hround(x$+.5depth+.5shear); + x@3-.5vair=hround(x$-.5dot_size+shear); + y@2=.5[y@1,y@3]; bot y@3r=vround(top y@1r-depth); + y_:=ypart((z@1{right}...z@2{down}...z@3) + intersectiontimes (z$l{right}..{left}z$r)); if y_<0: y_:=1; fi + filldraw z$r{left}..subpath (0,y_) of (z$l{right}..{left}z$r)--cycle; % dot + filldraw stroke z@1e{right}...z@2e{down}...{left}z@3e; fi % tail + penlabels(@1,@2,@3); +enddef; + +vardef spirit(expr center) text type= + if one_accent: + ; + else: + numeric sp_bottom, sp_height; + sp_bottom=h-sp_height=max(.8[h,x_height],x_height+o+separator); + numeric dot_diam#; dot_diam# = 3/4dot_size#; + define_whole_blacker_pixels(dot_diam); + dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height))); + x31 if1type0:-else:+fi.5dot_diam=hround(center if1type0:-else:+fi.5dot_diam); + y31+.5dot_diam=h; + if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0); + penlabels(31); + fi +enddef; + +vardef spirit_acute(expr center) text type = + if one_accent: + generate_universal(center); + else: + numeric sp_bottom, sp_height; + sp_bottom=h-sp_height=max(.8[h,x_height],x_height+o+separator); + numeric dot_diam#; dot_diam# = 3/4dot_size#; + define_whole_blacker_pixels(dot_diam); + dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height))); + if serifs: x21-x22=1/6w; + x21+.5stem=hround(center+.25u+.5vair+(x21-x22)+.5stem); + else: rt x21r=hround (4/5w+.5stem); lft x22l=hround(center+.25u); fi + generate_grave; penlabels(21,22); + if 1type0: % spirit and accent separated by .5u (rough) or .25u (smooth) + x31=hround(lft x22 if serifs:r-.5sp_height else:l-.5dot_diam fi -.25u); + else: x31+.5dot_diam=hround(lft x22 if serifs:r else: l fi -.5u); fi + y31+.5dot_diam=h; + if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0); + fi +enddef; + +vardef spirit_grave(expr center) text type = + numeric sp_bottom, sp_height; + sp_bottom=h-sp_height=max(.8[h,x_height],x_height+o+separator); + numeric dot_diam#; dot_diam# = 3/4dot_size#; + define_whole_blacker_pixels(dot_diam); + dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height))); + if serifs: x22-x21=1/6w; x21-.5stem=hround(center+.25u); + else: rt x22r=hround (4/5w+.5stem); lft x21l=hround(center+.25u); fi + generate_grave; penlabels(21,22); + if 1type0: % spirit and accent separated by .5u (rough) or .25u (smooth) + x31=hround(lft x21l-.5 if serifs:sp_height else:dot_diam fi -.25u); + else: x31+.5dot_diam=hround(lft x21l-.5u); fi + y31+.5dot_diam=h; + if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0); +enddef; + +vardef spirit_circumflex(expr center) text type= + if one_accent: + generate_universal(center); + else: + if italics: w:= w + acc_corr; fi + generate_circumflex(center,true); + if italics: w:=w-acc_corr; fi + numeric sp_bottom, sp_height, sp_top, box_top; + box_top=bot if serifs: y21l else: y22l fi; + sp_top=sp_bottom+sp_height=vround(.15[box_top,x_height]); + sp_top+sp_bottom=box_top+x_height; + numeric dot_diam#; dot_diam# = 5/8dot_size#; + define_whole_blacker_pixels(dot_diam); + pickup fine.nib; + dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height-eps))); + x31 if1type0:-else:+fi.5dot_diam=hround(center if1type0:-else:+fi.5dot_diam); + y31+.5dot_diam=vround(sp_top); + if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0); + penlabels(31); + fi +enddef; + +def iota_sub(expr pos_stem) = + if known pic.iota: + addto currentpicture also pic.iota shifted (hround(pos_stem),0); + else: + picture temp_picture; temp_picture=currentpicture; clearit; + pickup fine.nib; + x51=0; pos51(stem,180); top y51=vround(-o-2separator); + x52=x51; pos52(stem,180); bot y52=-iota_dp; + filldraw circ_stroke z52e--z51e; + % + % edw arqizei to diko mou + % + % z54=z52;x53=x54+0.5(y51-y54); y53=y54; + % pos54(stem,90); pos53(stem,90); + % filldraw circ_stroke z54e---z53e; + % lft x55=0.5(rt x52+x52); bot y55=0.5(y52-bot y52)+y52; + % x56=x55;top y56=y51; pos55(stem,180); pos56(stem,180); + % unfilldraw circ_stroke z55e--z56e; + % + if not working_hard : picture pic.iota; pic.iota=currentpicture; fi + currentpicture:=currentpicture shifted (hround(pos_stem),0); + addto currentpicture also temp_picture; + fi; +enddef; + +vardef generate_universal(expr center)= + x91=center+.15u;x94=center-.15u; + y91=y94=x_height+1.5separator; + x92=x91+.3univ_acc_breadth*(body_height-x_height); + x93=x91-.3univ_acc_breadth*(body_height-x_height); + y93=y92=y91+univ_acc_breadth*(body_height-x_height); + fill z91--z92--z93--z94--cycle; +enddef; + +vardef universal(expr center)= + generate_universal(center); +enddef; + +vardef diaeresis_universal(expr center)= + x91=center; + y91=x_height+separator+dot_size; + x92=x91+.5univ_acc_breadth*(body_height-x_height); + x93=x91-.5univ_acc_breadth*(body_height-x_height); + y93=y92=y91+.866univ_acc_breadth*(body_height-x_height); + fill z91--z92--z93--cycle; + generate_diaeresis(center,dot_size, + 1.3univ_acc_breadth*(body_height-x_height),.6[h,x_height], + x_height+separator); +enddef; + +% +% Generate the Accents +% +cmchar "Acute accent"; +beginchar("'",9u#,acc_ht#,0); + adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + acute(.5w); + fi +endchar; +% +cmchar "Grave accent"; +beginchar("`",9u#,acc_ht#,0); + adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + grave(.5w); + fi +endchar; +% +cmchar "Circumflex accent"; +beginchar("~",9u#,circ_ht#,0); + adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + circumflex(.5w); + fi +endchar; +% + +cmchar "Rough breathing"; +if one_accent: + beginchar("<",.1u#,acc_ht#,0); + adjust_fit(0,0); +else: + beginchar("<",9u#,acc_ht#,0); + adjust_fit(0,0);spirit(.5w)<; +fi +endchar; + +cmchar "Rough breathing with grave"; +beginchar(oct"001",9u#,acc_ht#,0); + adjust_fit(0,0); + spirit_grave(.5w)<; +endchar; +% +cmchar "Rough breathing with acute"; +beginchar(oct"126",9u#,acc_ht#,0); + adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + spirit_acute(.5w)<; + fi +endchar; + +cmchar "Rough breathing with circumflex"; +beginchar(oct"100",9u#,acc_ht#,0); +adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + spirit_circumflex(.5w)<; + fi +endchar; + +cmchar "Smooth breathing"; +if one_accent: + beginchar(">",.1u#,acc_ht#,0); + adjust_fit(0,0); +else: + beginchar(">",9u#,acc_ht#,0); + adjust_fit(0,0);spirit(.5w)>; +fi +endchar; + +cmchar "Smooth breathing with acute"; +beginchar(oct"136",9u#,acc_ht#,0); +adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + spirit_acute(.5w)>; + fi +endchar; + +cmchar "Smooth breathing with grave"; +beginchar(oct"002",9u#,Circ_ht#,0); +adjust_fit(0,0); + spirit_grave(.5w)>; +endchar; + +cmchar "Smooth breathing and circumflex"; +beginchar(oct"134",9u#,Circ_ht#,0); +adjust_fit(0,0); + if one_accent: + universal(.5w); + else: + spirit_circumflex(.5w)>; + fi +endchar; + +cmchar "Diaeresis"; +beginchar(oct"042",9u#,circ_ht#,0); + adjust_fit(0,0);diaeresis(.5w); +endchar; + +cmchar "Diaeresis with acute"; +beginchar(oct"043",9u#,acc_ht#,0); +adjust_fit(0,0); + if one_accent: + diaeresis_universal(.5w); + else: + diaeresis_acute(.5w); + fi +endchar; + +cmchar "Diaeresis with grave"; +beginchar(oct"044",9u#,acc_ht#,0); +adjust_fit(0,0); + diaeresis_grave(.5w); +endchar; + +cmchar "Diaeresis with circumflex"; +beginchar(oct"040",9u#,Circ_ht#,0); +adjust_fit(0,0); + diaeresis_circumflex(.5w); +endchar; + +cmchar "Iota subscript"; +beginchar("|",9u#,0,.6desc_depth#); +adjust_fit(0,0); + if one_accent: + ; + else: + iota_sub(.5w); + fi +endchar; + + +cmchar "Breve accent"; +beginchar(oct"036",9u#,min(asc_height#,2x_height#),0); +italcorr h#*slant+.5vair#-1.5u#; +adjust_fit(0,0); +pickup crisp.nib; pos1(vair,-180); pos3(vair,0); +top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair); +numeric mid_thickness; mid_thickness=vround 1/3[vair,stem]; +pos2(mid_thickness,-90); x2=.5w; +bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness); +filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke +endchar; + +cmchar "Macron (bar) accent"; +numeric macron_breadth#; macron_breadth#=.2[vair#,stem#]; +beginchar(oct"037",9u#,.4[x_height#,asc_height#]+macron_breadth#,0); +italcorr h#*slant-.75u#; +adjust_fit(0,0); +numeric macron_breadth; macron_breadth:=Vround .2[vair,stem]; +pickup if serifs: crisp.nib else: fine.nib fi; +pos1(macron_breadth,90); pos2(macron_breadth,90); +top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u; +filldraw stroke z1e--z2e; % bar +endchar; + |