 
         line >>line
 
-        font string loc dim <render-info> >>render-info
+        font string loc dim <rendered-line> >>rendered-line
 
         metrics >>metrics
 

        CTLineCreateWithAttributedString
    ] with-destructors ;

TUPLE: line < disposable line metrics image loc dim render-info ;

TUPLE: render-info font string loc dim ;
C: <render-info> render-info

: typographic-bounds ( line -- width ascent descent leading )
    { CGFloat CGFloat CGFloat }


:: render ( line -- line image )
    line line>> :> ctline
    line rendered-line>> string>> :> string
    line rendered-line>> font>> :> font
    line rendered-line>> loc>> :> loc
    line rendered-line>> dim>> :> dim

    line dim [
        {
