Mercurial > repos > tabletprog

comparison modules/freetype.tp @ 326:50760ba52b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
325:4a79311dbd29 326:50760ba52b11
222 opaque <- make_object: (addr_of: cpointer_meta) NULL 0 222 opaque <- make_object: (addr_of: cpointer_meta) NULL 0
223 opaque val!: (face glyph) 223 opaque val!: (face glyph)
224 ccall: makeSlot 1 opaque 224 ccall: makeSlot 1 opaque
225 } 225 }
226 226
227 llMessage: unitsPerEm withVars: {
228 u16ret <- obj_uint16 ptr
229 } andCode: {
230 u16ret <- make_object: (addr_of: obj_uint16_meta) NULL 0
231 u16ret num!: (face units_per_EM)
232 u16ret
233 }
234
227 firstChar <- { 235 firstChar <- {
228 _helper getFirstChar: faceOpaque _makeChar 236 _helper getFirstChar: faceOpaque _makeChar
229 } 237 }
230 238
231 nextChar <- :curChar { 239 nextChar <- :curChar {