Você não pode selecionar mais de 25 tópicos
Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
|
- module Main where
-
- import ColorWheel.HSVTransformations
- import System.Environment
- import System.Exit
- import ColorWheel.RGBPurifier
- import Numeric (showHex, showIntAtBase)
- import Data.List
- import Text.Printf
-
- intToHex :: [Int] -> [String]
- intToHex y = fmap (\x -> showHex x "") y
-
- main :: IO ()
- main = do
- args <- getArgs
- let firstArg = (\x -> if length args > 0 then args !! 0 else []) args
- case firstArg of
- "--hsv2rgb" -> do
- y <- hsv2rgb (read $ args !! 1) (read $ args !! 2) (read $ args !! 3) >>= \x -> return $ flooredRgb x
- let c = 124 :: Int
- putStrLn $ printf "%02x%02x%02x" (y !! 0) (y !! 1) (y !! 2)
- -- print $ intercalate "" (intToHex y)
- [] -> print "please provide parameter"
-
|