Mercurial > repos > tabletprog

diff 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
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
 			}