summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/unispe.mf
blob: cfae8f2fc6b10cff64f3fc0887bea3956d0f53e5 (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
%%
%% This is file `unispe.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% universa.dtx  (with options: `spe')
%% 
%% 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 universa.dtx for further comments and documentation.
%% 
%% 

beginchar(hex"10",p_t#,x_h#,0) ; "The dotless letter i" ;
  pickup unipensqu ;
  bot lft z1 = (0,0) ; top lft z2 = (0,h) ; draw z1--z2;
  penlabels(1,2);
endchar;

beginchar(hex"11",p_t#,x_h#,p_d#) ; "The dotless letter j" ;
  pickup unipensqu ;
  bot lft z1 = (0,-d) ;  top lft z2 = (0,h) ; draw z1--z2 ;
  penlabels(1,2);
endchar;

beginchar("$",(l_h#-c_d#+p_t#)/2,l_h#,c_d#) ; "The dollar sign ($)" ;
  uniarc(w/2,p_t,(w/2,w/2),180,450,10) ;
  uniarc(w/2,p_t,(w/2,h-c_d-w/2),0,270,20) ;
  pickup unipensqu ;
  top z1 = (w/2,h) ; bot z2 = (w/2,-d) ; draw z1--z2 ;
  penlabels(1,2) ;
endchar;

beginchar("&",(l_h#+p_t#)/2+c_d#,l_h#,c_d#) ; "The ampersand (&)" ;
  rad := (w-c_d)/2 ;
  unicir(rad,p_t,(rad,h-rad),10) ;
  uniarc(rad,p_t,(rad,rad),0,270,20) ;
  pickup unipensqu ;
  lft bot z1 = (rad,0)     ; rt bot z2 = (w,0)      ; draw z1--z2 ;
  rt  top z3 = (w-c_d,rad) ; rt bot z4 = (w-c_d,-d) ; draw z3--z4 ;
  penlabels(1,2,3,4) ;
endchar;

beginchar("?",l_h#-5c_d#/2,l_h#,0) ; "The question mark (?)" ;
  temp := angle((P_T,-w/2)) - 0.01 ;
  uniarc(w/2,P_T,(w/2,h-w/2),temp,180,10) ;
  uniend(P_T,((w+P_T)/2,h-w),90,180,20) ;
  uniend(P_T,((w+P_T)/2,h-w+P_T),270,360+temp,30) ;
  pickup UniPensqu ;
  top z1 = (w/2,h-w) ; bot z2 = (w/2,2P_T) ; draw z1--z2 ;
  pickup UniPencir ;
  bot z3 = (w/2,0) ; drawdot z3 ;
  penlabels(1,2,3) ;
endchar;

beginchar(spanish_query,l_h#-5c_d#/2,x_h#,p_d#) ; "The Spanish query" ;
  temp := angle((-P_T,w/2))-0.01 ;
  uniarc(w/2,P_T,(w/2,-d+w/2),temp,360,10) ;
  uniend(P_T,((w-P_T)/2,-d+w),270,360,20) ;
  uniend(P_T,((w-P_T)/2,-d+w-P_T),90,temp,30) ;
  pickup UniPensqu ;
  bot z1 = (w/2,-d+w) ; top z2 = (w/2,h-2P_T) ; draw z1--z2 ;
  pickup UniPencir ;
  top z3 = (w/2,h) ; drawdot z3 ;
  penlabels(1,2,3) ;
endchar;

beginchar(spanish_shriek,P_T#,x_h#,p_d#) ; "The Spanish shriek" ;
  pickup UniPencir ; top z1 = (w/2,h) ; drawdot z1 ;
  pickup UniPensqu ; top z2 = (w/2,h-2P_T) ; bot z3 = (w/2,-d) ;
  draw z2--z3 ; penlabels(1,2,3) ;
endchar;

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