pretty much replacing everything. uses gst-launch now. truly abominable.

zpmorgan · Feb 13, 2012 · 0133527 · 0133527
1 parent 5b67321
commit 0133527
Show file tree

Hide file tree

Showing 3 changed files with 175 additions and 193 deletions.
diff --git a/examples/rand_screenshot.pl b/examples/rand_screenshot.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use Modern::Perl;
+use lib 'lib';
+use PDL;
+use PDL::Graphics2D 'imag2d';
+use PDL::GStreamer;
+
+my $g = PDL::GStreamer->new(
+   filename => 'foo.avi',
+   do_audio => 0,
+   do_play => 0,
+   scale_w => 32,
+   scale_h => 32,
+);
+
+$g->seek(45);
+
+my $img = $g->get_frame;
+$img /= 256;
+imag2d($img->reshape(3,$g->width,$g->height));
+