basis/colors/hsv/hsv-tests.factor

   1 USING: accessors colors colors.hsv kernel math tools.test ;
   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