#!/usr/sbin/perl
#Tag 0x9054

chdir("/usr/demos/General_Demos/blast/data");
$hinv = `/usr/bin/hinv -c graphics`;
$cpu = `/usr/bin/hinv -t cpu`;

chop $hinv;
chop $cpu;

`setenv GL_VERTEX_PRECLIP GL_NICEST`;

if ($hinv && $cpu) {
   if ( grep(/MIPS R2/, $cpu) || grep(/MIPS R3/, $cpu) || grep(/XL/, $hinv) ) 
	{
		$textures = 0;
	} else {
		$textures = 1;
	}
} else {
	$textures = 0;
}

if ($textures) {
	`/usr/demos/General_Demos/blast/blast -T -p&`;
} else {
	`/usr/demos/General_Demos/blast/blast -p&`;
}
