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.
|
