M: uniscribe-renderer flush-layout-cache
cached-script-strings get-global purge-cache ;
-M: uniscribe-renderer string>image ( font string -- image loc )
+M: uniscribe-renderer string>image
cached-script-string script-string>image { 0 0 } ;
-M: uniscribe-renderer x>offset ( x font string -- n )
+M: uniscribe-renderer x>offset
[ 2drop 0 ] [
cached-script-string x>line-offset 0 = [ 1 + ] unless
] if-empty ;
-M: uniscribe-renderer offset>x ( n font string -- x )
+M: uniscribe-renderer offset>x
[ 2drop 0 ] [ cached-script-string line-offset>x ] if-empty ;
-M: uniscribe-renderer font-metrics ( font -- metrics )
+M: uniscribe-renderer font-metrics
" " cached-script-string metrics>> clone f >>width ;
-M: uniscribe-renderer line-metrics ( font string -- metrics )
+M: uniscribe-renderer line-metrics
[ " " line-metrics clone 0 >>width ]
[ cached-script-string metrics>> 50 >>width 10 >>cap-height 10 >>x-height ]
if-empty ;