Hershey vector font with Forth

Example:

include plot.f
include line.f
include font.f

: test
	1 to bold
	20 to scale
	0 35 move-to [char] F hershey-draw-char
	10 to scale
	25 47 move-to s" orth" hershey-draw-string
	0 to bold
	4 to scale
	60 15 move-to s" half" hershey-draw-string
	1 to bold
	s" bold" hershey-draw-string
;

In plot.f the word PLOT ( x y -- ) has to be defined, which is implementation dependant (plot.f for Win32Forth 6.11.10). Example output:

Source code: line.f, font.f


1. May 2007, Frank Buß