X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=snapshot-to-csv;fp=snapshot-to-csv;h=f9908248fcfd3f535ec4d60ac0d595703969fb49;hb=d192eff48feed45b10dadcc7135c6d1cc58250ca;hp=b434939da0b61ee52662c170d99b7afb8d2b7f12;hpb=a17d2402f10384cb86b2b33118be1b0c2eb47024;p=convert-color-hsluv.git

diff --git a/snapshot-to-csv b/snapshot-to-csv
index b434939..f990824 100755
--- a/snapshot-to-csv
+++ b/snapshot-to-csv
@@ -10,9 +10,9 @@ open my $fh, '>', 't/snapshot-rev4.csv';
 select $fh;
 
 my %tests = %{decode_json read_file 't/snapshot-rev4.json'};
-my @colors = qw/xyz luv lch husl huslp/;
+my @colors = qw/xyz luv lch hsluv hpluv/;
 
-say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h husl_h husl_s husl_l huslp_h husl_s husl_l/;
+say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h hsluv_h hsluv_s hsluv_l hpluv_h hsluv_s hsluv_l/;
 for my $rgb8 (sort keys %tests) {
 	next if $rgb8 =~ m/[13579bde]/i;
 	my @cols = map { @{$tests{$rgb8}{$_}} } @colors;