|
12345678910111213141516171819202122 |
- module ColorWheel.RGBPurifier where
-
-
- import ColorWheel.RGBDefinition
-
- type FlooredRGB = [Int]
-
- flooredRgb :: RGB -> FlooredRGB
- flooredRgb rgb = do
- let red = floor $ r rgb
- let green = floor $ g rgb
- let blue = floor $ b rgb
- [red,green,blue]
-
-
-
-
-
-
-
-
-
|