A CONST Example

  #!/usr/bin/perl

  use Spectra; 
  use GQE;

  Gra_command( "create test 0 10 100"); 

  $t1 = CONST->locate( name => "layout");  

  #
  # set the frame colour to blue and the 
  # thickness of the frame to 3
  #
  $t1->set( "colour" => "blue", 
            "width" => "3"); 

  display(); 
  prtc();