Changeset 25516 for gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoConverter.pm

Timestamp:

2012-05-02T17:08:23+12:00 (12 years ago)

Author:

davidb

Message:

Code changes prompted by the development of ReplayMe

File:

• gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoConverter.pm (modified) (5 diffs)

gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoConverter.pm

@@ -121 +121 @@
     'deft' => "false",
     'reqd' => "no" },
+    
+    { 'name' => "keyframesize",
+    'desc' => "{ImageConverter.keyframesize}",
+    'type' => "int",
+    'deft' => "520",
+    'range' => "1,",
+    'reqd' => "no" },
+    
        { 'name' => "keyframes_algorithm",
     'desc' => "{VideoPlugin.keyframesAlgorithm}",
@@ -602 +610 @@
 {
     my $self = shift (@_);
-    my ($ivideo_filename) = @_;
+    my ($ivideo_filename,$video_width,$video_height) = @_;
 
     my $video_ext_dir = &util::filename_cat($ENV{'GSDLHOME'},"ext","video");
@@ -620 +628 @@
     my $mtn_detect_blank = $mtn_detect_blank_perc/100.0;
     
-    my $keyframe_height;
-    if ($self->{'create_screenview'} eq "true") {
-        $keyframe_height = $self->{'screenviewsize'};
-    }
-    else {
+    my $keyframe_height = $self->{'keyframesize'};
+    
+#   if ($self->{'create_screenview'} eq "true") {
+#       $keyframe_height = $self->{'screenviewsize'};
+#   }
+#   else {
         # assume thumbnail size
-        $keyframe_height = $self->{'thumbnailsize'};
-    }
-        
+#       $keyframe_height = $self->{'thumbnailsize'};
+#   }
+    
+    
+    
     $main_opts .= " -B $mtn_skip_intro_secs";
     $main_opts .= " -E $mtn_skip_end_secs";
@@ -1010 +1021 @@
     
     #print STDERR "***** grabbing keyframe as 50% of $video_duration\n";
-    my $ss_opt = ($video_duration / 1000.0) * 0.35;
+    my $ss_opt = ($video_duration / 1000.0) * 0.45;
     #print STDERR "*** ssopt = $ss_opt\n";
     
@@ -1108 +1119 @@
                  'keyframeindex' => $keyframe_index,
                  'timestamp' => $time_msec,
-                 'thumb' => $f,
+                 'thumb' => &util::filename_cat("frames",$f),
                  'keyframenum' => $keyframe_index };