From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/knot/tri.mf | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 fonts/knot/tri.mf (limited to 'fonts/knot/tri.mf') diff --git a/fonts/knot/tri.mf b/fonts/knot/tri.mf new file mode 100644 index 0000000000..81d15fd2f1 --- /dev/null +++ b/fonts/knot/tri.mf @@ -0,0 +1,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. -- cgit v1.2.3