en exécutant ce petit code ci-dessous, il y a un nombre qui apparaît en haut à gauche de l'écran.
Si vous pouviez me transmettre cette valeur, ainsi que votre configuration (CPU/GPU), cela serait sympathique de votre part.
Code : Tout sélectionner
Nb2 = 8191
V1.F = 50.0
InitSprite()
InitKeyboard()
ExamineDesktops()
Dw = DesktopWidth(0)
Dh = DesktopHeight(0)
Dd = DesktopDepth(0)
OpenScreen(Dw, Dh, Dd, "")
For J = 0 To 255
CreateSprite(J, 16, 16, #PB_Sprite_AlphaBlending)
StartDrawing(SpriteOutput(J) )
DrawingMode(#PB_2DDrawing_AllChannels)
Box(0, 0, 16, 16, RGBA(0, 0, 0, 0) )
For I = 0 To 7
G.F = (I * I) * (255.0 / 50.0)
R = J
V = 0
B = 255 - J
C = RGBA(R, V, B, G)
Circle(7, 7, 8 - I, C)
Next
Box(7, 7, 1, 1, RGBA(R, V, B, 255) )
StopDrawing()
Next
Nb = 32767
Global Dim S(Nb)
Global Dim X.F(Nb)
Global Dim Y.F(Nb)
Global Dim VX.F(Nb)
Global Dim VY.F(Nb)
Global Dim I.F(Nb)
For I = 0 To Nb
S(I) = 255
X(I) = Random(Dw - 1)
Y(I) = Random(Dh - 1)
VX(I) = 0.0
VY(I) = 0.0
S(I) = 255
Next
Lap = ElapsedMilliseconds()
Repeat
Delay(16)
ClearScreen(0)
For I = 0 To Nb2
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape)
Quit = 1
Break
EndIf
App = Sqr(VX(I) * VX(I) + VY(I) * VY(I) ) * 255 / 100.0
S(I) = (ATan2(VX(I), VY(I) ) + #PI) * 255 / (2 * #PI)
DisplayTransparentSprite(S(I), X(I) - BX, Y(I) - BY, App)
For J = I + 1 To Nb2
DX.F = X(I) - X(J)
DY.F = Y(I) - Y(J)
Dist.F = Sqr(DX * DX + DY * DY)
If Dist < 10.0
Dist2.F = Dist * Dist
If Dist2
VX(I) = DX / Dist2
VY(I) = DY / Dist2
EndIf
Else
Dist2.F = Dist * Dist
If Dist2
VX(I) = (- 99868 * DX) / Dist2
VY(I) = (- 99868 * DY) / Dist2
EndIf
EndIf
X(I) + (VX(I) / V1)
Y(I) + (VY(I) / V1)
VX(I) * 0.979
VY(I) * 0.979
Next
Next
Im + 1
Delta = ElapsedMilliseconds() - Lap
StartDrawing(ScreenOutput() )
DrawText(0, 0, Str(Im * 1000 / Delta) )
StopDrawing()
FlipBuffers()
Until Quit