Lib sur l'animation du texte

[Chris]

J'ai rien voulu dire jusqu'à maintenant, mais si tu ouvres un WindowedScreen(), pourquoi tu fais StartDrawing(WindowOutput()) ?

Et StartDrawing(ScreenOutput()), ça ne serait pas mieux, par hasard???

[Backup]

et attention mesdames et messieur dans un instant

le saut perrieu !!!!

Code : Tout sélectionner

LoadFont(1, "arial", 50 )
LoadFont(2, "arial", 50 )
UseFont(1)
Resultat = InitSprite()
Global Angle,amplitude
amplitude=50
Texte.s="Le Lac d'annecy !"





WindowID = OpenWindow(1, 50, 50, 640, 200,  #PB_Window_SystemMenu|#PB_Window_MinimizeGadget  , "hello")

OpenWindowedScreen(WindowID, 0, 0, 640, 200, 1, 0, 0)



CreateImage(100, 640, 100)
StartDrawing( ImageOutput())
FrontColor($0,$FF,$FF)
BackColor(0, 0, 0)

UseFont(1)
DrawingFont(FontID())
DrawingMode(1)
Locate(0, 0) 
DrawText(Texte.s) 
StopDrawing()

For t=0 To 100
    GrabImage(100, t, 0, t, 640,1) 
Next t
   
Repeat
   
    For y= 0 To 100
        StartDrawing(ScreenOutput())        
        
        Angle+1 :If Angle=360*10: Angle=0 :EndIf 
        x=1+(1*Cos(Angle*2*3.1415926/100)*amplitude)+40
        x1=1+(1*Sin(Angle*2*3.1415926/100)*amplitude)+40
        DrawImage( UseImage(y), x+40, x1+y,640,1) 
        StopDrawing()
        dep+1 :If dep>640 :dep=-100:EndIf
        
    Next y 
    
    
    FlipBuffers(50)
    
    ClearScreen(0, 0, 0)
    Event=WindowEvent()
    delay(1)
    
Until Event=#PB_Event_CloseWindow 

[Backup]

J'ai rien voulu dire jusqu'à maintenant, mais si tu ouvres un WindowedScreen(), pourquoi tu fais StartDrawing(WindowOutput()) ?

Et StartDrawing(ScreenOutput()), ça ne serait pas mieux, par hasard???

ben je doit dire que je me suis pas posé la question puisque ça marche comme ça !!
mais oui tu a raison , j'ai changé tout mes sources !! merci !

il faut dire que japbe lance les apli mem si ça bug sous debugger !!!!
la touche f5 lance l'appli mem avec des erreurs
alors que f6 lance sous debuggeur !!
comme japbe est tres permissif , j'ai tendance a passer a cote de certain truc !!

[Chris]

Ben si y avait que ça

Event=WaitWindowEvent() avant le Repeat :
On se demande à quoi il sert ici.

WindowID = OpenWindow(1...
WindowID = WindowID(1)
Tu est sur d'avoir besoin de le récupérer deux fois, le handle de la fenêtre?

T'est fatigué, là, on dirait

[Backup]

c'est clair !!

j'ai mem mis 2 fois de suite StartDrawing(windowOutput()) tout a l'heure !!

[Chris]

Dès fois que ça démarre pas du premier coup, on ne sait jamais!

[Backup]

ouaip !! bon allez bonne nuit !!

[Oliv]

J'aime bien le 2ème, tu avais mis 2 startdrawing() (tu testes tes codes avant des les donner )

Code : Tout sélectionner

LoadFont(1, "arial", 50 ) 
LoadFont(2, "arial", 50 ) 
UseFont(1) 
Resultat = InitSprite() 
Global Angle,amplitude 
amplitude=10 
Texte.s="Le Lac d'annecy !" 





WindowID = OpenWindow(1, 50, 50, 640, 200,  #PB_Window_SystemMenu|#PB_Window_MinimizeGadget  , "hello") 
WindowID = WindowID(1) 
OpenWindowedScreen(WindowID, 0, 0, 640, 200, 1, 0, 0) 

CreateImage(100, 640, 100) 
StartDrawing( ImageOutput()) 
FrontColor($0,$FF,$FF) 
BackColor(0, 0, 0) 

UseFont(1) 
DrawingFont(FontID()) 
DrawingMode(1) 
Locate(0, 0) 
DrawText(Texte.s) 
StopDrawing() 

For t=0 To 100 
    GrabImage(100, t, 0, t, 640,1) 
Next t 
    
Repeat 
    
    For y= 0 To 100  
        
        StartDrawing(WindowOutput()) 
        UseFont(2) 
        DrawingFont(FontID()) 
        DrawingMode(1) 
        
        FrontColor($95,$25,$BA) 
        BackColor(0, 0, 0) 
        Locate(40, 0) 
        DrawText(Texte.s) 
        
        
        
        
        Angle+1 :If Angle=360*10: Angle=0 :EndIf 
        x=1+(Sin(Angle*2*3.1415926/50)* amplitude) 
        DrawImage( UseImage(y), x+40, y+20*x/25+50,640,1) 
        StopDrawing() 
        dep+1 :If dep>640 :dep=-100:EndIf 
        
    Next y 
    
    
    FlipBuffers(50) 
    
    ClearScreen(0, 0, 0) 
    Event=WindowEvent() 
    Delay(1) 
    
    
Until Event=#PB_Event_CloseWindow 

Je vais souvent à annecy,ma tante habite pas loin (enfin à Saint Jean de sixt, à coté de la clusaz) c'est sympa comme ville, et puis pour faire de la planche à voile sur le lac c'est cool

[Backup]

J'aime bien le 2ème, tu avais mis 2 startdrawing() (tu testes tes codes avant des les donner Razz )

ok j'avais deja corrigé les sources chris m'avait mis au parfum !!
regarde 2 post au dessus , j'ai moimeme fait la remarque de mes aneries !!!

Je vais souvent à annecy,ma tante habite pas loin (enfin à Saint Jean de sixt, à coté de la clusaz) c'est sympa comme ville, et puis pour faire de la planche à voile sur le lac c'est cool Very Happy

je connais !!!

mais pour le cadre c'est tres bien en effet , mais les "locaux" sont plutot
"C**" et pas tres acceuillant
en 12 ans les relations que nous avont eu n'etait pas de la region !!
ils s'aiment bien et en general ils restent entre eux !!!!

[Oliv]

Je n'avais pas été à la deuxième page


Pour Anecy je ne sais pas mais pour le Grand Bornand - La Clusaz, les locaux sont très renfermés