/[scripts]/trunk/osd-projector.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/osd-projector.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 122 - (show annotations)
Thu Oct 8 23:11:37 2009 UTC (13 years, 1 month ago) by dpavlin
File MIME type: text/plain
File size: 736 byte(s)
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 }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26