basis/colors/yiq/yiq-tests.factor

   1 ! Copyright (C) 2013 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: arrays colors colors.yiq kernel locals math.functions
   5 math.ranges sequences tools.test ;
   6
   7 { t } [
   8     0.0 1.0 0.1 <range> [| r |
   9         0.0 1.0 0.1 <range> [| g |
  10             0.0 1.0 0.1 <range> [| b |
  11                 r g b 1.0 <rgba> dup >yiqa >rgba
  12                 [ >rgba-components 4array ] bi@
  13                 [ 0.00000001 ~ ] 2all?
  14             ] all?
  15         ] all?
  16     ] all?
  17 ] unit-test