[MacPerl] Libmoto seems to add value

[wmiddlet@Adobe.COM (William Middleton)]

I just linked the tool with libmoto, the new ppc math library available
at www.mot.com.  I ran this simple-minded script:

    $time1 = time;
    $i = 1.0; 
    while ($i < 1000000.0){
    $cos = cos($i);
    $log = log($i);
    $sqrt = sqrt($i);
    $sin = sin($i);
    $i = $i + 1.0;
    }
    $time2 = time;
    print "Total time: ", $time2 - $time1,"\n";

Running on an 8500/120, and using the default tool linked with 
MPW/CW10, I get:

Total time: 36

Using the tool linked against libmoto, I get:

Total time: 30

Their license is kinda wordy, but seems to indicate that distributing
the ppc tool and app should be ok.  Your interpretation may vary.


Bill