HAPPY NEW YEAR!

traumatic · Post by **traumatic** » Sun Jan 01, 2006 1:15 pm

Fangbeast wrote:Happy nude year! from downunder and I wish everyone a basket full of nipples!

happy new year to everyone!

Post by **Fred** » Sun Jan 01, 2006 2:18 pm

Hi there,

Another year has gone and has brought several important PureBasic releases, for Windows, Linux and MacOS X. We really wanted to release the upcoming v4 for new year 1st january but it's not really finished and we don't want to rush a release on a date, as we will have tons of reports due to unfinished features. Tough, we think you all deserve a precise report about it so here it is:

- the compiler side is finished and fully working, a lot of new features inside.
- the updated libraries are mostly finished, which includes a lot of new commands, reworked commands etc. (about one week is left)
- the IDE and Debugger are being updated to support the new types and new features, we hope it could be done in about two weeks.

So it's coming, and don't worry, it will be the biggest update since years.

We want to thanks everybody which are around PureBasic and help in this forums, for all the ideas and suggestions to make it better. Thanks again and..

Happy new year !

The Fantaisie Software Team.

GeoTrail · Post by **GeoTrail** » Sun Jan 01, 2006 3:25 pm

Happy new year Fred and everyone else.
I slept in today, was a long day yesterday hehehe.

va!n · Post by **va!n** » Sun Jan 01, 2006 4:10 pm

@fred:
nice words from you... keep on your great work and stay cool... have a nice beautifull year 2006

dagcrack · Post by **dagcrack** » Sun Jan 01, 2006 5:17 pm

hey fred happy new year!
cant say much, still drunky.. but, have fun everyone !!

- used my last breathe to give some advice to Hydrate -

Denis · Post by **Denis** » Sun Jan 01, 2006 7:09 pm

Happy new year et Bonne Année !

nco2k · Post by **nco2k** » Sun Jan 01, 2006 7:09 pm

@Fred
happy new year fred and take your time for v4.0. its done when its done.

c ya,
nco2k

dobro · Post by **dobro** » Sun Jan 01, 2006 7:28 pm

Happy newyear

; code by Dobro http://michel.dobro.free.fr/
Declare.f RotationX(X, Angle.f, dist)
Declare.f RotationY(Y, Angle.f, dist)
Declare feux ( taille_du_cercle, nombre_de_point)
Declare text()
Declare Ondulation(X,Y,Texte.s,r,v,b)
Global de
#dobro =1
#Police =1
#Sprite =1
#pi =3.1415926

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

#HauteurSin = 10 ; Coef qui joue sur la hauteur de la sinusoide
#LargeurSin = 20 ; Coef qui joue sur la largeur de la sinusoide
#VitesseAngle = 2 * #pi / 50 ; vitesse de modification de l'angle de départ du texte
#Vitesse = 25 ; Temps du Delay() qui ralentit/augmente l'animation.
Global Angle.f, FontID , long_text_bas,x_win,y_win
         ; ****************************************

; ***********************************
Resultat = InitSprite ()
FontID = LoadFont ( #Police , "Comic Sans MS" , 24, #PB_Font_Bold )
EcranX = GetSystemMetrics_ ( #SM_CXSCREEN ): ;=largeur de l'ecran
EcranY = GetSystemMetrics_ ( #SM_CYSCREEN ): ;=hauteur de l'ecran
     WindowID = OpenWindow (1, 0, 0, EcranX, EcranY, #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered , "souris bouton droit pour sortir" )
     WindowID = WindowID (1)
    Result = OpenWindowedScreen ( WindowID ,0,0, EcranX, EcranY, 1, 0,0)
    Resultat = InitMouse ()

     Repeat
         ExamineMouse ()
        Event= WaitWindowEvent ()
        feux ( 200, 100)
         If MouseButton (2)
             End
         EndIf
     Until Event= #PB_Event_CloseWindow


     Procedure feux ( taille, nombre_de_point)
    EcranX = GetSystemMetrics_ ( #SM_CXSCREEN ): ;=largeur de l'ecran
    EcranY = GetSystemMetrics_ ( #SM_CYSCREEN ): ;=hauteur de l'ecran
        de= Random (25500)
          RandomSeed (de)
        hauteur= Random (EcranY/2 )+taille
        largeur= Random (EcranX/2)+taille
        r= Random (255)+100
        v= Random (255)+100
        b= Random (255)+100
        couleur= RGB (r,v,b)
        taille_boulet= Random (5)+1

        X1=largeur
        Y1=hauteur

         For t= EcranY To hauteur Step -10
             StartDrawing ( ScreenOutput ())
             Box (X1, t,4,4,couleur)
             StopDrawing ()
             FlipBuffers (): ; affiche l'ecran
             ClearScreen (0,0,0)
            text()
         Next t
         StartDrawing ( ScreenOutput ())
         Circle (X1, t,50, couleur)
         StopDrawing ()
         FlipBuffers (): ; affiche l'ecran
         ClearScreen (0,0,0)
        text()

         For taille_du_cercle=0 To taille Step 4
             ; ******************* faire un cercle ********************************
             For compt=1 To nombre_de_point
                X=taille_du_cercle* Cos ( compt*(2*3.1415926/nombre_de_point)) + (X1) ; la formule du cercle /360 = 360 points
                Y=taille_du_cercle * Sin ( compt*(2*3.1415926/nombre_de_point)) + (Y1 ) ; la formule du cercle
                 ; ***********************************************
                 StartDrawing ( ScreenOutput ())
                 Circle (X, Y,taille_boulet, couleur)
                 StopDrawing ()

                 ExamineMouse ()
                 If MouseButton (2)
                     End
                 EndIf

             Next compt
             FlipBuffers (): ; affiche l'ecran
             ClearScreen (0,0,0)
            text()
         Next taille_du_cercle
         ProcedureReturn
     EndProcedure

     Procedure text()
    EcranX = GetSystemMetrics_ ( #SM_CXSCREEN ): ;=largeur de l'ecran
    EcranY = GetSystemMetrics_ ( #SM_CYSCREEN ): ;=hauteur de l'ecran
            RandomSeed (13)
         For t=1 To 400
            xp= Random (EcranX)
            yp= Random (EcranY)
            r= Random (255)+150: If r>255:r=r-50: EndIf
            v= Random (255)+150: If v>255:v=v-50: EndIf
            b= Random (255)+150: If b>255:b=b-50: EndIf
            coul= RGB (r,v,b)
             StartDrawing ( ScreenOutput ())
             Circle (xp, yp,1, coul) ; les etoiles
             StopDrawing ()
         Next t
        text$= "Happy newyear to Forum PureBasic"
        long_text= Len (text$)
        Ondulation(EcranX /4,EcranY/2,text$,255,255,0)
         RandomSeed (de)
     EndProcedure
     Procedure Ondulation(X,Y,Texte.s,r,v,b)
         ; procedure realisé par OLIV
         StartDrawing ( ScreenOutput ()) ; Pour pouvoir utiliser les commandes des dessin 2D.
         DrawingMode (1) ; On selectionne le mode pour ne pas avoir de fond derrière les lettres.
         FrontColor (r,v,b) ; On change la couleur.
         DrawingFont ( FontID ()) ; On change la police
        Angle + #VitesseAngle ; Angle de départ de la sinusoide en radian
         If Angle >= 2 * #pi
            Angle = 0
         EndIf
         ; On affiche toute les lettres
        PosX = 10 ; 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 = 50 + #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
             Locate (X+PosX, Y+PosY)
             DrawText (Lettre)
            PosX + TextLength (Lettre)
         Next
         StopDrawing () ; On signife que l'on arrête les fonctions dessin 2D.
     EndProcedure

oryaaaaa · Post by **oryaaaaa** » Sun Jan 01, 2006 7:37 pm

A happy new year.

Psychophanta · Post by **Psychophanta** » Tue Jan 03, 2006 2:29 pm

Nice PB news, Fred.
Best wishes for everybody in all 2006 !

PureBasic Forums - English

HAPPY NEW YEAR!

Re: Happy nude year!