--- cfmaps/cfmap2png	2005/11/20 01:31:21	1.10
+++ cfmaps/cfmap2png	2005/11/30 08:05:59	1.15
@@ -18,8 +18,9 @@
 # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 
 # tower of stars: missing craters?
+# world_108_123 (8|18), hole below grass but shouldn't?
 
-our $VERSION = '1.1';
+our $VERSION = '1.11';
 
 use strict;
 
@@ -234,8 +235,8 @@
             my $smoothlevel = exists $a->{smoothlevel} ? $a->{smoothlevel} : $o->{smoothlevel};
             my $is_floor    = exists $a->{is_floor}    ? $a->{is_floor}    : $o->{is_floor};
             my $level       = $smoothlevel ? $smoothlevel
-                            : $is_floor    ? 0
-                            :                256 + $layer;
+                            : $is_floor    ? $layer - 1000
+                            :                $layer + 1000;
 
             while ($o) {
                my $face = $a->{face} || $o->{face};
@@ -301,11 +302,11 @@
             next if $x < 0 || $x >= $mapx
                  || $y < 0 || $y >= $mapy;
 
-            # bits is 00XX XXXX YYYY YYFX cccc CCCC BBBB
-            # X  don't draw
-            # F  full tile draw with x|y bigface displacement
-            # c  maybe draw these corners
-            # C  do not draw these corners
+            # bits is xxxx xxxx yyyy yyyy __fn cccc CCCC bbbb
+            # f  full tile draw with x|y bigface displacement
+            # n  do not draw borders&corners
+            # c  draw these corners, but...
+            # C  ... not these
             # b  draw these borders
 
             if ($bits & 0x2000) {
@@ -369,6 +370,7 @@
    system "convert", "$file.png~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg";
    #system "mogrify", "-colors" => 65536, "$file.png~"; # destroys transparency
    system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~", "$file.png";
+#   system "pngnq <\Q$file.png~\E >\Q$file.png\E";
    unlink "$file.png~";
    Storable::nstore $meta, "$file.pst";
 }