Jump to content
scintilla4evr

ColorEx UDF

Recommended Posts

scintilla4evr

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

color.png

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

  • Like 2

Share this post


Link to post
Share on other sites
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 ?

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2018-09-20

Share this post


Link to post
Share on other sites
scintilla4evr
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

 

??

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2018-09-20

Share this post


Link to post
Share on other sites
scintilla4evr
coffeeturtle

Thank you for sharing @scintilla4evr  !!

 

Share this post


Link to post
Share on other sites
chrisatack

Hi

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

MFG Chris :D

ColorExConstants.au3

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • Tersion
      By Tersion
      Here the this wiki page with list of available UDFs for data compression. For my tasks I only need ZIP support, so I started looking at pure AutoIt UDFs without any 3rd party dlls. And found out that most of available realizations uses standard ("native method") Windows dll - "zipfldr.dll". So for now I chose ZIP UDF by wraithdu. I've tested it on Windows 7 (x64) and it seem works fine. But here the comment from another topic where user says that Windows 10 discontinued support of "zipfldr.dll". Now I confused. I don't have around any Windows 10 machine to tested it. So maybe someone could confirm or deny that? Or maybe would better to switch to UDF with 7zip dll?
      I need an advice...
    • TheSaint
      By TheSaint
      Here is the bare bones of a UDF I have started work on.
      Mostly just a proof of concept at this stage, and still need to add some functions and dress the UDF up a bit ... to look like a UDF ... though it has my own distinct styling, especially as I have never really developed a UDF before now .... used plenty and modified plenty though. I've even invented my own UDF variable naming convention, which I am sure some of you will be aghast at. I work with what feels best for me, but others are free to adapt if they wish.
      The idea is to emulate the simplicity of INI files, but gain the benefits of SQL.
      Two scripts are provided.
      (1) The UDF, a work in progress - SimpleSQL_UDF.au3
      (2) An example or testing script - UDF_Test.au3
      Another first for me, is creating a 2D array from scratch, never done that before, that I can recall ... never had a need, and even for 1 dimension arrays, for a long time now, I have just used _StringSplit to create them. So I needed a bit of a refresher course, which my good buddy @TheDcoder assisted me with ... not without some angst I might add. LOL
      SimpleSQL_UDF.zip  (12 downloads previously)
      (I have now completed all the functions I intended to. My next update will be a big improvement, bringing things more inline with my latest INItoSQL DB program changes.)
      Program requires the sqlite3.dll, not included, but easily enough obtained.
      Hopefully the usage is self-evident ... just change the Job number variable in the UDF_Test.au3 file to check the existing functions out.
      Enjoy!
      P.S. This is also related to a new program I have just finished and uploaded - INItoSQL DB
    • xtcislove
      By xtcislove
      Hello,
      as a start in Autoit i tried something i was missing since im using Autoit. 

      I build a custom MessageBox which has a large amount of custom options and which scales its size on the parameters you set. 

      Aviable Settings:
      -Title
      -Unlimited Buttons
      -Text Color (Buttons, Text)

      -Background Color (Msgbox, Buttons, Label) 

      -Button Timeout
      -Autoclose Timeout
      -Icon (Default, No Icon, Custom)

      -Label/ Button Style. 
      -Transparency

      I tried to keep this as close as i could to a Msgbox i was used too on my batch times.

      After i was ready i realised, @Melba23 probably build a way better msgbox which would have suit my needs enterly, anyway thanks to @Melba23 because i use his Stringsize UDF. 

       
       
      local $Message = _sMsgBox("Test", 6, "Continue?") if @extended <> -1 Then MsgBox(0, @extended, $Message&" Button pressed")  
      ScalingMessageBox.au3
    • Gowrisankar
      By Gowrisankar
      Dear members, 
      I am working on a project where, emails from outlook are to be read and moved to various folders within the mailbox, based on the content of the emails.
      I used the below code for moving mails. It works fine when I run it against individual mail ids. But when I run it on Shared mailbox, the mails are not moved to respective folders.
      _OL_ItemMove($oOutlook, $sEntryId, Default, $sDestinationFolder) The value of $sEntryId is saved in an excel report initially. The current process reads the $sEntryId from the excel and passes it to "_OL_ItemMove" statement.
      Requesting the guidance of the forum members in this issue.
    • FrancescoDiMuro
      By FrancescoDiMuro
      Good evening everyone
      I am working with Word UDF ( thanks @water! ), and, especially, with the function _Word_DocFindReplace().
      The replace does work everywhere in the document, but, it does not work in Headers or Footers.
      Am I missing something or am I forced to use the code below?
      I have already looked in the Help file ( about _Word_DocFindReplace() ), but there are no mentions about replace text in Headers/Footers.
      Sub FindAndReplaceFirstStoryOfEachType() Dim rngStory As Range For Each rngStory In ActiveDocument.StoryRanges With rngStory.Find .Text = "find text" .Replacement.Text = "I'm found .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With Next rngStory End Sub Thanks everyone in advance


      Best Regards.
×