Mini effet vague !....

[Buckethead]

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

[Mytic]

@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.

[Buckethead]

ok

[Buckethead]

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

[Mytic]

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

[Buckethead]

plus cool encore celui là