# postscript text stuff
(init-text-gs (

	load-x11 [ window ] defined? not (if init-xvideo 256 1024 window then) ce
	load-png

	(text-tmp-file ("/tmp/text.png")) :c
	(text-scale (var 100.0)) :c
	(text-font (var 0)) :c
	# "URWPalladioL-Roma"
	# "TimesRoman"
	# "NimbusSanL-ReguItal"
	# "Hershey-Plain-Duplex-Bold"
	# "URWBookmanL-DemiBold"

	"CenturySchL-Roma"
	text-font !

	(string->bitmap (
		>r
		# run gostscript to generate oversampled png text bitmap
		"echo '/" text-font @ concat
		" findfont 100 scalefont setfont newpath 20 40 moveto (" 
		concat r> concat
		") show showpage " concat
		"'| gs -sDEVICE=pngmono -sOutputFile=" concat
		text-tmp-file concat " -g4096x1024 -r576x576 -q -" concat
		shell drop .
		text-tmp-file png-load antialias )) :c )) :c


# freetype text stuff
(init-text-freetype (
	load-freetype
	"/usr/local/share/fonts/ABSTRACT.TTF" font!
	30.0 size!
	(default-image-type (var image/P/8/512/128/1)) :c
	(string->image (
		3 pack >r
		default-image-type @ new .0 * 
		r> unpack draw-text )) :c
	
)) :c

init-text-freetype