PDL::Graphics::ColorDistance
0.0.1
This is a PDL implementation of the CIEDE2000 color difference formula.
use PDL::LiteF; use PDL::Graphics::ColorDistance; my $lab1 = pdl([ 50, 2.6772, -79.7751 ]); my $lab2 = pdl([ 50, 0, -82.7485 ]); my $delta_e = delta_e_2000($lab1, $lab2); # $delta_e == 2.0425;
Signature: (double lab1(c=3); double lab2(c=3); double [o]delta_e())
Calculates the ΔE*00 (delta e, color distance) between two Lab colors
Usage:
my $delta_e = delta_e_2000($lab1, $lab2);
If delta_e_2000 encounters a bad value in any of the L, a, or b values the input values will be marked as bad
delta_e_2000
This module is being developed via a git repository publicly available at http://github.com/ewaters/perl-PDL-Graphics-ColorDistance.
Copyright (c) 2013 Eric Waters and Shutterstock Images (http://shutterstock.com). All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
Eric Waters <ewaters@gmail.com>
To install PDL::Graphics::ColorDistance, copy and paste the appropriate command in to your terminal.
cpanm
cpanm PDL::Graphics::ColorDistance
CPAN shell
perl -MCPAN -e shell install PDL::Graphics::ColorDistance
For more information on module installation, please visit the detailed CPAN module installation guide.