compute-tile-widths ( gadget pen -- w1 w2 w3 )

Vocabulary

ui.pens.tile

Inputs

gadget	an object
pen	an object

Outputs

w1	an object
w2	an object
w3	an object

Definition

USING: accessors kernel math.vectors ui.images ;

IN: ui.pens.tile

: compute-tile-widths ( gadget pen -- w1 w2 w3 )
    [ nip left>> image-dim ] [
        [ dim>> ]
        [ [ left>> ] [ right>> ] bi [ image-dim ] bi@ ] bi* v+
        v-
    ] [ nip right>> image-dim ] 2tri ;