← 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/acctmax.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/acctmax.mf
 
1
%
 
2
% Washington Romanized Indic accent driver
 
3
%
 
4
% File       : acctmax.mf
 
5
% Author     : Thomas Ridgeway <ridgeway@u.washington.edu>
 
6
% Date       : May 19 1992
 
7
%
 
8
% Updated by : Anshuman Pandey <apandey@u.washington.edu>
 
9
% On         : 18 Feb 1998
 
10
%
 
11
% Copyright 1992 Humanities and Arts Computing Center, University of 
 
12
% Washington. Licensed to the public according to the terms of the 
 
13
% Free Software Foundation General Public License.
 
14
%
 
15
% WNRI is based on Computer Modern Roman and encoded according to
 
16
% the Classical Sanskrit/Classical Sanskrit eXtended character set. 
 
17
% See wnindic.map for more details.
 
18
%
 
19
 
 
20
transform At,Tf; At=Tf=identity;
 
21
 
 
22
numeric acctdiff; acctdiff = min(dot_size,1/3(asc_height-x_height));
 
23
 
 
24
def makeACCENT(suffix $) = 
 
25
transform Tf; Tf = identity shifted(-.5w,0);
 
26
if tracingspecs>0:
 
27
        message ">> savepicture ";
 
28
        show str $;
 
29
        show Tf;
 
30
        fi
 
31
picture $; $=currentpicture transformed Tf; 
 
32
enddef;
 
33
 
 
34
def savePicture(suffix $) = 
 
35
if tracingspecs>0:
 
36
        message ">> savepicture ";
 
37
        show str $;
 
38
        show Tf;
 
39
        fi
 
40
picture $; $=currentpicture transformed Tf; 
 
41
enddef;
 
42
 
 
43
% addpicture
 
44
def ap(suffix $) =
 
45
  if unknown At: transform At; At=identity; fi
 
46
  if tracingspecs>0:
 
47
          message ">> addpicture "; 
 
48
          show str $; 
 
49
          show At;
 
50
          fi
 
51
  addto currentpicture also $ transformed At;
 
52
enddef;
 
53
 
 
54
def whap(suffix $,$$,$$$) =
 
55
  if unknown At: transform At; At=identity; fi
 
56
  if tracingspecs>0:
 
57
          message ">> addpicture "; 
 
58
          show str $; 
 
59
          show At;
 
60
          fi
 
61
  if w > $$$: addto currentpicture also $ transformed At;
 
62
  else: addto currentpicture also $$ transformed At;
 
63
  fi
 
64
enddef;
 
65
 
 
66
numeric adhocht; adhocht=0;
 
67
 
 
68
% shall accented characters show the height and depth of the accent?
 
69
if unknown trueheights: boolean trueheights; trueheights=false; fi
 
70
 
 
71
%adjustacctht
 
72
def ah =
 
73
 if trueheights:
 
74
  if asc_height + (h - x_height) + adhocht > h: 
 
75
     h:=asc_height + (h - x_height)+ adhocht; charht:= h / vppp;
 
76
  fi
 
77
 fi
 
78
enddef;
 
79
 
 
80
%adjustacctdp
 
81
def ad =
 
82
 if trueheights:
 
83
  if d < desc_depth: d:=desc_depth; chardp:= d / vppp; fi
 
84
 fi
 
85
enddef;
 
86
 
 
87
def deepen =
 
88
 if trueheights:
 
89
  if d <  max(dot_size,cap_curve)+.25x_height: d:=dot_diam+.25x_height;
 
90
      chardp:=max(dot_size#,cap_curve#)+.25x_height#;
 
91
  fi
 
92
 fi
 
93
enddef;
 
94
 
 
95
% general accent height shift from x_height
 
96
numeric acht; 
 
97
acht:= if serifs: max(2/3[asc_height,x_height],x_height+o+hair)
 
98
       else: vround 2/3[asc_height,x_height]
 
99
       fi ;
 
100
 
 
101
% replaced by use of czd
 
102
%def slurped (expr accentpoint) =
 
103
%  identity shifted ((xpart accentpoint) + slant*(ypart accentpoint),aspect_ratio * (ypart accentpoint))
 
104
%enddef;
 
105
 
 
106
% end of file acctmax.mf