summaryrefslogtreecommitdiff
path: root/fonts/knot/tri.mf
blob: 81d15fd2f12eae4fcc2dbf7a5a6c15d059d51ae3 (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
mode_setup;

scale# := 0.25pt#;
knotwid# = 8scale#;
croswid# = .25knotwid#;
croswidang# = croswid#/(cosd 30);
gap# = 1scale#;
thin# = .2scale#;
thick# = .2scale#;
sqwid# = 25scale#;
sqht# = (cosd 30)*25scale#;
define_pixels(scale, thick, thin, gap, croswid);
define_blacker_pixels(knotwid, croswid, croswidang);
font_normal_space sqwid#;
pair cw, cwang;
cw := (croswid, 0);
cwang := (croswidang, 0);

pickup pencircle xscaled thick yscaled thin;
knot_pen := savepen;
pair	x[]i, x[]o;
pair	y[]i, y[]o;

extra_beginchar := extra_beginchar & "pickup knot_pen;";

beginchar (7, sqwid#, sqht#, 0); "tricycle 7";
	z1 = (gap, gap);	penpos1(croswidang, 30);
	z2 = (w/2, h - gap);	penpos2(croswidang, -90);
	z3 = (w - gap, gap);	penpos3(croswidang, 150);
	z4 = .5[.5[z1, z2],z3];	penpos4(croswid, 150);
	z5 = .5[.5[z2, z3],z1];	penpos5(croswid, 30);
	z6 = .5[.5[z1, z3],z2];	penpos6(croswid, -90);
	penstroke z1e{dir 60}..z6e..{dir -60}z3e;
	penstroke z1e{dir 0}..z4e..{dir 120}z2e;
	penstroke z2e{dir -120}..z5e..{dir 0}z3e;
endchar;

end.