basis/colors/gray/gray.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: colors kernel accessors ;
   4 IN: colors.gray
   5
   6 TUPLE: gray < color gray alpha ;
   7
   8 C: <gray> gray
   9
  10 M: gray >rgba ( gray -- rgba )
  11     [ gray>> dup dup ] [ alpha>> ] bi <rgba> ;