\r
: rendered-script-string ( font string -- texture )\r
world get world-text-handle\r
- [ cached-script-string [ image>> { 0 0 } ] [ size>> ] bi <texture> ]\r
+ [ cached-script-string image>> { 0 0 } <texture> ]\r
2cache ;\r
\r
M: uniscribe-renderer draw-string ( font string -- )\r
\r
M: uniscribe-renderer x>offset ( x font string -- n )\r
[ 2drop 0 ] [\r
- cached-script-string x>line-offset 0 = [ 1+ ] unless\r
+ cached-script-string x>line-offset 0 = [ 1 + ] unless\r
] if-empty ;\r
\r
M: uniscribe-renderer offset>x ( n font string -- x )\r