% ====================================================================== % 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 y32l0 : 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;