
et le programme de test :
File:1->Sprite_Torsion.rar

pour ceux qui s'embêtent à vos clavier

je ne donne pas de temps, on verra suivant l'évolution du post

Code : Tout sélectionner
Cpl.Bator vainqueur par KO !
bon moi j'y arrive pas....
; codé par Dobro
; effet d'eau
LoadFont (1, "arial" , 50 , #PB_Font_Italic )
LoadFont (2, "arial" , 50 )
Resultat = InitSprite ()
Global angle,amplitude
amplitude=2
Texte.s= "Le Lac d'annecy !"
WindowID = OpenWindow (1, 50, 50, 640, 200, "hello" , #PB_Window_SystemMenu|#PB_Window_MinimizeGadget )
OpenWindowedScreen ( WindowID , 0, 0, 640, 200, 1, 0, 0)
CreateImage (100, 640, 100)
StartDrawing ( ImageOutput (100))
FrontColor ( RGB ($0,$FF,$FF))
BackColor ( RGB (0, 0, 0))
DrawingFont ( FontID (1))
DrawingMode (1)
DrawText (0,0,Texte.s)
StopDrawing ()
For t=0 To 100
GrabImage (100, t, 0, t, 640,1)
Next t
Repeat
StartDrawing ( ScreenOutput ())
For Y= 0 To 100
DrawingFont ( FontID (2))
DrawingMode (1)
FrontColor ( RGB ($95,$25,$BA))
BackColor ( RGB (0, 0, 0))
DrawText (40,0,Texte.s)
angle+1 : If angle=360*10: angle=0 : EndIf
x+( Sin (angle*2*3.1415926/50)* amplitude)
DrawImage ( ImageID (Y), x+Y, Y+50,640,1)
Next Y
StopDrawing ()
FlipBuffers ()
ClearScreen ( RGB (0, 0, 0))
Event= WindowEvent ()
Delay (1)
Until Event= #PB_Event_CloseWindow