2D Effet "bruit parasite"

[Ar-S]

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.

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

Simple et efficace !

[Kwai chang caine]

Je ne sais plus de qui est ce code, vu les commentaires j'avais du le prendre sur le fofo us

Pas si loin que ça
http://forums.purebasic.com/french/view ... 86#p125682

[Ar-S]

Arf, désolé Falsam. Mon cerveau a des lacunes
Mais c'est vrai que le titre tel qu'il est me parle plus.