Parent Directory | Revision Log
convert recorder to perl, round size to even pixels, use ffplay
1 | #!/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 |