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.