provide ft-font!

"freetype.pfo" pfo

# load font and set default size
# TODO: find a way to load a default font

# "/usr/share/fonts/truetype/Courier_New.ttf" ft-font!
# 50.0 ft-size!


<s> image/P/8/256/128/1 variable! ft-image-type

: new-ft-image ft-image-type @ new 0.0 * ; # find a better way to create an empty image