#!/usr/bin/perl 

require "../oscpl/osc.pl";


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

# osc_write("*idn?") || die "osc_write: $!";
# (($bytes, $data) = osc_read()) || die "osc_read: $!";
# print "device identification: $data\n";

osc_write(":dig") || die "osc_write: $!";
osc_write(":waveform:data?") || die "osc_write: $!";
(($bytes, $data) = osc_read()) || die "osc_read: $!";
print STDERR "Waveform returned $bytes bytes\n";

($header, $realdata) = osc_waveform_parse($data);

print "Read $bytes bytes from the oscilloscope, data is ".length($realdata).
    " bytes\n";
print $data."\n";

