und schon funktioniert das so wie es soll.
Danke an alle für eure Mühen

M.f.G
Captain Qwark
dafür nich...Captain_Qwark hat geschrieben:Danke an alle für eure Mühen
Code: Alles auswählen
InitSprite()
InitKeyboard()
OpenWindow(0,0,0,800,600,"test")
OpenWindowedScreen(WindowID(0),0,0,800,600,0,0,0)
Define n, x, y, timer1, timer2
; clear the eventqueue to minimize errors
While WindowEvent() : Wend
Delay(100)
FlipBuffers()
StartDrawing(ScreenOutput())
timer2 = ElapsedMilliseconds()
For n=0 To 9
For y = 0 To 599
For x = 0 To 799
Plot(x,y,$FFFFFF)
Next
Next
Next
timer2 = ElapsedMilliseconds()-timer2
StopDrawing()
FlipBuffers()
StartDrawing(ScreenOutput())
timer1 = ElapsedMilliseconds()
For n=0 To 9
;FrontColor($FFFFFF)
For y = 0 To 599
For x = 0 To 799
Plot(x,y)
Next
Next
Next
timer1 = ElapsedMilliseconds()-timer1
StopDrawing()
out$ = "Testet 4,800,000 Plots" + #CRLF$
out$ + "DC: "+Str(timer1)+"ms" +#CRLF$
out$ + "DSA: "+Str(timer2)+"ms"
CloseWindow(0)
MessageRequester("Result",out$)