#!/usr/bin/perl

require '../oscpl/osc.pl';
require 'osc_screen.pl';


osc_connect("infocalypse.al.cl.cam.ac.uk", 4500, "GPIB0::7::INSTR") ||
    die "osc_connect: $!";


$data = save_screen();

print "P3\n";
print "# created by screencapture\n";
print "$x_pixels $y_pixels\n";
print "2\n";

for ($y = 0; $y < $y_pixels; $y++) {
	for ($x = 0; $x < $x_pixels; $x++) {
		$value = $data[$x][$y];
		$value += 0;
		print "0 ".$value." 0\n";	# green channel only
	}
}
		

