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 opengl ui.images ;

IN: ui.pens.tile

: render-tile ( tile x width gadget -- )
    [ orientation>> [ v* ] curry dip ] keep [
        [ dim>> swap ] [ orientation>> ] bi set-axis
        swap draw-scaled-image
    ] 2curry with-translation ;