draw-image ( gadget path loc dim -- gadget )

Vocabulary

gamelib.ui

Inputs

gadget	an object
path	an object
loc	an object
dim	an object

Outputs

gadget

an object

Definition

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

IN: gamelib.ui

:: draw-image ( gadget path loc dim -- gadget )
    gadget [
        dim { path loc } gadget textures>>
        [ first load-image loc <texture> ] cache
        draw-scaled-texture
    ] draw-append ;