basis/colors/gray/gray.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors colors kernel math ;
   4 IN: colors.gray
   5
   6 TUPLE: gray { gray read-only } { alpha read-only } ;
   7
   8 C: <gray> gray
   9
  10 INSTANCE: gray color
  11
  12 M: gray >rgba
  13     [ gray>> dup dup ] [ alpha>> ] bi <rgba> ; inline
  14
  15 M: gray red>> gray>> ;
  16
  17 M: gray green>> gray>> ;
  18
  19 M: gray blue>> gray>> ;
  20
  21 GENERIC: >gray ( color -- gray )
  22
  23 M: object >gray >rgba >gray ;
  24
  25 M: rgba >gray
  26     >rgba-components [
  27         [ 0.3 * ] [ 0.59 * ] [ 0.11 * ] tri* + +
  28     ] dip <gray> ;