PureBasic

merde effacée

Sympa, Dommage , je ne vais pas avoir le temps cette semaine a attaquer ca !
Tu aurais du mettre quelques explications pour "aiguiller" les gens qui veulent essayer de faire pareil

On verra la s'maine prochaine

En tout cas, ca pue l'asm

0% asm !!

A noter que plus l'ondulation est etroite, plus la couleur est foncée.
A part ca, il n'y a RIEN de plus a dire... Faites comme bon vous sembles

Cela fait penser aux "lampes à huile", mais survitaminées

Frenchy Pilou a écrit :Cela fait penser aux "lampes à huile", mais survitaminées

Ou a la vapeur s'echappant d'un bon "Tchernobyl-café" !!

Vous savez manipuler les Sin et les Cos j'espere

http://michel.dobro.free.fr/bidouilles/ondule2.zip

http://michel.dobro.free.fr/bidouilles/ondule2.zip

Exelent

Quel brancheur Dobro

SPH, c'est assez joli

Cpl.Bator a écrit :
http://michel.dobro.free.fr/bidouilles/ondule2.zip
Exelent

Quel brancheur Dobro

c'est a cause de son:

Vous savez manipuler les Sin et les Cos j'espere

qui nous prends un peut de haut , je trouve ...

le code que j'ai posté est tiré d'un code de Comtois
et d'un code de Oliv

mais je signale que je suis auteur de quelques code utilisant les SIN et COS !!

comme cette paire de Fesse par exemple

; code by Dobro http://michel.dobro.free.fr/
#dobro =1
#Police =1
#Sprite =1
; ***********************************
Resultat = InitSprite ()
FontID = LoadFont ( #Police , "arial" , 50, #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, "hello" , #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered )
     WindowID = WindowID (1)
    result = OpenWindowedScreen ( WindowID ,0,0, EcranX, EcranY, 1, 0,0)
    Resultat = InitMouse ()
    taille_du_cercle=20
    nombre_de_point=360 ; ceci determine la resolution (nombre de points)
     Repeat
         ExamineMouse ()
        Event= WaitWindowEvent ()

         StartDrawing ( ScreenOutput ())
        compt+1
         If compt=nombre_de_point :compt=0: EndIf ; on a fait le tour ??

        x=taille_du_cercle* Cos ( compt*(2*3.1415926/nombre_de_point)) + (EcranX / 2) ; la formule du cercle /360 = 360 points
        y=taille_du_cercle * Sin ( compt*(2*3.1415926/nombre_de_point)) + (EcranY / 2) ; la formule du cercle
         Box (x, y,2, 2 , RGB (255,255,255))
        taille_du_cercle+ Sin ( compt*(2*3.1415926/nombre_de_point))+ Cos ( compt*(2*3.1415926/nombre_de_point))
         StopDrawing ()
         FlipBuffers (): ; affiche l'ecran

         If compt=300
             StartDrawing ( ScreenOutput ())
             DrawText (EcranX/2, EcranY/2+150, "Mon cul.." )
             StopDrawing ()
             FlipBuffers (): ; affiche l'ecran
         EndIf
        Event= WindowEvent ()
         If MouseButton (2)
             End
         EndIf
     Until Event= #PB_Event_CloseWindow

ou bien ceci

; Code Dobro
LoadFont (1, "arial" , 50 )
LoadFont (2, "arial" , 50 )
Resultat = InitSprite ()
Global angle,Amplitude
Amplitude=50
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
     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 ( ImageID (y), x+40, x1+y,640,1)
         StopDrawing ()
        dep+1 : If dep>640 :dep=-100: EndIf
     Next y
     FlipBuffers (50)
     ClearScreen ( RGB (0, 0, 0))
    Event= WindowEvent ()
     Delay (1)
Until Event= #PB_Event_CloseWindow

ou cela

"hello"

ou ça :

; 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

; codé par Dobro

LoadFont (1, "arial" , 50 , #PB_Font_Italic )
LoadFont (2, "arial" , 50 )

Resultat = InitSprite ()
Global angle,Amplitude
Amplitude=5
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

     For y= 0 To 100
         StartDrawing ( ScreenOutput ())

         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)* Amplitude)
         DrawImage ( ImageID (Y), x+Y, Y+50,640,1)
         StopDrawing ()
     Next Y


     FlipBuffers ()

     ClearScreen ( RGB (0, 0, 0))
    Event= WindowEvent ()
     Delay (1)


Until Event= #PB_Event_CloseWindow

Dobro a écrit :http://michel.dobro.free.fr/bidouilles/ondule2.zip

Humm, humm, hummm, ton effet n'est pas celui demandé. Essaye de coller au plus pret a ce que j'ai fait please.
En l'occurence : la variation de couleur progressive.

Et, evite de betement pomper !

le code que j'ai posté est tiré d'un code de Comtois
et d'un code de Oliv

Merci

Et, evite de betement pomper !

M'enfin quel mal y a-t-il à celà?
A quoi sert de réinventer l'eau chaude à chaque fois?

C'est bien plus atucieux de repartir de trucs déjà faits, cela fait gagner un temps fou!
En plus citer ses sources rend homage aux créateurs initiaux

Bin, ce qu'il y a de contradictoire, c'est de dire qu'on reinvente l'eau chaude alors qu'on n'est pas capable de le faire sans pomper sur les autres...
Si c'est un challenge, faut coder au plus ressemblant; pas faire RECHERCHE, puis copier/coller et dire : voila
Sinon, ca s'appelerais : RECHERCHE et pas CHALLENGE

SPH a écrit :Humm, humm, hummm, ton effet n'est pas celui demandé. Essaye de coller au plus pret a ce que j'ai fait please.
En l'occurence : la variation de couleur progressive

ha bah oui c'est vachement difficile de faire varier une couleur

Dobro a écrit :ha bah oui c'est vachement difficile de faire varier une couleur

Arrete un peu d'utiliser ta grande langue et utilises plutot ton petit cerveau !!

Pour quelqu'un qui poste régulièrement de la merde, je trouve que tu prends vraiment tout le monde de haut, SPH.

"Peut être" que Dobro aurait plus collé au sujet si le sujet avait été décrit...

Si les "défis" ne servent qu'à se mettre en avant et se la péter en lâchant un exe, je trouve ca ridicule, puéril et presque menaçant pour la qualité du forum...

PureBasic

[Challenge annulé]

[Challenge annulé]