NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
marcel (3299)
marcel
(email not shown publicly)
(email not shown publicly)
Tuesday July 23, 2002
08:53 AM
Full-screen movies with Quicktime
The QuickTime Player Applescript Dictionary reveals that the player can indeed play movies at full-screen, so you don't have to get QuickTime Pro for just that. Here's a program that lets you do it from the command-line.
#!/usr/bin/perl
use warnings;
use strict;
use File::Spec;
my $movie = shift || die "usage: $0 movie\n";
my $path = File::Spec->rel2abs($movie);
my $script = EOAS;
set thefile to get POSIX file "$path"
tell application "QuickTime Player"
activate
open thefile
present movie 1 scale screen
end tell
EOAS
exec '/usr/bin/osascript', '-e', $script;
die "can't exec osascript: $?";
an endless discussion thread about what features to include.
-- Jarkko Hietaniemi
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Full-screen movies with Quicktime 0 Comments More | Login | Reply /