#!/usr/sbin/perl

chdir("/usr/demos/General_Demos/blast/data");

$hinv = `/usr/bin/hinv -c graphics`;
$cpu = `/usr/bin/hinv -t cpu`;

chop $hinv;
chop $cpu;

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 -a -p&`;
} else {
	`/usr/demos/General_Demos/blast/blast -a -p&`;
}
