#!/usr/local/bin/perl

use strict;
use warnings;


use Win32::API;
use Win32::API::Test;
use Win32::API::Callback;

my $devicenum=-1;
my $level= 0 x 1024;
my $data1=0 x 120000;
my $data2=0 x 120000;

Win32::API->Import('SDK2090', 'sdSearchDevice','I','I');
Win32::API->Import('SDK2090', 'sdGetLevel','IP','I'); 
Win32::API->Import('SDK2090', 'sdSetTriggerAndSampleRate','IIP','I'); 
Win32::API->Import('SDK2090', 'sdSetFilt','IP','I'); 
Win32::API->Import('SDK2090', 'sdSetVoltageAndCoupling','IIIIII','I'); 
Win32::API->Import('SDK2090', 'sdSetOffset','IPIIIP','I'); 
Win32::API->Import('SDK2090', 'sdGetData','IIIPPPPPPI','I'); 
Win32::API->Import('SDK2090', 'sdDisplaySampling','IIIIID','D'); 

Win32::API::Struct->typedef( structControlData => qw{
   WORD TriggerSource;
    WORD SelectedChannel;
    WORD Timebase;
    WORD TriggerPosition;
    WORD DataLengh;
   WORD BufferSize;
    WORD isAlt;
});

Win32::API::Struct->typedef( structStateStruct => qw{
   WORD Ch1Filt;
   WORD Ch2Filt;
   WORD TriggerFilt;
   WORD TriggerMode;
   WORD TriggerSlope;
});

Win32::API::Struct->typedef( structLeversData => qw{
   WORD Ch1Position;
   WORD Ch2 Position;
   WORD Ch1TriggerPosition;
   WORD Ch2TriggerPosition;
   WORD EXTTriggerPosition;
});

my $CtrlData = Win32::API::Struct->new('structControlData');
my $State = Win32::API::Struct->new('structStateStruct');
my $Levers = Win32::API::Struct->new('structLeversData');

for(my $i=0;$i<4;$i++){
   if (sdSearchDevice($i)){
      $devicenum=$i;
      last;
   }
}
if ($devicenum==-1){
   die "No device found\n";
}
else {
   print "Device found. Device number: $devicenum\n";
}

if (sdGetLevel($devicenum,$level)){
   print "Got calibratiom data\n";
   #print "$level\n";
}
else {
   die "Cannot get calibration data\n";
}

$CtrlData->{TriggerSource}=0;
$CtrlData->{SelectedChannel}=2;
$CtrlData->{Timebase}=16;
$CtrlData->{TriggerPosition}=50;
$CtrlData->{DataLengh}=1;
$CtrlData->{BufferSize}=10;
$CtrlData->{isAlt}=0;

if (sdSetTriggerAndSampleRate($devicenum,0,$CtrlData)){
   print "Set Trigger and Sample rate\n";
}
else {
   die "Cannot set trigger or/and sample rate\n";
}

$State->{Ch1Filt}=0;
$State->{Ch2Filt}=0;
$State->{TriggerFilt}=0;
$State->{TriggerMode}=0;
$State->{TriggerSlope}=0;

if (sdSetFilt($devicenum, $State)){
   print "Set filters and trigger\n";
}
else {
   die "Cannot set filter and trigger\n";
}

if(sdSetVoltageAndCoupling($devicenum, 6, 6, 0, 0, 0)){
   print "SetVoltageAndCoupling\n";
}
else {
   die "Cannot do SetVoltageAndCoupling\n";
}

$Levers->{Ch1Position}=64;
$Levers->{Ch2Position}=192;
$Levers->{Ch1TriggerPosition}=64;
$Levers->{Ch2TriggerPosition}=192;
$Levers->{EXTTriggerPosition}=128;

if (sdSetOffset($devicenum, $Levers, 6, 6, 0, $level)){
   print "Set offset\n";
}
else {
   die "Cannot set offset\n";
}

while(1){

if (sdGetData($devicenum, 6,6, $data1, $data2, $CtrlData,$State, $Levers,$level,0)){
   print "GetData ok\n";
   for(my $i=0;$i<10000;$i++){
      print ord(substr($data1,$i,1))."\n";
   }
}
else {
   print "Cannot get data\n";
}
sleep(1);

}