factor: trim using lists

[factor.git] / basis / colors / yiq / yiq.factor

diff --git a/basis/colors/yiq/yiq.factor b/basis/colors/yiq/yiq.factor
index 2ab943baa77450381e602ed03285ee750333d9cb..47250fdbbbbc984bf022f5a3d3c23f60dd016e62 100644 (file)
--- a/basis/colors/yiq/yiq.factor
+++ b/basis/colors/yiq/yiq.factor
@@ -1,12 +1,12 @@
 ! Copyright (C) 2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: accessors colors combinators kernel locals math
+USING: accessors colors combinators kernel math
 math.order ;
 
 IN: colors.yiq
 
-TUPLE: yiqa < color
+TUPLE: yiqa
 { y read-only }
 { in-phase read-only }
 { quadrature read-only }
@@ -14,6 +14,8 @@ TUPLE: yiqa < color
 
 C: <yiqa> yiqa
 
+INSTANCE: yiqa color
+
 M: yiqa >rgba
     {
         [ y>> ] [ in-phase>> ] [ quadrature>> ] [ alpha>> ]