--- deliantra/server/ext/map-world.ext	2007/04/14 07:22:59	1.20
+++ deliantra/server/ext/map-world.ext	2007/04/17 20:41:15	1.21
@@ -43,13 +43,10 @@
             or die "convert: $!";
          binmode $fh;
 
-         binmode $fh;
          $size * 3 == read $fh, my $data, $size * 3
             or die "$path.png, expected $size rgb triplets: $!";
 
-         $data =~ s{(...)}{
-            $plt{$1} or die "$path.png: color not in palette: #" . unpack "H*", $1
-         }sge;
+         cf::_quantise $data, [map "$_$plt{$_}", keys %plt];
 
          binmode STDOUT;
          syswrite STDOUT, $data;