@@ -0,0 +1,3 @@ | |||
# Changelog for color-wheel-calculations | |||
## Unreleased changes |
@@ -0,0 +1,30 @@ | |||
Copyright Author name here (c) 2020 | |||
All rights reserved. | |||
Redistribution and use in source and binary forms, with or without | |||
modification, are permitted provided that the following conditions are met: | |||
* Redistributions of source code must retain the above copyright | |||
notice, this list of conditions and the following disclaimer. | |||
* Redistributions in binary form must reproduce the above | |||
copyright notice, this list of conditions and the following | |||
disclaimer in the documentation and/or other materials provided | |||
with the distribution. | |||
* Neither the name of Author name here nor the names of other | |||
contributors may be used to endorse or promote products derived | |||
from this software without specific prior written permission. | |||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS | |||
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT | |||
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR | |||
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT | |||
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | |||
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT | |||
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, | |||
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY | |||
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | |||
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE | |||
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
@@ -1,2 +1 @@ | |||
# ColorWheel | |||
# color-wheel-calculations |
@@ -0,0 +1,2 @@ | |||
import Distribution.Simple | |||
main = defaultMain |
@@ -0,0 +1,26 @@ | |||
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" | |||
@@ -0,0 +1,66 @@ | |||
cabal-version: 1.12 | |||
-- This file has been generated from package.yaml by hpack version 0.33.0. | |||
-- | |||
-- see: https://github.com/sol/hpack | |||
-- | |||
-- hash: 04c54a505208bd86b34d8e3e0eba16eadeedc5a3c50062aef9c3ad16f42e65f9 | |||
name: color-wheel-calculations | |||
version: 0.1.0.0 | |||
description: Please see the README on GitHub at <https://github.com/githubuser/color-wheel-calculations#readme> | |||
homepage: https://github.com/githubuser/color-wheel-calculations#readme | |||
bug-reports: https://github.com/githubuser/color-wheel-calculations/issues | |||
author: Author name here | |||
maintainer: example@example.com | |||
copyright: 2020 Author name here | |||
license: BSD3 | |||
license-file: LICENSE | |||
build-type: Simple | |||
extra-source-files: | |||
README.md | |||
ChangeLog.md | |||
source-repository head | |||
type: git | |||
location: https://github.com/githubuser/color-wheel-calculations | |||
library | |||
exposed-modules: | |||
ColorWheel.Cordinates | |||
ColorWheel.Radian | |||
ColorWheel.HSVTransformations | |||
ColorWheel.RGBDefinition | |||
ColorWheel.RGBPurifier | |||
other-modules: | |||
Paths_color_wheel_calculations | |||
hs-source-dirs: | |||
src | |||
build-depends: | |||
base >=4.7 && <5 | |||
default-language: Haskell2010 | |||
executable color-wheel-calculations-exe | |||
main-is: Main.hs | |||
other-modules: | |||
Paths_color_wheel_calculations | |||
hs-source-dirs: | |||
app | |||
ghc-options: -threaded -rtsopts -with-rtsopts=-N | |||
build-depends: | |||
base >=4.7 && <5 | |||
, color-wheel-calculations | |||
default-language: Haskell2010 | |||
test-suite color-wheel-calculations-test | |||
type: exitcode-stdio-1.0 | |||
main-is: Spec.hs | |||
other-modules: | |||
Paths_color_wheel_calculations | |||
hs-source-dirs: | |||
test | |||
ghc-options: -threaded -rtsopts -with-rtsopts=-N | |||
build-depends: | |||
base >=4.7 && <5 | |||
, color-wheel-calculations | |||
default-language: Haskell2010 |
@@ -0,0 +1,48 @@ | |||
name: color-wheel-calculations | |||
version: 0.1.0.0 | |||
github: "githubuser/color-wheel-calculations" | |||
license: BSD3 | |||
author: "Author name here" | |||
maintainer: "example@example.com" | |||
copyright: "2020 Author name here" | |||
extra-source-files: | |||
- README.md | |||
- ChangeLog.md | |||
# Metadata used when publishing your package | |||
# synopsis: Short description of your package | |||
# category: Web | |||
# To avoid duplicated efforts in documentation and dealing with the | |||
# complications of embedding Haddock markup inside cabal files, it is | |||
# common to point users to the README.md file. | |||
description: Please see the README on GitHub at <https://github.com/githubuser/color-wheel-calculations#readme> | |||
dependencies: | |||
- base >= 4.7 && < 5 | |||
library: | |||
source-dirs: src | |||
executables: | |||
color-wheel-calculations-exe: | |||
main: Main.hs | |||
source-dirs: app | |||
ghc-options: | |||
- -threaded | |||
- -rtsopts | |||
- -with-rtsopts=-N | |||
dependencies: | |||
- color-wheel-calculations | |||
tests: | |||
color-wheel-calculations-test: | |||
main: Spec.hs | |||
source-dirs: test | |||
ghc-options: | |||
- -threaded | |||
- -rtsopts | |||
- -with-rtsopts=-N | |||
dependencies: | |||
- color-wheel-calculations |
@@ -0,0 +1,14 @@ | |||
module ColorWheel.Cordinates where | |||
cordinateCalculation :: Float -> Float -> (Float -> Float) -> Float | |||
cordinateCalculation r a calc = r * (calc a) | |||
calculateX :: Float -> Float -> Float | |||
calculateX r a = cordinateCalculation r a cos | |||
calculateY :: Float -> Float -> Float | |||
calculateY r a = cordinateCalculation r a sin |
@@ -0,0 +1,69 @@ | |||
module ColorWheel.HSVTransformations where | |||
import ColorWheel.Radian | |||
import qualified ColorWheel.Cordinates as Cordinate | |||
import ColorWheel.RGBDefinition | |||
import Data.Fixed | |||
-- hsv2rgb 207 148 120 75 == RGB {r = 19.125, g = 191.25, b = 19.125} | |||
hsv2rgbFromXY :: Float -> Float -> Float -> Float -> IO RGB | |||
-- degree can be calculated from cordnates | |||
hsv2rgbFromXY cordinateX cordinateY degree value = | |||
do | |||
let distanceFromOrigin = ( ((sqrt $ (cordinateX ^ 2) + (cordinateY ^ 2))/255) * 10) | |||
let distanceFromOriginAsPercent = fromIntegral ((floor distanceFromOrigin) * 10) / 100 | |||
hsv2rgb (degree+90) distanceFromOriginAsPercent value | |||
calculateC :: Float -> Float -> Float | |||
calculateC v s = v * s | |||
calculateM :: Float -> Float -> Float | |||
calculateM v c = v - c | |||
calculateX :: Float -> Float -> Float | |||
calculateX degree c = c * ( 1 - (abs $ (mod' (degree / 60) (2)) - 1)) | |||
to255Percent :: Float -> Float | |||
to255Percent value = (255 * (value*100)) / 100 | |||
-- parameters actually are; H S V | |||
-- H is degree | |||
-- S is sue | |||
-- V is value | |||
hsv2rgb :: Float -> Float -> Float -> IO RGB | |||
hsv2rgb degree distanceFromOriginAsPercent value = | |||
do | |||
let saturation = distanceFromOriginAsPercent | |||
let valueAs255 = to255Percent value | |||
let radian = toRadianFloor degree | |||
let v = valueAs255 | |||
let s = saturation | |||
let c = calculateC v s | |||
let m = calculateM v c | |||
let x = calculateX degree c | |||
return $ cmxToRGB radian c m x | |||
cmxToRGB :: Int -> Float -> Float -> Float -> RGB | |||
cmxToRGB radian c m x = do | |||
case radian of | |||
1 -> RGB { r = c+m, g = x+m, b = m } | |||
2 -> RGB { r = x+m, g = c+m, b = m } | |||
3 -> RGB { r = m, g = c+m, b = x+m } | |||
4 -> RGB { r = m, g = x+m, b = c+m } | |||
5 -> RGB { r = x+m, g = m, b = c+m } | |||
6 -> RGB { r = c+m, g = m, b = x+m } |
@@ -0,0 +1,5 @@ | |||
module ColorWheel.RGBDefinition where | |||
data RGB = RGB { r :: Float, g :: Float, b :: Float } deriving (Show,Eq) |
@@ -0,0 +1,22 @@ | |||
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] | |||
@@ -0,0 +1,9 @@ | |||
module ColorWheel.Radian where | |||
toRadian :: Float -> Float | |||
toRadian a = (a * (2 * pi) / 360) + 1 | |||
toRadianFloor :: Float -> Int | |||
toRadianFloor a = floor $ toRadian a |
@@ -0,0 +1,66 @@ | |||
# This file was automatically generated by 'stack init' | |||
# | |||
# Some commonly used options have been documented as comments in this file. | |||
# For advanced use and comprehensive documentation of the format, please see: | |||
# https://docs.haskellstack.org/en/stable/yaml_configuration/ | |||
# Resolver to choose a 'specific' stackage snapshot or a compiler version. | |||
# A snapshot resolver dictates the compiler version and the set of packages | |||
# to be used for project dependencies. For example: | |||
# | |||
# resolver: lts-3.5 | |||
# resolver: nightly-2015-09-21 | |||
# resolver: ghc-7.10.2 | |||
# | |||
# The location of a snapshot can be provided as a file or url. Stack assumes | |||
# a snapshot provided as a file might change, whereas a url resource does not. | |||
# | |||
# resolver: ./custom-snapshot.yaml | |||
# resolver: https://example.com/snapshots/2018-01-01.yaml | |||
resolver: lts-15.0 | |||
# User packages to be built. | |||
# Various formats can be used as shown in the example below. | |||
# | |||
# packages: | |||
# - some-directory | |||
# - https://example.com/foo/bar/baz-0.0.2.tar.gz | |||
# subdirs: | |||
# - auto-update | |||
# - wai | |||
packages: | |||
- . | |||
# Dependency packages to be pulled from upstream that are not in the resolver. | |||
# These entries can reference officially published versions as well as | |||
# forks / in-progress versions pinned to a git hash. For example: | |||
# | |||
# extra-deps: | |||
# - acme-missiles-0.3 | |||
# - git: https://github.com/commercialhaskell/stack.git | |||
# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a | |||
# | |||
# extra-deps: [] | |||
# Override default flag values for local packages and extra-deps | |||
# flags: {} | |||
# Extra package databases containing global packages | |||
# extra-package-dbs: [] | |||
# Control whether we use the GHC we find on the path | |||
# system-ghc: true | |||
# | |||
# Require a specific version of stack, using version ranges | |||
# require-stack-version: -any # Default | |||
# require-stack-version: ">=2.1" | |||
# | |||
# Override the architecture used by stack, especially useful on Windows | |||
# arch: i386 | |||
# arch: x86_64 | |||
# | |||
# Extra directories used by stack for building | |||
# extra-include-dirs: [/path/to/dir] | |||
# extra-lib-dirs: [/path/to/dir] | |||
# | |||
# Allow a newer minor version of GHC than the snapshot specifies | |||
# compiler-check: newer-minor |
@@ -0,0 +1,12 @@ | |||
# This file was autogenerated by Stack. | |||
# You should not edit this file by hand. | |||
# For more information, please see the documentation at: | |||
# https://docs.haskellstack.org/en/stable/lock_files | |||
packages: [] | |||
snapshots: | |||
- completed: | |||
size: 488576 | |||
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/15/0.yaml | |||
sha256: e4b6a87b47ec1cf63a7f1a0884a3b276fce2b0d174a10e8753c4f618e7983568 | |||
original: lts-15.0 |
@@ -0,0 +1,14 @@ | |||
module RGBTransformTest1 where | |||
import ColorWheel.HSVTransformations | |||
import ColorWheel.RGBDefinition | |||
transformationTest1 :: IO () | |||
transformationTest1 = do | |||
result <- hsv2rgb 120 0.9 0.75 | |||
if result == RGB {r = 19.125, g = 191.25, b = 19.125} | |||
then | |||
print "OK!" | |||
else | |||
print "FAIL!" |
@@ -0,0 +1,6 @@ | |||
import RGBTransformTest1 | |||
main :: IO () | |||
main = do | |||
transformationTest1 |