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