render-tile-gl3 ( tile x width gadget -- )

Vocabulary

ui.pens.tile

Inputs

tile	an object
x	an object
width	an object
gadget	an object

Outputs

None

Definition

USING: accessors kernel math.vectors opengl opengl.textures
sequences ui.images ui.render ;

IN: ui.pens.tile

:: render-tile-gl3 ( tile x width gadget -- )
    x gadget orientation>> v* [ gl-round ] map
    :> loc width gadget [ dim>> swap ] [ orientation>> ] bi
    set-axis
    :> dim tile cached-image :> img img make-texture-gl3
    :> tex-id loc dim tex-id img upside-down?>> gl3-draw-texture
    tex-id delete-texture ;