1 ! Copyright (C) 2014 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: arrays colors kernel locals math.functions math.ranges
10 0.0 1.0 0.1 <range> [| r |
11 0.0 1.0 0.1 <range> [| g |
12 0.0 1.0 0.1 <range> [| b |
13 r g b 1.0 <rgba> dup >xyza >rgba
14 [ >rgba-components 4array ] bi@