[Challenge annulé]

SPH · Message par **SPH** » lun. 16/oct./2006 0:02

merde effacée

Anonyme · Message par **Anonyme** » lun. 16/oct./2006 8:37

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

SPH · Message par **SPH** » lun. 16/oct./2006 8:41

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

Frenchy Pilou · Message par **Frenchy Pilou** » lun. 16/oct./2006 9:53

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

SPH · Message par **SPH** » lun. 16/oct./2006 11:17

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

Backup · Message par **Backup** » lun. 16/oct./2006 13:38

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

Anonyme · Message par **Anonyme** » lun. 16/oct./2006 14:45

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

Exelent

Quel brancheur Dobro

Anonyme2 · Message par **Anonyme2** » lun. 16/oct./2006 15:05

SPH, c'est assez joli

Backup · Message par **Backup** » lun. 16/oct./2006 18:32

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

SPH · Message par **SPH** » lun. 16/oct./2006 19:28

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

Frenchy Pilou · Message par **Frenchy Pilou** » lun. 16/oct./2006 19:47

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

SPH · Message par **SPH** » lun. 16/oct./2006 20:10

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

Backup · Message par **Backup** » lun. 16/oct./2006 21:49

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

SPH · Message par **SPH** » mar. 17/oct./2006 15:47

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 !!

poshu · Message par **poshu** » mar. 17/oct./2006 22:12

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...