PureBasic

Nop je cherche bien à faire un modulo

Pas très propre mais c'est une facon de garantir que la valeur ne sera pas > 255. Il y a des effets qui se font avec. Ca peut aussi servir pour wrapper des tableaux, comme un alphabet en fontes bitmaps qui ne serait pas linéaire etc

@Buckethead

Essai ce Code :

Code : Tout sélectionner

InitSprite()
InitKeyboard()
OpenScreen(640,480,32,"Test")
 
Repeat
 StartDrawing (ScreenOutput ())
DrawingMode(#PB_2DDrawing_Default)
r = r + 10

For y = 1 To 400
For x = 1 To 600
coul = Sin(x)*255+Cos(y)*255+255+r
Plot(x,y,coul)
Next x
Next y
 
  StopDrawing ()
    FlipBuffers ()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) 
End

C’est une texture animée et qui change de forme avec le temps.

hehe, ce plasma me rapelle une demo codée en assembleur qui faisait 32 octets !!

Un autre code !

C’est une texture qui s’auto dé zoom

Code : Tout sélectionner

InitSprite()
InitKeyboard()
OpenScreen(640,480,32,"Test")
 Delay(1000)
Repeat
 StartDrawing (ScreenOutput ())
DrawingMode(#PB_2DDrawing_Default)
r.d = r + 0.01

For y = 1 To 400
For x = 1 To 600
coul = Sin(x*r)*255 + Cos(y*r)*255 + Tan(x*y)*255
Plot(x,y,coul)
Next x
Next y
 
  StopDrawing ()
    FlipBuffers ()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End

plus cool encore celui là

PureBasic

Mini effet vague !....