colors: moving some color definitions from extra/ to basis/.

[factor.git] / extra / colors / cmyk / cmyk.factor

diff --git a/extra/colors/cmyk/cmyk.factor b/extra/colors/cmyk/cmyk.factor
deleted file mode 100644 (file)
index dc8e7dc..0000000
--- a/extra/colors/cmyk/cmyk.factor
+++ /dev/null
@@ -1,42 +0,0 @@
-! Copyright (C) 2012 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
-
-USING: accessors combinators colors colors.gray kernel math
-math.order ;
-
-IN: colors.cmyk
-
-TUPLE: cmyka < color
-{ cyan read-only }
-{ magenta read-only }
-{ yellow read-only }
-{ black read-only }
-{ alpha read-only } ;
-
-C: <cmyka> cmyka
-
-M: cmyka >rgba
-    [ [ cyan>> ] [ black>> ] bi + ]
-    [ [ magenta>> ] [ black>> ] bi + ]
-    [ [ yellow>> ] [ black>> ] bi + ] tri
-    [ 1.0 min 1.0 swap - ] tri@ 1.0 <rgba> ; inline
-
-GENERIC: >cmyka ( color -- cmyka )
-
-M: object >cmyka >rgba >cmyka ;
-
-M: rgba >cmyka
-    >rgba-components [
-        [ 1 swap - ] tri@ 3dup min min
-        [ [ - 0.0 1.0 clamp ] curry tri@ ] keep
-    ] dip <cmyka> ;
-
-M: cmyka >gray
-    [
-        {
-            [ cyan>> 0.3 * ]
-            [ magenta>> 0.59 * ]
-            [ yellow>> 0.11 * ]
-            [ black>> ]
-        } cleave + + + 1.0 min 1.0 swap -
-    ] [ alpha>> ] bi <gray> ;