render-tile ( 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 namespaces opengl sequences
ui.images ;

IN: ui.pens.tile

: render-tile ( tile x width gadget -- )
    gl3-mode? get-global
    [ render-tile-gl3 ] [
        [ orientation>> [ v* [ gl-round ] map swap ] curry dip ]
        keep [
            [ dim>> swap ] [ orientation>> ] bi set-axis
            swap draw-scaled-image
        ] 3curry with-translation
    ] if ;