Support Forum / Форум поддержки

Code: Select all

' Graphic bench mark test
' by DrChip » 01 Apr 2014, 17:30
' developed for the app 'Basic!'
' adapted for Smart Basic by Dutchman
' original 'Basic!' lines are commented out with '***

REM Benchmark - Dots per Second
REM iPhone 5s / 7.1 / 3.5.3
REM comment out the test your not using
REM is random not random still? 
REM look at the triangles grouped

time=1000 '*** time = 1 'one second
test = 1 '1 point, 2 circle, 3 triangle

'*** prepare graphics for Smart Basic
GRAPHICS
GRAPHICS CLEAR 0,0,0
'*** end graphics initialisation for Smart Basic

loop:
DRAW COLOR RND(1),RND(1),RND(1) '*** COLOR RND*255,RND*255,RND*255
t=TIMER() '***t=TickCount
WHILE TIMER()-t<=time '*** WHILE TickCount-t<=time 
    x1=RND(1)*Screen_Width() '*** x1=RND*ScreenWidth
    y1=RND(1)*Screen_Height() '*** y1=RND*ScreenHeight
    IF test = 1 AND g=0 THEN
        DRAW PIXEL x1,y1 '***POINT x1,y1,1
        g=1
    END IF 
    IF test = 2 AND g=0 THEN 
        DRAW CIRCLE x1,y1 SIZE 1 '*** CIRCLE x1,y1,1
        g=1
    END IF
/* Function TRIANGLE is not available in Smart Basic
    IF test = 3 AND g=0 THEN
        x2=RND*ScreenWidth
        y2=RND*ScreenHeight 
        x3=RND*ScreenWidth
        y3=RND*ScreenHeight 
        TRIANGLE x1,y1,x2,y2,x3,y3
        g=1
    END IF 
*/
    g= 0
    d=d+1
END WHILE '*** WEND
GRAPHICS CLEAR 0,0,0'*** CLS 
DRAW COLOR 1,1,1 '*** COLOR 1,1,1
DRAW TEXT "Current DPS: "&STR$(d,"#") AT 10,10 '*** DRAWTEXT "Current DPS: " + STR$(d), 0,0
d=0
GOTO loop

Code: Select all

' Graphic bench mark test
' by DrChip » 01 Apr 2014, 17:30
' developed for the app 'Basic!'
' adapted for Smart Basic by Dutchman
' original 'Basic!' lines are commented out with '***

REM Benchmark - Dots per Second
REM iPhone 5s / 7.1 / 3.5.3
REM comment out the test your not using
'*** REM is random not random still? 
'*** REM look at the triangles grouped

time=1000 '*** time = 1 'one second
test = 1 '1 point, 2 circle, 3 triangle

'*** prepare graphics for Smart Basic
GRAPHICS
'*** end graphics initialisation for Smart Basic

ScreenWidth=screen_width()
ScreenHeight=screen_height()
if test=1 then
   ScreenWidth *= screen_scale()
   ScreenHeight *= screen_scale()
end if
dim xt(3),yt(3)
option base 1

loop:
DRAW COLOR RND(1),RND(1),RND(1) '*** COLOR RND*255,RND*255,RND*255
t=TIMER() '***t=TickCount
WHILE TIMER()-t<=time '*** WHILE TickCount-t<=time 
    x1=RND(1)*ScreenWidth '*** x1=RND*ScreenWidth
    y1=RND(1)*ScreenHeight '*** y1=RND*ScreenHeight
    IF test = 1 AND g=0 THEN
        DRAW PIXEL x1,y1 '***POINT x1,y1,1
        g=1
    END IF 
    IF test = 2 AND g=0 THEN 
        DRAW CIRCLE x1,y1 SIZE 1 '*** CIRCLE x1,y1,1
        g=1
    END IF
    IF test = 3 AND g=0 THEN
        xt(1)=x1
        yt(1)=y1
        xt(2)=RND(1)*ScreenWidth '*** x2=RND*ScreenWidth
        yt(2)=RND(1)*ScreenHeight '*** y2=RND*ScreenHeight
        xt(3)=RND(1)*ScreenWidth '*** x3=RND*ScreenWidth
        yt(3)=RND(1)*ScreenHeight '*** y3=RND*ScreenHeight
        DRAW POLY xt,yt '*** TRIANGLE x1,y1,x2,y2,x3,y3
        g=1
    END IF 
    g= 0
    d=d+1
END WHILE '*** WEND
GRAPHICS CLEAR 0,0,0'*** CLS 
DRAW COLOR 1,1,1 '*** COLOR 1,1,1
DRAW TEXT "Current DPS: "&STR$(d,"#") AT 10,10 '*** DRAWTEXT "Current DPS: " + STR$(d), 0,0
d=0
GOTO loop