Parent Directory | Revision Log
use aosd_cat to create text on top of screencast
1 | #!/usr/bin/perl |
2 | |
3 | use warnings; |
4 | use strict; |
5 | |
6 | sub osd { |
7 | my @lines = @_; |
8 | |
9 | my $osd = "aosd_cat --font 'Verdana 48' --y-offset -1600 --fade-in 0 --fade-out 0 -t 0 --shadow-offset=3 --padding=3 --lines=" . ( $#lines + 1 ); |
10 | warn "# $osd\n"; |
11 | open(my $pipe, '|-', $osd) || die $!; |
12 | print $pipe join("\n", @lines),$/; |
13 | close($pipe); |
14 | } |
15 | |
16 | #warn "recordmydesktop --height 1200 --no-cursor --no-sound --fps 25 --v_quality 63 --v_bitrate 90000 --on-the-fly-encoding\n"; |
17 | |
18 | warn "ffmpeg -f x11grab -s 1920x1200 -r 25 -sameq -i :0.0+0,0 -y screencast.mjpeg\n"; |
19 | |
20 | |
21 | my @lines = (); |
22 | |
23 | while(<>) { |
24 | chomp; |
25 | if ( $_ eq '' ) { |
26 | print "\n", join("\n", @lines), "\n\n[ENTER] to show\n"; |
27 | <STDIN>; |
28 | osd @lines; |
29 | @lines = (); |
30 | } else { |
31 | push @lines, $_; |
32 | } |
33 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |