tile-pen

Vocabulary

ui.pens.tile

Definition

IN: ui.pens.tile

TUPLE: tile-pen left center right background foreground ;

Methods

USING: combinators kernel ui.pens ui.pens.tile ;

M: tile-pen draw-interior
    {
        [ nip >tile-pen< ]
        [ compute-tile-xs ]
        [ compute-tile-widths ]
        [ drop ]
    } 2cleave [ render-tile ] curry tri-curry@ tri-curry* tri* ;


USING: accessors kernel ui.pens ui.pens.tile ;

M: tile-pen pen-background nip background>> ;


USING: accessors kernel ui.pens ui.pens.tile ;

M: tile-pen pen-foreground nip foreground>> ;


USING: accessors kernel math.vectors ui.images ui.pens
ui.pens.tile ;

M: tile-pen pen-pref-dim
    swap [
        >tile-pen< [ image-dim ] tri@
        [ vmax vmax ] [ v+ v+ ] 3bi
    ] dip orientation>> set-axis ;