Article-I.D.: iddic.2259
Posted: Thu Oct 24 15:36:55 1985
Date-Received: Sat, 26-Oct-85 05:28:30 EDT
Distribution: net
Organization: Tektronix, Beaverton OR
Lines: 81
Xref: watmath net.micro.amiga:495 net.micro.atari:1497 net.micro.mac:3149
From: richr
[color=blue]> Article 334 of net.micro.amiga:[/color]
[color=blue]> [/color]
[color=blue]> Some Facts:[/color]
[color=blue]> The Amiga reads a 32K file in 4.39 seconds[/color]
[color=blue]> The Amiga writes a 32K file in 6.20 seconds[/color]
[color=blue]> The Amiga draws 142,020 pixels/second[/color]
[color=blue]> [/color]
[color=blue]> A Challenge[/color]
[color=blue]> Do the following tests on your favorite computer, and POST the results.[/color]
[color=blue]> May the best computer win!!![/color]
No one has yet offered any response to my challenge! We are particularly
interested in seeing how the Atari does on this benchmark, given the
preponderance of subjective claims foating around.
I hope someone can take the time to run these and post the results,
rather than continue to fan the flames of speculation that flood
these groups. I can only assume that they have not yet appeared because
no one has bothered to do it, rather than because of the results they
achieved. Of course, I have been known to be wrong on occasion...
Richard Rodgers
tektronix!iddic!richr
PS: Perhaps I should post the sources in Basic....
[color=blue]> [/color]
[color=blue]> The Algorithms:[/color]
[color=blue]> [/color]
[color=blue]> The following algorithm was done on the Amiga with the native Lattice C[/color]
[color=blue]> Compiler. It writes 64 512 byte buffers, then reads 64 512 byte buffers.[/color]
[color=blue]> [/color]
[color=blue]> for (i = 0; i < 512; i++) p[i] = 'a';[/color]
[color=blue]> fp = fopen("df0:data", "w");[/color]
[color=blue]> CurrentTime(&Seconds, &Micros);[/color]
[color=blue]> for (i = 0; i < 64; i++)[/color]
[color=blue]> nact = fwrite(p, 512, 1, fp);[/color]
[color=blue]> ret = fclose(fp);[/color]
[color=blue]> CurrentTime(&Seconds2, &Micros2);[/color]
[color=blue]> printf("%d %d %d %d", Seconds, Seconds2, Micros, Micros2);[/color]
[color=blue]> [/color]
[color=blue]> fp = fopen("df0:data", "r");[/color]
[color=blue]> CurrentTime(&Seconds, &Micros);[/color]
[color=blue]> for (i = 0; i < 64; i++)[/color]
[color=blue]> nact = fread(p, 512, 1, fp);[/color]
[color=blue]> ret = fclose(fp);[/color]
[color=blue]> CurrentTime(&Seconds2, &Micros2);[/color]
[color=blue]> printf("%d %d %d %d", Seconds, Seconds2, Micros, Micros2);[/color]
[color=blue]> [/color]
[color=blue]> alternate source: [/color]
[color=blue]> Algorithm:[/color]
[color=blue]> /* draw 8000 vectors of 200 pixels long with a skew. set by offset */[/color]
[color=blue]> [/color]
[color=blue]> x1 = 100 - offset;[/color]
[color=blue]> y1 = 100[/color]
[color=blue]> x2 = 100 + offset[/color]
[color=blue]> y2 = 300[/color]
[color=blue]> [/color]
[color=blue]> for (i = 0; i < 20; i++) {[/color]
[color=blue]> PenPat(black);[/color]
[color=blue]> for (j = 0; j < 200; j++) {[/color]
[color=blue]> MoveTo(x1, y1);[/color]
[color=blue]> LineTo(x2, y2);[/color]
[color=blue]> x1++;[/color]
[color=blue]> x2++;[/color]
[color=blue]> }[/color]
[color=blue]> PenPat(white);[/color]
[color=blue]> for (j = 0; j < 200; j++) {[/color]
[color=blue]> MoveTo(x1, y1);[/color]
[color=blue]> LineTo(x2, y2);[/color]
[color=blue]> x1--;[/color]
[color=blue]> x2--;[/color]
[color=blue]> }[/color]
[color=blue]> }[/color]
[color=blue]> [/color]
--
Rich Rodgers
tektronix!iddic!richr