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

beginchar (",", 3*leadgap#, xht#, 0); "The punctuation comma (one dot)";
	begingroup;
	save x, y;
	pickup pensquare scaled thick rotated 45;
	z1 = (1/2w, h/2);
	drawdot z1;
	endgroup;
endchar;

beginchar (";", 2*leadgap#, xht#, 0); "The punctuation semicolon (two dots)";
	begingroup;
	save x, y;
	pickup pensquare scaled thick rotated 45;
	z1 = (w/2, h-2thin);
	z2 = (w/2, 2thin);
	drawdot z1;
	drawdot z2;
	endgroup;
endchar;

beginchar (".", 3*leadgap#, xht#, 0); "The punctuation period (four dots)";
	begingroup;
	save x, y;
	pickup pensquare scaled thick rotated 45;
	z1 = (w/3, h-2thin);
	z2 = (w/3, 2thin);
	z3 = (w, h-2thin);
	z4 = (w, 2thin);
	drawdot z1;
	drawdot z2;
	drawdot z3;
	drawdot z4;
	endgroup;
endchar;

beginchar ("!", .7shortwidth, cap#, 0); "The exclamation point";
	begingroup;
	save x, y;
	pickup elvishpen;
	rt x1 = w; top y1=h;
	y2 = y3 = h/2;
	z1-z2 = z3-z4 = whatever*(dir 40);
	x4 = leadgap; %bot y4=0;
	draw z1..controls z2 and z3..z4;
	endgroup;
endchar;

beginchar ("?", .7shortwidth, cap#, 0); "The question mark";
	begingroup;
	save x, y;
	pickup elvishpen;
	telco (leadgap, longstem, stemdepth);
	z1 = bowpoint;
	top y2 = xht; x2 = .6[leadgap, w];
	rt x3 = w; y3 = .7xht;
	lft x4 = leadgap; bot y4 = 0;
	draw z1..tension 2.0..z2..z3..z4;
	z6-z5 = z2-z1;
	top y6 = h; x6 = x2;
	z7-z6 = z3-z2;
	draw z5..tension 2.0..z6..z7..tension 1.5..z1;
	endgroup;
endchar;

beginchar ("-", shortwidth, xht#, 0); "The dash (tilde)";
	begingroup;
	save x, y;
	pickup elvishpen;
	x1 = leadgap; 
	x4 = w; 
	y1 = .4h; y4 = .6h;
	z2-z1 = z4-z3 = whatever*(dir tilt);
	y2-y1 = 3 (y4-y1);
	draw z1..controls z2 and z3..z4;
	endgroup;
endchar;