image-pen

Vocabulary

ui.pens.image

Definition

IN: ui.pens.image

TUPLE: image-pen image fill? ;

Methods

USING: accessors kernel math opengl sequences ui.images ui.pens
ui.pens.image ;

M: image-pen draw-interior
    [ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
    [ draw-scaled-image ] [
        [ image-dim [ - 2 /i ] 2map ] keep [ draw-image ] curry
        with-translation
    ] if ;


USING: accessors kernel ui.images ui.pens ui.pens.image ;

M: image-pen pen-pref-dim nip image>> image-dim ;