← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/texlive-bin/jaunty-updates

« back to all changes in this revision

Viewing changes to texmf-dist/fonts/source/public/wnri/brevacct.mf

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2006-05-11 00:12:10 UTC
  • Revision ID: james.westby@ubuntu.com-20060511001210-gykenja59vrecpk2
Tags: upstream-2005
Import upstream version 2005

Show diffs side-by-side

added added

removed removed

Lines of Context:
texmf-dist/fonts/source/public/wnri/brevacct.mf
 
1
%
 
2
% Washington Romanized Indic accent driver
 
3
%
 
4
% Macros to draw breve accents 
 
5
%
 
6
 
 
7
cmchar "Breve accent";
 
8
beginchar(oct"025",9u#,min(asc_height#,2x_height#),0);
 
9
italcorr h#*slant+.5vair#-1.5u#;
 
10
adjust_fit(0,0);
 
11
pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
 
12
top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
 
13
numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
 
14
pos2(mid_thickness,-90); x2=.5w;
 
15
bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
 
16
filldraw stroke z1e{down}...z2e{right}...{up}z3e;  % stroke
 
17
makeACCENT(BrevePic);
 
18
endgroup;
 
19
 
 
20
extra_endchar:=
 
21
  " czu ap(BrevePic);  ah; oechar; ";
 
22
boolean dotson; dotson=false; %  omit dots on i, j, and possibly etc.
 
23
def cp = brev enddef;
 
24
 
 
25
% end of file brevacct.mf
 
26