]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/colors/yuv/yuv-tests.factor
colors: merge colors.constants and colors.hex.
[factor.git] / basis / colors / yuv / yuv-tests.factor
index cab48d6a053b7e50a5ced435a6dc4e3d9aa48e8e..457f3f870e83f194ac4a0e42bb7c32b114fc98d6 100644 (file)
@@ -8,9 +8,7 @@ ranges sequences tools.test ;
     0.0 1.0 0.1 <range> [| r |
         0.0 1.0 0.1 <range> [| g |
             0.0 1.0 0.1 <range> [| b |
-                r g b 1.0 <rgba> dup >yuva >rgba
-                [ >rgba-components 4array ] bi@
-                [ 0.00000001 ~ ] 2all?
+                r g b 1.0 <rgba> dup >yuva color=
             ] all?
         ] all?
     ] all?