read()/write()

This example shows how a SCAN GQE is read from a disk file.

#!/usr/bin/perl

use Spectra; 
use GQE; 

cls();
#
# read t1.fio and name it t2
#
$t1 = SCAN->read( format => "fio", 
                  name => "t2", 	
                  file_name => "t1.fio") or 
	die " Failed to read t1.fio"; 

#
# set the viewports and colours
#
$t1->set( at => "(2,2,1)", colour => "red"); 

Spectra::autoscale(); 
Spectra::display(); 
#
#
#
$t1 = SCAN->write( "file_name" => "t2.fio") or 
	die " Failed to create t2.fio"; 

#
# cleanup
#
$t1->delete();