new accessors
parent
31c5e57ab2
commit
39c5b13b50
|
@ -184,7 +184,7 @@ M: freetype-renderer string-height ( open-font string -- h )
|
||||||
: draw-char ( open-font sprites char loc -- )
|
: draw-char ( open-font sprites char loc -- )
|
||||||
GL_MODELVIEW [
|
GL_MODELVIEW [
|
||||||
0 0 glTranslated
|
0 0 glTranslated
|
||||||
char-sprite sprite-dlist glCallList
|
char-sprite dlist>> glCallList
|
||||||
] do-matrix ;
|
] do-matrix ;
|
||||||
|
|
||||||
: char-widths ( open-font string -- widths )
|
: char-widths ( open-font string -- widths )
|
||||||
|
|
Loading…
Reference in New Issue