{"id":101,"date":"2009-04-09T19:50:58","date_gmt":"2009-04-10T03:50:58","guid":{"rendered":"http:\/\/www.madpickles.org\/rokjoo\/?p=101"},"modified":"2009-04-28T14:35:23","modified_gmt":"2009-04-28T22:35:23","slug":"blue-and-yellow","status":"publish","type":"post","link":"https:\/\/www.madpickles.org\/rokjoo\/2009\/04\/09\/blue-and-yellow\/","title":{"rendered":"Blue And Yellow"},"content":{"rendered":"

While working with a friend on a project, I received a chunk of data consisting of 122443 schools\/parishes\/colleges along with their primary and secondary colors (in hexadecimal). I hacked together a simple color quantizer that converted the colors to the 216 color web safe palette. If the color combinations are given, 1 per row, formatted as primary|secondary<\/b>, then this bit of Perl:<\/p>\n

\r\nwhile(<>) {\r\n  my @colors = split(\/\\|\/,$_);\r\n  my @qColors = (); # will hold the quantized version of @colors\r\n  foreach my $orig (@colors) {\r\n    my $quantized = \"\";\r\n    for(my $i = 0; $i < 5; $i += 2) {\r\n      my $c = substr($orig,$i,2);\r\n      my $dec = hex($c);\r\n      if($dec <= 26) {\r\n        $quantized .= \"00\";\r\n      } elsif($dec <= 76) {\r\n        $quantized .= \"33\";\r\n      } elsif($dec <= 127) {\r\n        $quantized .= \"66\";\r\n      } elsif($dec <= 177) {\r\n        $quantized .= \"99\";\r\n      } elsif($dec <= 228) {\r\n        $quantized .= \"CC\";\r\n      } else {\r\n        $quantized .= \"FF\";\r\n      }\r\n    }\r\n    push(@qColors,$quantized);\r\n  }\r\n}\r\n\r\n<\/pre>\n
will get the job done. Looking back I probably could have just as easily computed the distance between points in 3 dimensional space. In addition, I probably could have reduced my palette to 32-64 colors and ended up with a similar result. If you're curious about the accuracy of this algorithm, here are the colors from the first 10000 schools. The original is on the left, the quantized on the right:<\/p>\n