basis/colors/colors.factor

   1 ! Copyright (C) 2003, 2008 Slava Pestov.
   2 ! Copyright (C) 2008 Eduardo Cavazos.
   3 ! See http://factorcode.org/license.txt for BSD license.
   4 USING: kernel accessors ;
   5 IN: colors
   6
   7 TUPLE: color ;
   8
   9 TUPLE: rgba < color red green blue alpha ;
  10
  11 C: <rgba> rgba
  12
  13 GENERIC: >rgba ( object -- rgba )
  14
  15 M: rgba >rgba ( rgba -- rgba ) ;
  16
  17 M: color red>>   ( color -- red   ) >rgba red>>   ;
  18 M: color green>> ( color -- green ) >rgba green>> ;
  19 M: color blue>>  ( color -- blue  ) >rgba blue>>  ;
  20
  21 CONSTANT: black        T{ rgba f 0.0   0.0   0.0   1.0  }
  22 CONSTANT: blue         T{ rgba f 0.0   0.0   1.0   1.0  }
  23 CONSTANT: cyan         T{ rgba f 0     0.941 0.941 1    }
  24 CONSTANT: gray         T{ rgba f 0.6   0.6   0.6   1.0  }
  25 CONSTANT: green        T{ rgba f 0.0   1.0   0.0   1.0  }
  26 CONSTANT: light-gray   T{ rgba f 0.95  0.95  0.95  0.95 }
  27 CONSTANT: light-purple T{ rgba f 0.8   0.8   1.0   1.0  }
  28 CONSTANT: magenta      T{ rgba f 0.941 0     0.941 1    }
  29 CONSTANT: orange       T{ rgba f 0.941 0.627 0     1    }
  30 CONSTANT: purple       T{ rgba f 0.627 0     0.941 1    }
  31 CONSTANT: red          T{ rgba f 1.0   0.0   0.0   1.0  }
  32 CONSTANT: white        T{ rgba f 1.0   1.0   1.0   1.0  }
  33 CONSTANT: yellow       T{ rgba f 1.0   1.0   0.0   1.0  }