From: david@maxwell.ucsc.edu (David Darknell)
Newsgroups: comp.os.os2.misc
Subject: CONTRIBUTE your system video scrolling performance
Date: 9 Nov 1992 20:38:10 GMT
Organization: University of California, Santa Cruz
NNTP-Posting-Host: maxwell.ucsc.edu
Keywords: Video System Scrolling Performance

Ever wondered how your OS/2 system compares to others for screen
scrolling, full screen and windowed?  Since there is a dearth of
benchmarks that specifically test the capabilities of OS/2 I put
together a screen scrolling benchmark program (in REXX) you can run on
your system!

Once you run the benchmark, send the results to me
(david@maxwell.ucsc.edu) and I will compile and post the results
back on the net for all to see!


*****cut here*****

/*
** vs.cmd
**
** This is a new and revised video speed test
** that does not rely on the existance of a
** particular OS/2 README file.  
**
** This file copies 200 carriage return/line feeds
** to your screen 4 separate times.  Each time
** the elapsed time is calculated, and after the
** fourth time a running average is calculated.
** This allegedly eliminates the deleterious effects
** of cache refill.  It also I might add, is MUCH
** faster with SLOW video systems like mine.  The
** 26 minutes plus copying the OS/2 README file for 
** real slow systems has been a real complaint from my
** original post.
**
** email your results to: david@maxwell.ucsc.edu
**
** Along with the two times, be sure to include:
** Your CPU Type: (386SX,386DX,486SX,486DX,486DX2,586)
** Your CPU speed: (in Megahertz)
** Your BUS type: (ISA,EISA,MCA,LOCAL-VL,LOCAL-PCI,LOCAL-PROPRIETARY)
** Your BUS clock speed (in Megahertz).  This should be the speed of
** the local bus if you have one. Your graphics card (i.e. tseng 4K, 
** Paradise, ...)  and the graphics resolution of your desktop.  For 
** example 1024x768x256 or 1024x768x16.
**
** I will post the results once I have accumulated a good 
** cross section of different system types!
**
** David Darknell  8 Nov, 1992
*/

/* load SysSearchPath function */
call RxFuncAdd 'SysGetKey', 'RexxUtil', 'SysGetKey'
call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'

call SysCls
say '**'
say '** This program is sort of a screen scrolling benchmark.'
say '** This file copies 200 carriage return/line feeds'
say '** to your screen 4 separate times.  Each time'
say '** the elapsed time is calculated, and after the'
say '** fourth time a running average is calculated.'
say '** You should run this program in a 25 line OS/2 window '
say '** (unobscured), and a 25 line full screen session. '  
say '**'
say '** email your results to: david@maxwell.ucsc.edu'
say '**'
say '** Along with the two times, be sure to include:'
say '** Your CPU Type: (386SX,386DX,486SX,486DX,486DX2,586)'
say '** Your CPU speed: (in Megahertz)'
say '** Your BUS type: (ISA,EISA,MCA,LOCAL-VL,LOCAL-PCI,LOCAL-PROPRIETARY)'
say '** Your BUS clock speed (in Megahertz).  This should be the speed of'
say '** the local bus if you have one. Your graphics card (i.e. tseng 4K,' 
say '** Paradise, ...)  and the graphics resolution of your desktop.  For' 
say '** example 1024x768x256 or 1024x768x16.'
do 4
	say '**'
end
say '** Press any key to begin the test.'
SysGetKey(NOECHO)  

/* test 1 */ 
elapsd1 = time('e')
call screenScroll 1
elapsd1 = time('r')
/* test 2 */ 
elapsd2 = time('e')
call screenScroll 2
elapsd2 = time('r')
/* test 3 */ 
elapsd3 = time('e')
call screenScroll 3
elapsd3 = time('r')
/* test 4 */ 
elapsd4 = time('e')
call screenScroll 4
elapsd4 = time('r')

say 'Elapsed time for run 1:' elapsd1
say 'Elapsed time for run 2:' elapsd2
say 'Elapsed time for run 3:' elapsd3
say 'Elapsed time for run 4:' elapsd4
say 'Average elapsed time for 4 runs:' (elapsd1+elapsd2+elapsd3+elapsd4)/4
exit

/* procedure to scroll the screen 200 times */
screenScroll: procedure  
	j = ARG(1)
	do i = 1 to 200
		say j'-'i '.............................................................'
	end
return

*****cut here*****