/[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

Annotation of /trunk/osd-projector.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26