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
> Article 334 of net.micro.amiga:
>
> Some Facts:
> The Amiga reads a 32K file in 4.39 seconds
> The Amiga writes a 32K file in 6.20 seconds
> The Amiga draws 142,020 pixels/second
>
> A Challenge
> Do the following tests on your favorite computer, and POST the results.
> May the best computer win!!!
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....
>
> The Algorithms:
>
> The following algorithm was done on the Amiga with the native Lattice C
> Compiler. It writes 64 512 byte buffers, then reads 64 512 byte buffers.
>
> for (i = 0; i < 512; i++) p[i] = 'a';
> fp = fopen("df0:data", "w");
> CurrentTime(&Seconds, &Micros);
> for (i = 0; i < 64; i++)
> nact = fwrite(p, 512, 1, fp);
> ret = fclose(fp);
> CurrentTime(&Seconds2, &Micros2);
> printf("%d %d %d %d", Seconds, Seconds2, Micros, Micros2);
>
> fp = fopen("df0:data", "r");
> CurrentTime(&Seconds, &Micros);
> for (i = 0; i < 64; i++)
> nact = fread(p, 512, 1, fp);
> ret = fclose(fp);
> CurrentTime(&Seconds2, &Micros2);
> printf("%d %d %d %d", Seconds, Seconds2, Micros, Micros2);
>
> alternate source:
> Algorithm:
> /* draw 8000 vectors of 200 pixels long with a skew. set by offset */
>
> x1 = 100 - offset;
> y1 = 100
> x2 = 100 + offset
> y2 = 300
>
> for (i = 0; i < 20; i++) {
> PenPat(black);
> for (j = 0; j < 200; j++) {
> MoveTo(x1, y1);
> LineTo(x2, y2);
> x1++;
> x2++;
> }
> PenPat(white);
> for (j = 0; j < 200; j++) {
> MoveTo(x1, y1);
> LineTo(x2, y2);
> x1--;
> x2--;
> }
> }
>
--
Rich Rodgers
tektronix!iddic!richr