summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/jknappen/ec/exaccent.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/jknappen/ec/exaccent.mf')
-rw-r--r--Master/texmf-dist/fonts/source/jknappen/ec/exaccent.mf132
1 files changed, 132 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/jknappen/ec/exaccent.mf b/Master/texmf-dist/fonts/source/jknappen/ec/exaccent.mf
new file mode 100644
index 00000000000..cb4e819834b
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/jknappen/ec/exaccent.mf
@@ -0,0 +1,132 @@
+% exaccent.mf
+%
+% (c) Copyright 1995, 1996, 1997 J"org Knappen
+% (c) Copyright 1990, 1992 Norbert Schwarz
+%
+% This file is part of ecfonts version 1.0
+%
+% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and
+% copyrite.txt for further information
+%
+% You find some documentation in ecdoc.tex (needs LaTeX2e)
+%
+% Content:
+%
+% Accents (for lowercase letters)
+%
+version_check(1,0); % |version_check| was introduced in dc1.3
+
+ecchar"Grave accent";
+beginchar_twice(oct"0",9u#,x_height#,0); % |put_gravis| changes the height
+adjust_fit(0,0);
+put_gravis;
+repeat_once;
+endchar;
+
+ecchar"Acute accent"; % using acute from plfonts
+beginchar_twice(oct"1",9u#,x_height#,0); % |put_accent| changes the height
+italcorr h#*slant-if serifs: 1.5 fi u#;
+adjust_fit(0,0);
+put_accent;
+repeat_once;
+endchar;
+
+ecchar"Circumflex (hat) accent";
+beginchar(oct"002",9u#,x_height#+acc_height#,0);
+lowercase_hat(.5w,oo,1,2,3,4,5);
+penlabels(0,1,2,3,4); endchar;
+
+ecchar"Tilde (squiggle) accent";
+beginchar(oct"003",9u#,x_height#+acc_height#,0);
+italcorr h#*slant-u#;
+adjust_fit(0,0);
+lowercase_tilde(0,0 if variant_g: -1/6acc_height fi,1,2,3,4,5);
+penlabels(1,2,3,4,5); endchar;
+
+ecchar"Umlaut (double dot) accent";
+beginchar(oct"004",9u#,lc_trema_height#,0);
+%udot_diam=max(tiny.breadth,hround(max(dot_size,cap_curve)-2stem_corr));
+italcorr h#*slant+.5udot_diam#-2.25u#;
+adjust_fit(0,0);
+lowercase_umlaut(0,0,1,2,3,4);penlabels(1,2,3,4); endchar;
+
+ecchar"Double acute accent (Long Hungarian umlaut accent)";
+beginchar_twice(oct"005",9u#,x_height#+acc_height#,0);
+italcorr h#*slant-u#;
+adjust_fit(0,0);
+if monospace: hpos_corr=-2u; put_accent; hpos_corr=2u; put_accent;
+else: hpos_corr=-1.5u; put_accent; hpos_corr=1.5u; put_accent; fi
+repeat_once;
+endchar;
+
+ecchar"Scandinavian circle accent";
+beginchar(oct"006",13u#+4/3acc_height#*slant,x_height#+acc_height#,0);
+adjust_fit(cap_serif_fit#,cap_serif_fit#);
+lowercase_circle(.5w,vround(1/3[x_height,h]+apex_o),1,2,3,4);
+penlabels(1,2,3,4); endchar;
+
+ecchar"Hachek (check) accent";
+beginchar(oct"007",9u#,x_height#+acc_height#,0);
+lc_hachek_accent(.5w);
+endchar;
+
+ecchar"Breve accent";
+beginchar(oct"10",9u#,x_height#+acc_height#,0);
+italcorr h#*slant+.5vair#-1.5u#;
+adjust_fit(0,0);
+lowercase_breve(.5w,0,1,2,3);
+penlabels(1,2,3); endchar;
+
+ecchar"Macron (bar) accent";
+beginchar(oct"011",9u#,lc_trema_height#,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
+penlabels(1,2); endchar;
+
+ecchar"Dot accent";
+beginchar_twice(oct"012",5u#,x_height#+acc_height#,0);
+italcorr h#*slant+.5idot_diam#-2u#;
+adjust_fit(0,0);
+put_dot(tiny,max(dot_size#,cap_curve#));
+repeat_once;
+penlabels(1,2); endchar;
+
+ecchar"Cedilla accent";
+beginchar(oct"013",8u#,0,.875desc_depth#);
+adjust_fit(0,0);
+lowercase_cedilla(.5w,0,1,2,3,4,5);
+penlabels(1,2,3,4,5); endchar;
+
+ecchar"Ogonek";
+beginchar(oct"014",5u#,0,desc_depth#);
+italcorr 0;
+adjust_fit(0,0);
+ogon_one := 1;
+ogon_two := 2;
+ogon_three := 3;
+if serifs:
+ x[ogon_one]r=0.7w;
+ %+outer_jut;
+else:
+ x[ogon_one]r=0.6w;
+fi
+ pickup crisp.nib;
+ pos[ogon_one](
+ if 0.9vair>currentbreadth: 0.9vair else: currentbreadth+eps fi,-60);
+ pos[ogon_two](stem,0);
+ pos[ogon_three](vair,145);
+ x[ogon_two]=x[ogon_one]-2.5u if monospace: /expansion_factor fi ;
+ x[ogon_three]=x[ogon_one]+0.5u if monospace: /expansion_factor fi;
+ bot y[ogon_one]r = 0;
+ bot y[ogon_three]=0.5(-d-o); %0.4
+ bot y[ogon_two]=0.5(-d-o);
+ filldraw stroke z[ogon_one]e{dir 225}...
+ z[ogon_two]e{dir -110}...{dir 60}z[ogon_three]e; % hook
+penlabels(1,2,3); endchar;
+
+endinput;