This is Freetype binding for Tcl using ffidl and tcloo written by me.
It requires ffidl, tcloo and freetype library!
package require Freetype::init FT_Init_FreeType lib FT_New_Face $lib "fonts/TakaoExMincho.ttf" 0 face puts family_name=[$face get family_name] FT_Done_Face $face FT_Done_FreeType $lib $face destroy $lib destroy
The TclOO object is wrapper of struct of C. The object just contains a pointer of struct and offsets of members. TclOO system allows candidate lists of members in the interactive shell. The interface is very similar of C. It is very convenient for testing a little code.
http://reddog.s35.xrea.com/software/freetype0.1.zip