compute-tile-xs ( gadget pen -- x1 x2 x3 )

Vocabulary

ui.pens.tile

Inputs

gadget	an object
pen	an object

Outputs

x1	an object
x2	an object
x3	an object

Definition

USING: accessors kernel math.vectors ui.images ;

IN: ui.pens.tile

: compute-tile-xs ( gadget pen -- x1 x2 x3 )
    [ 2drop { 0 0 } ] [ nip left>> image-dim ]
    [ [ dim>> ] [ right>> image-dim ] bi* v- ] 2tri ;