Mercurial > repos > tabletprog
comparison 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 |
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 { |