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]