#!/usr/bin/perl
#
#   gamma adjustments via DarkAdapted X
#
#   Scott Lawrence
#   2006-Oct-19
#   yorgle@gmail.com
#   http://umlautllama.com
#
#  lets you do simple gamma adjustments from the command 
#  line via whispering to DarkAdapted X.  :D


# run an applescript
sub AppleScript
{
	my($script) = shift @_;
	system(qq|/usr/bin/osascript -e '$script'|);
}

# generate the applescript for a gamma setting passed in
sub setGamma
{
	$r = shift;
	$g = shift;
	$b = shift;

	$script =<<EOB;
	tell application "DarkAdapted X"
		if not (fadeSteps setTo 120) then beep
		if not (setGamma value "$r,$g,$b") then beep
	end tell
EOB
	AppleScript( $script );
}

# generate a random gamma
sub randomGamma
{
	# make sure these are at least 55.  oops.
	$r = 55 + int rand( 200 );
	$g = 55 + int rand( 200 );
	$b = 55 + int rand( 200 );
	printf "Setting Gamma to: %s %s %s\n", $r, $g, $b;
	setGamma( $r, $g, $b );
}

# loop forever on generating random colors
sub randomGammaLoop
{
	$tdelay = int shift;
	printf "Looping with a delay of %d seconds\n", $tdelay;
	while( 1 )
	{
		randomGamma();
		sleep( $tdelay );
	}
}

# display the usage to everyone
sub usage()
{
	printf( "Usage:\n" );
	printf( "    gamma full		set gamma to full color\n" );
	printf( "    gamma rand		set gamma to a random color\n" );
	printf( "    gamma loop X	random color every X seconds\n" );
	printf( "    gamma R G B 	set gamma to (R,G,B) 0..255\n" );
}


# simple command line parser, do the right thing.
$argc = scalar @ARGV;
if( $argc == 1 ) { 
	if( $ARGV[0] eq "rand" ) {
		randomGamma();
	} elsif( $ARGV[0] eq "full" ) {
		setGamma( 255, 255, 255 );
	} else {
		usage();
	}
} elsif( $argc == 2 ) { 
	if( $ARGV[0] eq "loop" ) {
		randomGammaLoop( $ARGV[1] );
	} else {
		usage();
	}
} elsif( $argc == 3 ) { 
	setGamma( $ARGV[0], $ARGV[1], $ARGV[2] ); 
} else {
	usage();
}