Panorama Tools

Revision: 1140
          http://panotools.svn.sourceforge.net/panotools/?rev=1140&view=rev
Author:   brunopostle
Date:     2009-11-08 23:52:29 +0000 (Sun, 08 Nov 2009)

Log Message:
-----------
Bracketed() test now requires repetitive exposure sequence: 1/50 1/100 1/200 1/50 1/100 1/200 etc...

Modified Paths:
--------------
    trunk/Panotools-Script/lib/Panotools/Photos.pm

Modified: trunk/Panotools-Script/lib/Panotools/Photos.pm
===================================================================
--- trunk/Panotools-Script/lib/Panotools/Photos.pm	2009-11-08 23:26:49 UTC (rev 1139)
+++ trunk/Panotools-Script/lib/Panotools/Photos.pm	2009-11-08 23:52:29 UTC (rev 1140)
@@ -109,8 +109,16 @@
     }
 
     my $brackets = scalar keys (%{$speeds});
+    # require equal numbers of each exposure level
     return 0 if (scalar (@{$self}) % $brackets);
+    # require more than one exposure level
     return 0 if ($brackets < 2);
+    # require bracketing order repeats: 1/50 1/100 1/200 1/50 1/100 1/200 etc...
+    for my $index ($brackets .. scalar @{$self} -1)
+    {
+        return 0 unless $self->[$index]->{exif}->{ExposureTime} eq $self->[$index - $brackets]->{exif}->{ExposureTime};
+    }
+
     return 1;
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Revision: 1168
          http://panotools.svn.sourceforge.net/panotools/?rev=1168&view=rev
Author:   brunopostle
Date:     2009-11-27 23:25:17 +0000 (Fri, 27 Nov 2009)

Log Message:
-----------
Eev() method calculates EV from shutterspeed, aperture and ISO

Modified Paths:
--------------
    trunk/Panotools-Script/lib/Panotools/Photos.pm

Modified: trunk/Panotools-Script/lib/Panotools/Photos.pm
===================================================================
--- trunk/Panotools-Script/lib/Panotools/Photos.pm	2009-11-26 23:30:08 UTC (rev 1167)
+++ trunk/Panotools-Script/lib/Panotools/Photos.pm	2009-11-27 23:25:17 UTC (rev 1168)
@@ -239,4 +239,25 @@
     return $fov;
 }
 
+=pod
+
+Get an EV value for a photo, this will be guessed from partial EXIF data:
+
+  $photos->Eev ($index);
+
+=cut
+
+sub Eev
+{
+    my $self = shift;
+    my $index = shift || 0;
+    my $exif = $self->[$index]->{exif};
+    my $aperture = $exif->{Aperture} || 1.0;
+    my $et = $exif->{ExposureTime} || $exif->{ShutterSpeed} || 1.0;
+    if ($et =~ /^1\/([0-9]+)$/) {$et = 1 / $1};
+    my $iso = $exif->{ISO} || 100;
+    # (A light value of 0 is defined as f/1.0 at 1 second with ISO 100)
+    return sprintf ('%.3f', (2*log ($aperture) - log($et) - log($iso/100)) / log(2));
+}
+
 1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Revision: 1172
          http://panotools.svn.sourceforge.net/panotools/?rev=1172&view=rev
Author:   brunopostle
Date:     2009-12-03 21:00:15 +0000 (Thu, 03 Dec 2009)

Log Message:
-----------
Rotation() method to calculate roll from EXIF data

Modified Paths:
--------------
    trunk/Panotools-Script/lib/Panotools/Photos.pm

Modified: trunk/Panotools-Script/lib/Panotools/Photos.pm
===================================================================
--- trunk/Panotools-Script/lib/Panotools/Photos.pm	2009-11-28 20:32:56 UTC (rev 1171)
+++ trunk/Panotools-Script/lib/Panotools/Photos.pm	2009-12-03 21:00:15 UTC (rev 1172)
@@ -239,6 +239,32 @@
     return $fov;
 }
 
+sub Rotation
+{
+    my $self = shift;
+    my $index = shift || 0;
+    my $rotation = $self->[$index]->{exif}->{'Rotation'} || undef;
+    return 0 unless $rotation;
+    return 0 if $rotation =~ /Mirror/; 
+    return 0 if ($self->[$index]->{exif}->{'ImageWidth'}
+                     < $self->[$index]->{exif}->{'ImageHeight'});
+    return 90 if $rotation =~ /Rotate 90 CW/;
+    return 180 if $rotation =~ /Rotate 180/;
+    return -90 if $rotation =~ /Rotate 270 CW/;
+    return 0;
+
+#    1 => 'Horizontal (normal)',
+#    3 => 'Rotate 180',
+#    6 => 'Rotate 90 CW',
+#    8 => 'Rotate 270 CW',
+
+#    2 => 'Mirror horizontal',
+#    4 => 'Mirror vertical',
+#    5 => 'Mirror horizontal and rotate 270 CW',
+#    7 => 'Mirror horizontal and rotate 90 CW',
+
+}
+
 =pod
 
 Get an EV value for a photo, this will be guessed from partial EXIF data:


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Revision: 1266
          http://panotools.svn.sourceforge.net/panotools/?rev=1266&view=rev
Author:   brunopostle
Date:     2010-04-08 23:39:45 +0000 (Thu, 08 Apr 2010)

Log Message:
-----------
Fix bug where no green colourbalance EXIF found

Modified Paths:
--------------
    trunk/Panotools-Script/lib/Panotools/Photos.pm

Modified: trunk/Panotools-Script/lib/Panotools/Photos.pm
===================================================================
--- trunk/Panotools-Script/lib/Panotools/Photos.pm	2010-04-08 19:58:05 UTC (rev 1265)
+++ trunk/Panotools-Script/lib/Panotools/Photos.pm	2010-04-08 23:39:45 UTC (rev 1266)
@@ -320,9 +320,9 @@
     my $count = 0;
     for my $image (@{$self})
     {
-        next unless ($image->{exif}->{'RedBalance'} and $image->{exif}->{'GreenBalance'} and $image->{exif}->{'BlueBalance'});
+        next unless ($image->{exif}->{'RedBalance'} and $image->{exif}->{'BlueBalance'});
         $RedBalance   += $image->{exif}->{'RedBalance'};
-        $GreenBalance += $image->{exif}->{'GreenBalance'};
+        $GreenBalance += $image->{exif}->{'GreenBalance'} if defined $image->{exif}->{'GreenBalance'};
         $BlueBalance  += $image->{exif}->{'BlueBalance'};
         $count++;
     }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.