[htoolkit-cvs] port/src/Port Colors.hs,1.1,1.2

[<kr_...@us...>]

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv27259/src/Port

Modified Files:
	Colors.hs 
Log Message:
Add support for CMY color scheme


Index: Colors.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Colors.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Colors.hs	15 Mar 2003 01:06:32 -0000	1.1
--- Colors.hs	15 Mar 2003 22:33:10 -0000	1.2
***************
*** 18,21 ****
--- 18,22 ----
                Color
              , rgbColor, colorRed, colorGreen, colorBlue
+             , cmyColor, colorCyan, colorMagenta, colorYellow 
                -- * Standard colors.
              , aliceblue, antiquewhite, aqua, aquamarine, azure, beige
***************
*** 222,225 ****
--- 223,241 ----
  colorBlue  (Color c) = fromIntegral ((c `div` 0x10000) .&. 0xFF)
  
+ -- | Create a color from a cyan\/magenta\/yellow triple.
+ cmyColor :: Word8 -> Word8 -> Word8 -> Color
+ cmyColor c m y = Color ((((fromIntegral y) * 0x10000) .|. ((fromIntegral m) * 0x100) .|. fromIntegral c) `xor` 0xFFFFFF)
+ 
+ -- | Returns a cyan color component
+ colorCyan :: Color -> Word8
+ colorCyan (Color c) = fromIntegral ((c              ) .&. 0xFF) `xor` 0xFF
+ 
+ -- | Returns a magenta color component
+ colorMagenta :: Color -> Word8
+ colorMagenta (Color c) = fromIntegral ((c `div` 0x100  ) .&. 0xFF) `xor` 0xFF
+ 
+ -- | Returns a yellow color component
+ colorYellow :: Color -> Word8
+ colorYellow (Color c) = fromIntegral ((c `div` 0x10000) .&. 0xFF) `xor` 0xFF
  
  -- Default colors.