SCAN data

The x- and y-values of a SCAN can be accessed this way:

#!/usr/bin/env perl
use strict; 
use Spectra;
use POSIX; 

package Spectra; 

my $s1 = SCAN->create( name => "hallo",
		       start => 0, 
		       stop => 6.28); 

my $len = @{$s1->{y}}; 
my $first = $s1->{x}[0]; 
my $last = $s1->{x}[-1]; 

print " scan $s1->{name} has $len points, from $first to $last \n"; 
for( my $i = 0; $i < $len; $i++)
{
    $s1->{y}[$i] = POSIX::sin( $s1->{x}[$i]); 
}
 
autoscale();
display(); 
keyw();