assocs cache classes colors combinators core-foundation
core-foundation.attributed-strings core-foundation.strings
core-graphics core-graphics.types core-text.fonts destructors
-fonts init kernel locals make math math.functions math.order
-math.vectors memoize namespaces sequences strings
-io.encodings.utf16n io.encodings.string ;
+fonts init io.encodings.string io.encodings.utf16n kernel make
+math math.functions math.order math.vectors namespaces opengl
+sequences strings ;
IN: core-text
TYPEDEF: void* CTLineRef
compute-height ;
: metrics>dim ( bounds -- dim )
- [ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi 2array ;
+ [ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi
+ gl-scale ceiling >integer gl-unscale 2array ;
: fill-background ( context font dim -- )
[ background>> >rgba-components CGContextSetRGBFillColor ]