summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/uniacc.mf
blob: 4dd4b8a73a6447de7d7c11dda556a9c47056c8dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
%%
%% This is file `uniacc.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% uni.dtx  (with options: `acc')
%% 
%% Copyright (C) 1998 Christian Holm.
%% 
%% The universal font and package is distributed in the hope that
%% it will be useful, but WITHOUT ANY WARRANTY; without even the
%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
%% PURPOSE.  See the GNU General Public License for more details.
%% 
%% See the file uni.dtx for further comments and documentation.
%% 


beginchar(hex"12",x_w#,l_h#,0) ; "The accent `" ;
  uniend(P_T/2,(w/2,a_h+P_T/2),90,270,10) ;
  z1 = (w/2,a_h+P_T) ; z2 = (w/2,a_h) ; z3 = (w/2+P_T,a_h) ;
  fill z1--z2--z3--cycle ; penlabels(1,2,3) ;
endchar ;

beginchar(hex"13",x_w#,l_h#,0) ; "The accent '" ;
  uniend(P_T/2,(w/2,a_h+P_T/2),-90,90,10) ;
  z1 = (w/2,a_h+P_T) ; z2 = (w/2,a_h) ; z3 = (w/2-P_T,a_h) ;
  fill z1--z2--z3--cycle ; penlabels(1,2,3) ;
endchar ;

beginchar(hex"14",x_w#,l_h#,0) ; "The accent hachek" ;
  z1 = (w/2,a_h+p_t) ; uniend(p_t,z1,225,315,10) ;
  z2 = z1 + p_t*(-1,-1)/sqrt(2) ; z3 = z1 + p_t*(-1,1) ;
  z4 = z3 + (-p_t*sqrt(2),0) ; path rombe ;
  rombe := z1--z2--z4--z3--cycle ; fill rombe ;
  fill rombe reflectedabout ((w/2,0),(w/2,h)) ;
  penlabels(1,2,3,4) ;
endchar ;

beginchar(hex"15",x_w#,l_h#,0) ; "The accent breve" ;
  rad := 3p_t/2 ; uniarc(rad,p_t,(w/2,a_h+rad),180,360,10) ;
endchar ;

beginchar(hex"16",x_w#,a_h#+p_t#,0) ; "The accent macron (bar)" ;
  pickup unipensqu ;
  bot lft z1 = (w/2-2p_t,a_h) ; bot rt z2 = (w/2+2p_t,a_h) ;
  draw z1--z2 ; penlabels(1,2) ;
endchar ;

beginchar(hex"17",A_w#+4/3*(l_h#-x_h#)*slantratio,l_h#,0) ;
  "The accent circle" ;
  rad := P_T ; unicir(rad,p_t,(w/2,h-rad),10) ;
endchar ;

beginchar(hex"18",x_w#,x_h#,2c_d#) ; "The accent cidelia" ;
  uniarc(d/2,2P_T/3,(w/2+d/4,-d/2),90,270,10) ;
endchar ;

phi := 15 ; tmp# := 3c_d# ; define_pixels(tmp) ;
beginchar(hex"20",tmp#*cosd(phi)+p_t#*sind(phi),l_h#,0) ;
  "The accent bar over l" ;
  z1 = (0,(h+p_t*cosd(phi)-tmp*sind(phi))/2) ;
  z2 = (p_t*sind(phi),(h-p_t*cosd(phi)-tmp*sind(phi))/2) ;
  z3 = (w,(h-p_t*cosd(phi)+tmp*sind(phi))/2) ;
  z4 = (w-p_t*sind(phi),(h+p_t*cosd(phi)+tmp*sind(phi))/2) ;
  fill z1--z2--z3--z4--cycle ;
  penlabels(1,2,3,4) ;
endchar ;

beginchar(hex"5E",x_w#,l_h#,0) ; "The accent hat" ;
  z1 = (w/2,a_h+p_t) ; uniend(p_t,z1,45,136,10) ;
  z2 = z1 + p_t*(-1,1)/sqrt(2) ; z3 = z1 + p_t*(-1,-1) ;
  z4 = z3 + (-p_t*sqrt(2),0) ; path rombe ;
  rombe := z1--z2--z4--z3--cycle ; fill rombe ;
  fill rombe reflectedabout ((w/2,0),(w/2,h)) ;
  penlabels(1,2,3,4) ;
endchar ;

beginchar(hex"5F",x_w#,l_h#,0) ; "The accent dot" ;
  pickup UniPencir ; bot z1 = (w/2,a_h) ; drawdot z1 ; penlabels(1) ;
endchar ;

beginchar(hex"7D",x_w#,l_h#,0) ; "The accent ''" ;
  rad := P_T/2 ;
  uniend(rad,(w/2-rad,a_h+rad),-90,90,10) ;
  uniend(rad,(w/2+P_T,a_h+rad),-90,90,20) ;
  z1 = (w/2-rad-P_T,a_h) ; z2 = (w/2-rad,a_h) ;
  z3 = (w/2-rad,a_h+P_T) ; fill z1--z2--z3--cycle ;
  z4 = (w/2,a_h)         ; z5 = (w/2+P_T,a_h) ;
  z6 = (w/2+P_T,a_h+P_T) ; fill z4--z5--z6--cycle ;
  penlabels(range 1 thru 6) ;
endchar ;

beginchar(hex"7E",x_w#,l_h#,0) ; "The accent ~" ;
  rad := (w*sqrt(2)+p_t)/4 ; temp := (2w-p_t*sqrt(2))/8 ;
  uniarc(rad,p_t,(w/2+temp,a_h+rad),225,315,10) ;
  uniarc(rad,p_t,(w/2-temp,a_h+rad-2temp),45,135,20) ;
endchar ;

beginchar(hex"7F",x_w#,l_h#,0) ; "The accent umlout (double dot)" ;
  pickup UniPencir ;
  bot z1 = (w/2-P_T,a_h) ; bot z2 = (w/2+P_T,a_h) ;
  drawdot z1 ; drawdot z2 ; penlabels(1,2) ;
endchar ;

\endinput
%%
%% End of file `uniacc.mf'.