Parent Directory | Revision Log
convert recorder to perl, round size to even pixels, use ffplay
1 | dpavlin | 110 | #!/usr/bin/perl |
2 | |||
3 | use warnings; | ||
4 | use strict; | ||
5 | |||
6 | my $out = shift @ARGV || 'screencast.avi'; | ||
7 | |||
8 | warn "Select Window to record!\n"; | ||
9 | my $xwininfo = `xwininfo`; | ||
10 | |||
11 | my $rate = 10; | ||
12 | my $w = $1 if $xwininfo =~ m{Width:\s*(\d+)}s; | ||
13 | my $h = $1 if $xwininfo =~ m{Height:\s*(\d+)}s; | ||
14 | my $offset = $1 if $xwininfo =~ m{Corners:\s*(\S+)}s; | ||
15 | |||
16 | $w = $w + 1 & 0xfffe; | ||
17 | $h = $h + 1 & 0xfffe; | ||
18 | |||
19 | $offset =~ s{\+}{}; | ||
20 | $offset =~ s{\+}{,}; | ||
21 | |||
22 | my $ffmpeg = "ffmpeg -f x11grab -s ${w}x${h} -r $rate -sameq -i $ENV{DISPLAY}+$offset $out"; | ||
23 | warn "# $ffmpeg",$/; | ||
24 | |||
25 | system($ffmpeg) == 0 or die "$ffmpeg: $?"; | ||
26 | #system "mplayer -osdlevel 3 $out"; | ||
27 | system "ffplay $out"; | ||
28 | |||
29 | warn "# created $out ", -s $out, $/; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |