summaryrefslogtreecommitdiff
path: root/fonts/tengwar/carriers.mf
blob: cc0b6b30204862d4bd9b89628f0495ff92f2f3e6 (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
% Copyright 1988 Michael Urban
% Everyone is granted permission to copy, modify and redistribute
% this file, provided that a currently-dated copy of this
% copyright notice is included in the copy.
% License is granted to produce fonts based on the information
% in this file, provided that such fonts are redistributed
% without charge to any third party.

% SCCS ID @(#)carriers.mf	1.1   10/1/86

def commoncarrier=
	pickup elvishpen;
	x0=x1-thick; top y0=h;
	x1=1/2[leadgap,w]; y1=y0;
	x2=x1;  y2=-d/2;
	x3=x0; y3=-d;
	draw z0--z1{down}..z2{down}..z3;
enddef;

beginchar ("i",3*leadgap#,xht#,.2dep#);  "Short carrier";
	begingroup;
	save x,y;
	commoncarrier;
	endgroup;
endchar;

beginchar (16,3*leadgap#,xht#,dep#);  "Long carrier";
	begingroup;
	save x,y;
	commoncarrier;
	endgroup;
endchar;

beginchar (17,3*leadgap#,cap#,0); "Carrier Halla";
	begingroup;
	save x,y;
	pickup elvishpen;
	x0=x1-thick/3; top y0=h;
	x1=1/2[leadgap,w]; y1=y0;
	x2=x1;  y2=-d;
	draw z0--z1{down}..z2;
	endgroup;
endchar;