Parent Directory | Revision Log
use aosd_cat to create text on top of screencast
1 | dpavlin | 122 | #!/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 |