 
 :: render ( line -- line image )
     line line>> :> ctline
-    line render-info>> string>> :> string
-    line render-info>> font>> :> font
-    line render-info>> loc>> :> loc
-    line render-info>> dim>> :> dim
+    line rendered-line>> string>> :> string
+    line rendered-line>> font>> :> font
+    line rendered-line>> loc>> :> loc
+    line rendered-line>> dim>> :> dim
 
     line dim [
         {

        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 }


        line >>line

        font string loc dim <rendered-line> >>rendered-line

        metrics >>metrics

