Gra_command( "create test 0 10 100") or die "error message";
SPECTRA> test(1) = 12.
In Perl-Spectra we write (taken
from the example 10.10.2 ):
use Spectra;
use GQE;
$t1 = SCAN->create( name => "t1",
start => "0",
stop => "10",
np => "$size") or die " Failed to create t1 ";
#
# ... set the y-values to sinus() ...
#
for $i (0 .. ($size - 1))
{
$t1->{y}[$i] = sin( $t1->{x}[$i]);
}
Notice that $i starts at 0.
use Spectra; use GQE; $t1 = TEXT->create( name => 'test'); $col = $t1->get( 'colour'); $ret = $t1->set( string => 'ein Text', colour => 'red');