Mercurial > repos > tabletprog
diff modules/freetype.tp @ 326:50760ba52b11
Added basic rendering of strings to freetype demo
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 24 Mar 2015 21:50:28 -0700 |
parents | 3edd0169311a |
children | c1fad3d93861 |
line wrap: on
line diff
--- a/modules/freetype.tp Tue Mar 24 21:49:45 2015 -0700 +++ b/modules/freetype.tp Tue Mar 24 21:50:28 2015 -0700 @@ -224,6 +224,14 @@ ccall: makeSlot 1 opaque } + llMessage: unitsPerEm withVars: { + u16ret <- obj_uint16 ptr + } andCode: { + u16ret <- make_object: (addr_of: obj_uint16_meta) NULL 0 + u16ret num!: (face units_per_EM) + u16ret + } + firstChar <- { _helper getFirstChar: faceOpaque _makeChar }