basis/colors/hsv/hsv-tests.factor

   1 USING: accessors kernel colors colors.hsv tools.test math ;
   2 IN: colors.hsv.tests
   3
   4 : hsv>rgb ( h s v -- r g b )
   5     [ 360 * ] 2dip
   6     1 <hsva> >rgba [ red>> ] [ green>> ] [ blue>> ] tri ;
   7
   8 [ 1/2 1/2 1/2 ] [ 0 0 1/2 hsv>rgb ] unit-test
   9
  10 [ 1/2 1/4 1/4 ] [ 0 1/2 1/2 hsv>rgb ] unit-test
  11 [ 1/3 2/9 2/9 ] [ 0 1/3 1/3 hsv>rgb ] unit-test
  12
  13 [ 24/125 1/5 4/25 ] [ 1/5 1/5 1/5 hsv>rgb ] unit-test
  14 [ 29/180 1/6 5/36 ] [ 1/5 1/6 1/6 hsv>rgb ] unit-test
  15
  16 [ 6/25 2/5 38/125 ] [ 2/5 2/5 2/5 hsv>rgb ] unit-test
  17 [ 8/25 4/5 64/125 ] [ 2/5 3/5 4/5 hsv>rgb ] unit-test
  18
  19 [ 6/25 48/125 3/5 ] [ 3/5 3/5 3/5 hsv>rgb ] unit-test
  20 [ 0 0 0 ] [ 3/5 1/5 0 hsv>rgb ] unit-test
  21
  22 [ 84/125 4/25 4/5 ] [ 4/5 4/5 4/5 hsv>rgb ] unit-test
  23 [ 7/15 1/3 1/2 ] [ 4/5 1/3 1/2 hsv>rgb ] unit-test
  24
  25 [ 5/6 5/36 5/6 ] [ 5/6 5/6 5/6 hsv>rgb ] unit-test
  26 [ 1/6 0 1/6 ] [ 5/6 1 1/6 hsv>rgb ] unit-test
  27
  28 [ 0.5 ] [ 180 0.1 0.2 0.5 <hsva> alpha>> ] unit-test