2D Effet "bruit parasite"
Publié : mer. 25/janv./2012 12:40
Je ne sais plus de qui est ce code, vu les commentaires j'avais du le prendre sur le fofo us mais je le trouve excellent.
Pour ceux qui le voudrai ne serait-ce que pour l'examiner.
Simple et efficace !
Pour ceux qui le voudrai ne serait-ce que pour l'examiner.
Code : Tout sélectionner
#filter=0.2 ; Filter parameter for the FPS-calculation
#UpdateFreq=100 ; How often to update the FPS-display
OpenWindow(0,400,300,800,600,"PureBasic")
Define w=WindowWidth(0), H=WindowHeight(0)
Define.l x, y, T, TOld, FloatingMedium.f, cnt
InitSprite()
OpenWindowedScreen(WindowID(0),0,0,w,H,1,0,0,#PB_Screen_NoSynchronization)
Repeat
Event=WindowEvent()
If Event=#PB_Event_CloseWindow
End
EndIf
StartDrawing(ScreenOutput())
For y=0 To H-1
For x=0 To w-1
If Random(1)
Plot(x,y,#Black)
Else
Plot(x,y,#White)
EndIf
Next
Next
StopDrawing()
FlipBuffers()
cnt+1
If cnt>=#UpdateFreq
cnt =0
TOld=T
T=ElapsedMilliseconds()
FloatingMedium*(1-#filter)+1000*#filter/(T-TOld)
SetWindowTitle(0,"PureBasic: "+StrF(#UpdateFreq*FloatingMedium,2)+" FPS")
EndIf
ForEver
