<color-model> ( model class -- model )

Vocabulary

color-picker

Inputs

model	an object
class	an object

Outputs

model

an object

Definition

USING: classes.tuple kernel math models.arrow sequences ;

IN: color-picker

: <color-model> ( model class -- model )
    [ [ [ 255 /f ] map 1.0 suffix ] ] dip [ slots>tuple ] curry
    compose <arrow> ;