Hollywood forums

Code: Select all

/* ************** Hollywood made benchmarks tool *********** */

@DISPLAY 1, {Hidden = FALSE, Width = 800, Height = 600, Sizeable = TRUE, NoModeSwitch = TRUE, Color = $444444}	; definisco il Display 1(quello primario) e lo nascondo così da cambiarlo e poi aprirlo in base alla necessità...

Box (0, 0, 800, 600, $ff0000)

LOCAL y = 0, x1 = 0

; ***** TEST 1 ***** semplice ciclo For Next per vedere il tempo di calcolo

StartTimer(1)

	For LOCAL i = 1 TO 300000
	Next

LOCAL t1 = GetTimer(1)

StopTimer(1)

; ***** TEST 2 ***** test "misto" per impegnare la cpu un po'...

StartTimer(2)

LOCAL yy = 1

For LOCAL xx = 1 to 300000
	yy = yy * xx
	yy = xx * xx
	yy = xx / yy
	yy = xx *(xx/yy)
	yy = xx * (XX^2) * (xx^3) * (xx^4) * (xx^5)
Next
LOCAL t2 = GetTimer(2)
StopTimer(2)

/*
; ***** TEST 3 ***** allocazione e riepimento della memoria

StartTimer(3)

	AllocMem(1, 102400000)
	FillMem(1, 0, 102400000)

LOCAL t3 = GetTimer(3)
StopTimer(3)

; ***** TEST 4 ***** allocazione e riepimento della memoria

LOCAL l = 0, logval = 0
*/

StartTimer(4)

	For LOCAL i = 1 TO 300000
	logval = i * 3,4
	l = Ln(logval)
	Next

LOCAL t4 = GetTimer(4)
StopTimer(4)




/* NB quì sotto iniziano i test grafici che sono numericamente sulla seconda decina per semplicità di 
organizzazione e modifica  */

; ***** TEST 11 ***** Disegno on screen di un pixel alla volta 

StartTimer(11)

BeginRefresh()
	For LOCAL x = 1 TO 480000
		Plot(x - x1, y, #RED)
		IF Frac(x/800) = 0
			y = y + 1
			x1 = (800 * Int(x/800))
		EndIF
	Next
EndRefresh()

LOCAL t11 = GetTimer(11)
StopTimer(11)



; ***** TEST 12 ***** Disegno on screen di quadrati concentrici sempre più grandi

StartTimer(12)

LOCAL bl, bh = 0, 0

	For LOCAL x = 1 TO 800
		BeginRefresh()
			Box(#CENTER, #CENTER, bl + x ,bh + x, #GREEN)
		EndRefresh()
	Next

LOCAL t12 = GetTimer(12)
StopTimer(12)

; ***** TEST 13 ***** Disegno on screen di cerchi concentrici sempre più grandi

StartTimer(13)

LOCAL centro = 0

	For LOCAL x = 1 TO 400
		BeginRefresh()
			Circle(#CENTER, #CENTER, centro + x, #BLACK)
		EndRefresh()
	Next

LOCAL t13 = GetTimer(13)
StopTimer(13)

; ***** TEST 14 ***** Disegno on screen di ellissi concentriche sempre più grandi

StartTimer(14)

LOCAL ex, ey = 1, 1

	For LOCAL x = 1 TO 400
		BeginRefresh()
			Ellipse(#CENTER, #CENTER, ex + x, ey + x/2, #YELLOW)
			Ellipse(#CENTER, #CENTER, ex + x/2, ey + x, #YELLOW)
		EndRefresh()
	Next

LOCAL t14 = GetTimer(14)
StopTimer(14)

Cls()

TextOut(10, 150, "CPU 1: " .. t1 .. ", CPU 2 : " .. t2 .. ", CPU 3: " .. t4) ;  .. ", CPU 4: " .. t4)

TextOut(10, 200, "Graphics 1: " .. t11 .. ", Graphics 2 : " .. t12 .. ", Graphics 3: " .. t13 .. ", Graphics 4: " .. t14, #RED)

; display dei risultati delle funzioni "matematiche"

DebugPrint("CPU 1: ", t1, "CPU 2 : ", t2, "CPU 3: ", t3, "CPU 4: ", t4)

; display dei risultati delle funzioni grafiche

DebugPrint("Graphics 1: ", t11, "Graphics 2 : ", t12, "Graphics 3: ", t13, "Graphics 4: ", t14)

WaitLeftMouse()

Code: Select all

Hollywood test.hws -compile ram:test.hwa -exetype applet -compress