Use GdkPoint in PAN_ITEM_TRIANGLE coord

[geeqie.git] / scripts / decode_sim

diff --git a/scripts/decode_sim b/scripts/decode_sim
index e634827..a3c0182 100755 (executable)
--- a/scripts/decode_sim
+++ b/scripts/decode_sim
@@ -1,12 +1,28 @@
 #! /usr/bin/perl
 #
+## @file
+## @brief Display the contents of a .sim file
+##
+## Usage: ./scripts/decode_sim <path to sim file>
+##
+## Displays:  
+## Comment: <geeqie version file was created by>  
+## Original image dimensions:  
+## Exif Date Original:  
+## MD5 sum:  
+## Image of the thumbnail  
+##
+
 
 use strict;
 use warnings;
 
+use GD;
+
 my $file = shift or die;
 
 open my $in_fh, '<', $file or die;
+binmode $in_fh;
 my $type = <$in_fh>;
 chomp $type;
 
@@ -22,11 +38,22 @@ while (<$in_fh>)
    }
    elsif (/^Dimensions=\[(\d+) x (\d+)\]$/)
    {
-      printf "Original image dimensions: %d×%d\n", $1, $2;
+      printf "Original image dimensions: %dx%d\n", $1, $2;
+   }
+   elsif (/^Date=(\[-1\])/)
+   {
+      printf "Exif Date Original: %s\n", $1;
    }
    elsif (/^Date=(.*)/)
    {
-      printf "Date (used for pan-view): %s\n", $1;
+      my $unix_time = substr($1, 1, 10);
+
+      my ($S, $M, $H, $d, $m, $Y) = localtime($unix_time);
+      $m += 1;
+      $Y += 1900;
+      my $date_time = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $Y, $m, $d, $H, $M, $S);
+
+      printf "Exif Date Original: %s %s\n", $1, $date_time;
    }
    elsif (/^Checksum=(.*)/)
    {
@@ -38,13 +65,14 @@ while (<$in_fh>)
    }
    elsif ($raw =~ /^SimilarityGrid\[(\d+) x (\d+)\]=(.*)$/s)
    {
-      printf "Similarity image %d×%d\n", $1, $2;
+      printf "Similarity image %dx%d\n", $1, $2;
       if ($1 != 32 or $2 != 32)
       {
-        print "Warning, similarity data are not size 32×32!\n";
+        print "Warning, similarity data are not size 32x32!\n";
       }
 
       my $simn = $1 * $2 * 3;
+      my ($width, $height) = ($1, $2);
       my $simdata = $3;
 
       $simdata = substr($simdata, 0, -1) if length($simdata) == $simn + 1; # In case all fits to one line
@@ -57,6 +85,28 @@ while (<$in_fh>)
       }
 
       printf "Warning, similarity data is not %d bytes", $simn unless length($simdata) == $simn;
+
+      if (length($simdata) == $simn)
+      {
+        my $gd = GD::Image->new($width, $height, 1);
+
+        for (my $x = 0; $x < $width; $x++)
+        {
+           for (my $y = 0; $y < $height; $y++)
+           {
+              my $colors = substr($simdata, ($x + $y * $width) * 3, 3);
+              my @rgb = unpack("CCC", $colors);
+              my $index = $gd->colorAllocate(@rgb);
+              $gd->setPixel($x, $y, $index);
+           }
+        } ## end for (my $x = 0; $x < $width; $...
+
+        my $png = $gd->png;
+        open my $display_fh, '|-', qw(display -resize), sprintf("%dx%d", $width*10, $height*10), '-' or die;
+        binmode $display_fh;
+        print {$display_fh} $png;
+        close $display_fh;
+      } ## end if (length($simdata) == $simn)
    } ## end elsif (/^SimilarityGrid\[(\d+)...
    else
    {