File: chrom-adaptation-test.pl

package info (click to toggle)
libgraphics-colorobject-perl 0.5.0-10.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 356 kB
  • sloc: perl: 1,754; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 263 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
$| = 1;

use Graphics::ColorObject;

$c = Graphics::ColorObject->new_RGB([0.2, 0.5, 0.1], space=>'NTSC');
while (1)
{
	$c->set_white_point('D93');
	$c->set_white_point('C');
	if ($i++ % 1000 == 0)
	{
		print '<font color="'.$c->as_RGBhex.'">X</font>'."\n";
	}
}