diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/knot/tri.mf |
Initial commit
Diffstat (limited to 'fonts/knot/tri.mf')
-rw-r--r-- | fonts/knot/tri.mf | 38 |
1 files changed, 38 insertions, 0 deletions
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. |