summaryrefslogtreecommitdiff
path: root/fonts/tengwar/fullvowels.mf
blob: d3db6dcf7c5a21d000c96a577e0ac708d2110f06 (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
% 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 @(#)fullvowels.mf	1.1   10/1/86

beginchar ("a",shortwidth, xht#, 0); "The letter a (modus beleriandi)";
	begingroup;
	save x,y;
	pickup elvishpen;
	top y1= h; x1 = .75[leadgap, w];
	lft x2= leadgap; y2= .4h;
	bot y3= 0; x3=  .5[leadgap, w];
	y4= .2h; rt x4=w;
	draw z1..z2{down}..z3{right}..z4;
	endgroup;
endchar;

beginchar ("y", shortwidth, xht#, 1/2dep#); "The letter y (modus beleriandi)";
	begingroup;
	save x,y;
	pickup elvishpen;
	x1=leadgap; y1=.5h;
	x2 = 2/3[x1,w]; top y2=h;
	rt x3=w; y3=0;
	lft x4=leadgap; y4=-d;
	draw z1..z2{right}..z3..z4;
	endgroup;
endchar;


beginchar("o", shortwidth,xht#,0); "The letter o (anna ar taith)";
	pickup elvishpen;
	nutelco(w,shortstem, stemdepth);
	nuluva (bowpoint, leadgap, true);
	draw barpoint..barpoint+3thin*right;
endchar;