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.
|
