ColorEx UDF

[scintilla4evr]

Hello! I wrote a small UDF for converting and comparing colors and I'd like to share it with you.

Features:

• Converting colors to CMYK, XYZ, CIE-L*ab and CIE-L*CH
• Calculating color harmonies
• Calculating delta value for colors (Delta C*, H* and E*)
• Lots of color constants (over 1900, including colors from Google Material Design and web colors)

ColorEx UDF

[mLipok]

It looks promising, but:
 

Quote

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\user\Downloads\ColorEx UDF\Example.au3" /UserParams    
+>01:16:34 Starting AutoIt3Wrapper v.16.612.1119.0 SciTE v.3.6.6.0   Keyboard:00000415  OS:WIN_10/  CPU:X64 OS:X64  Environment(Language:0415)  CodePage:65001  utf8.auto.check:4
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\user\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\user\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.15.1)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\user\Downloads\ColorEx UDF\Example.au3
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(82,49) : warning: $iC: possibly used before declaration.
    $iR = Round($__COLORCONSTANTS_RGBMAX * (1 - $iC)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(82,61) : warning: $iK: possibly used before declaration.
    $iR = Round($__COLORCONSTANTS_RGBMAX * (1 - $iC) * (1 - $iK)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(83,49) : warning: $iM: possibly used before declaration.
    $iG = Round($__COLORCONSTANTS_RGBMAX * (1 - $iM)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(84,49) : warning: $iY: possibly used before declaration.
    $iB = Round($__COLORCONSTANTS_RGBMAX * (1 - $iY)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(322,20) : error: syntax error
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(322,20) : error: Statement cannot be just an expression.
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(322,25) : error: Statement cannot be just an expression.
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(323,20) : error: syntax error
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(323,20) : error: Statement cannot be just an expression.
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(323,25) : error: Statement cannot be just an expression.
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(326,23) : warning: $aLCH1: possibly used before declaration.
    $aLCH1[2] = $aLCH1[2]-
    ~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(329,27) : warning: $aLCH2: possibly used before declaration.
    $aLCH2[2] = Mod($aLCH2[2]+
    ~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(338,20) : error: syntax error
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(338,20) : error: Statement cannot be just an expression.
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(338,25) : error: Statement cannot be just an expression.
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(339,20) : error: syntax error
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(339,20) : error: Statement cannot be just an expression.
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(339,25) : error: Statement cannot be just an expression.
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(354,20) : error: syntax error
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(354,20) : error: Statement cannot be just an expression.
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(354,25) : error: Statement cannot be just an expression.
    Local $aLCH1[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(355,20) : error: syntax error
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(355,20) : error: Statement cannot be just an expression.
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(355,25) : error: Statement cannot be just an expression.
    Local $aLCH2[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(370,19) : error: syntax error
    Local $aRet[3] = $aLCH
    ~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(370,19) : error: Statement cannot be just an expression.
    Local $aRet[3] = $aLCH
    ~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(370,24) : error: Statement cannot be just an expression.
    Local $aRet[3] = $aLCH
    ~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(372,25) : warning: $aRet: possibly used before declaration.
    $aRet[2] = Mod($aRet[2]+
    ~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(82,49) : error: $iC: undeclared global variable.
    $iR = Round($__COLORCONSTANTS_RGBMAX * (1 - $iC)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(82,61) : error: $iK: undeclared global variable.
    $iR = Round($__COLORCONSTANTS_RGBMAX * (1 - $iC) * (1 - $iK)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(83,49) : error: $iM: undeclared global variable.
    $iG = Round($__COLORCONSTANTS_RGBMAX * (1 - $iM)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(84,49) : error: $iY: undeclared global variable.
    $iB = Round($__COLORCONSTANTS_RGBMAX * (1 - $iY)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\user\Downloads\ColorEx UDF\Example.au3 - 25 error(s), 7 warning(s)
!>01:16:35 AU3Check ended. Press F4 to jump to next error.rc:2
+>01:16:35 AutoIt3Wrapper Finished.
>Exit code: 2    Time: 1.146
 

Could you please fix it ?

 

[scintilla4evr]

@mLipok, fixed. I hope.

[mLipok]

Almost:

Quote

"C:\Users\user\Downloads\ColorEx UDF\ColorEx.au3"(51,20) : warning: $aColor: possibly used before declaration.
    $fRed = $aColor[0]/
    ~~~~~~~~~~~~~~~~~~^
C:\Users\user\Downloads\ColorEx UDF\Example.au3 - 0 error(s), 1 warning(s)
 

 

where you are using $aArray in this function :

Func _ColorConvertRGBtoCMYK($aArray)
    Local $aRet[4]
    Local $fRed, $fGreen, $fBlue
    Local $fC, $fM, $fY, $fK
    Local $minCMY

    $fRed = $aColor[0]/255

 

??

 

[scintilla4evr]

@mLipok, done!

[coffeeturtle]

Thank you for sharing @scintilla4evr  !!

 

[chrisatack]

Hi

If anyone needs it. I have added the Natural Colour System (NCS) to the constants. I attached the file.

MFG Chris

ColorExConstants.au3