PureBasic

Code : Tout sélectionner

; *********** initialisation *********

;coord de départ
Global PosX
Global PosY
Global x.f = 85                       
Global y.f =5
 
 ;vitesses de départ
Global vx.f = 1
Global vy.f = -4
                             
Global Pas.f=0.2
Declare  Ondulation_console(x,y,Texte.s,r,v,b)  

; ***** variables a OLIV ********* 
        ; Variables

#HauteurSin = 2 ; Coef qui joue sur la hauteur de la sinusoide
#LargeurSin = 5 ; Coef qui joue sur la largeur de la sinusoide
#VitesseAngle =  1 * #PI / 5 ; vitesse de modification de l'angle de départ du texte
#Vitesse = 100 ; Temps du Delay() qui ralentit/augmente l'animation. 
Global angle.f, FontID,   long_text_bas




OpenConsole()
EnableGraphicalConsole(1)

Repeat 
    
    Texte.s= " joyeux ANIVERSAIRE Progi1984 :D !!!"
   
    x=x-0.5 :If x<-30:x=85:EndIf
    Ondulation_console(x,y,Texte.s,255,255,0) 
    Delay(#Vitesse) 
Until GetAsyncKeyState_(#VK_RETURN) 

CloseConsole()





Procedure Ondulation_console(x,y,Texte.s,r,v,b)  
    ; procedure realisé par OLIV
    ClearConsole()
    ConsoleLocate(0, 0)
    Print("appuis sur Return pour quitter")
    angle + #VitesseAngle ; Angle de départ de la sinusoide en radian 
    If angle >= 2 * #PI
        angle = 0
    EndIf 
    ; On affiche toute les lettres
    PosX = 1 ; Position du caractère
    For n = 1 To Len(Texte) ; Pour chaque lettre du texte 
        Lettre.s = Mid(Texte, n, 1) ; on récupère la lettre à la position n 
        PosY = 10 + #HauteurSin * Sin(angle + PosX / #LargeurSin) ; on calcul la position en Y de la lettre
        ; On part du centre de l'image (50) puis on ajoute un sin
        ; #HauteurSin fait varier l'amplitude du mouvement
        ; l'angle mis dans le sinus est d'abord composé de l'angle de départ d'affichage du texte (Angle)
        ; puis on augmente l'angle au fur et à mesure que l'on affiche des lettres avec le coefficient #LargeurSin qui permet de faire varier la largeur de la sinusoide
        
        Resultat = ConsoleColor( 10, 0)
        ConsoleLocate(x+PosX, y+PosY)
        Print(Lettre)
        Resultat = ConsoleColor( 2, 0)
        ConsoleLocate(x+PosX, y+PosY-1)
        Print(Lettre)
        PosX +1
    Next  
EndProcedure