cached-image ( image -- image )


Vocabulary
ui.images

Inputs
imagean object


Outputs
imagean object


Definition
IN: ui.images

GENERIC: cached-image ( image -- image )


Methods
USING: accessors formatting kernel math namespaces opengl
sequences splitting ui.images ui.images.private ;

M: image-name cached-image
path>> gl-scale-factor get-global [
dup 2.0 <
[ drop ]
[ [ "." split1-last ] [ "@%dx." sprintf glue ] bi* ] if
] when* (cached-image) ;


USING: images ui.images ;

M: image cached-image ;