draw-cached-texture ( path gadget -- )

Vocabulary

minesweeper

Inputs

path	an object
gadget	an object

Outputs

None

Definition

USING: accessors assocs images.loader kernel math
opengl.textures sequences ;

IN: minesweeper

: draw-cached-texture ( path gadget -- )
    textures>> [ load-image { 0 0 } <texture> ] cache
    [ dim>> [ 2 /i ] map ] [ draw-scaled-texture ] bi ;