Au secour SOLDAT,la v4.40 elle est encore méchante avec KCC

[Kwai chang caine]

Pour les fous de graphisme...la spirale infernale

Bonjour la famille ....

Je me suis levé ce matin....je sais j'aurais pas du
Avec une idée...je cherche un petit code simple (si possible) qui dessinerait une fenetre ronde si possible, mais ça je doit peut etre y arriver...
Mais surtout ou dedans ça ferait une spirale qui tourne, comme quand on fait tourner une cuillere dans le café...large autour et se resserant au centre.
Ou comme les truc qui hypnotysent.....mais dans une petite fenetre de 200....

Un truc comme ça en noir et blanc...mais meme en plus simple :



J'y connais quedal en graphisme, alors est ce que c'est dur a faire ???
Y'a t'il un debut de code sur une etagere ???
J'ai tapé spirale dans la recherche, mais rien n'est sorti

Bonne journée a tous

[Frenchy Pilou]

Le plus facile c'est de récupérer une image, d'en faire un sprite, et de le faire "rotationner"

[Kwai chang caine]

C'est pas bete ça comme idée
Je vais essayer, merci beaucoup

[Ar-S]

C'est pas bete ça comme idée
Je vais essayer, merci beaucoup

c'est même surement carrément plus simple que de te taper la création de la spirale en code

[Kwai chang caine]

Toujours dans la quette de ma spirale infernale.
J'ai eu l'idée aussi, car ce serait peut etre plus simple, que de faire tourner l'image, de mettre le GIF dans un WEBGADGET

En fait, je voudrais faire un anneau, et dedans je met la spirale.
Alors l'image avec l'anneau..je sais faire...enfin je savais...avec un code de MISCHA...n'est ce pas DENIS
Mais apres je n'arrive pas a mettre le webgadget dans la fenetre image skinnée

Alors j'ai eu une autre idée ..que je vais tenter, c'est mettre l'anneau dans le gif avec la spirale et comme ça, il me resterais plus qu'a savoir faire un webgadget rond ou meme plutot ovale



Qu'en pensez vous ???

A votre avis c'est possible le webgadget rond ?????
Ou je par encore en couille

[Frenchy Pilou]

Sinon il y a la solution boucher!
ça dépend si s'est pour s'entraîner à programmer ou si c'est juste pour avoir le résultat!
Il suffit de prendre n'importe quel logiciel de dessin 2D
De se cogner 12, 16 ou 24 images à la main et en faire un gif animé et voilà
(et encore il y en a même qui doivent faire cela automatiquement
Ensuite la réintégrer dans le programme doit être du gâteau, ce n'est qu'une simple image gif

[flaith]

Cette spirale elle va s'afficher où ? Dans une appli? un jeu ?

Pourquoi ne pas afficher ces 3,4 images en utilisant le windowtimer de pb 4.40

[Kwai chang caine]

En fait c'est la page principale de mon programme
Quand je drag and drop dessus le fichier part par FTP...d'ou le graphisme de la spirale comme si le fichier etait aspiré, comme dans le feuilleton quand j'etais jeune au frontiere du temps

Donc juste cet anneau et si je double clique, je fait apparaitre une fenetre normale contenant tous les parametres du programme, sinon juste le drag and drop comme fonction pour envoyer le fichier

[Thyphoon]

et pourquoi ne pas utiliser un WindowScreen et l'afficher en sprite ? et tu affiche part dessus ton anneau ?
tu peux même pousser le vis de l'icon de l'application qui suit les lignes de la spiral pour aller jus'au centre avec l'icon qui retrécie ! jusqu'a disparaitre (fin de l'upload) En tout cas si c'est tres gadget j'aime bien l'idée

[Thyphoon]

allez parce que c'est toi et que je t'aime bien !
c'est du vite fait pas du tout optimizé (PB4.31 car j'ai que ça au boulot)

Code : Tout sélectionner

 If InitSprite() = 0 Or InitSprite3D()=0
    MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
    End
  EndIf
  
  If OpenWindow(0, 0, 0, 240, 240, "Un écran dans une fenêtre...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0, 170, 135, 45, 20, "Quitter")

    If OpenWindowedScreen(WindowID(0), 0, 0, 320, 240, 0, 0, 0)
      size=Sqr(240*240+240*240)
      CreateSprite(0, size, size,#PB_Sprite_Texture)
      If StartDrawing(SpriteOutput(0))
        For z=0 To 2800
          x=Cos(z*#PI/180)*z/10
          y=Sin(z*#PI/180)*z/10
          Circle(size/2+x,size/2+y,1+z/100,RGB(255,255,255))
        Next
      StopDrawing()
      CreateSprite3D(0,0)
      EndIf
    Else
      MessageRequester("Erreur", "Impossible d'ouvrir un écran dans la fenêtre!", 0)
      End
    EndIf
  EndIf
  
  direction = 2
  Repeat
    ; Il est très important de traiter tous les événements restants dans la file d'attente à chaque tour
    ;
    Repeat
      Event = WindowEvent()
      
      Select Event 
        Case #PB_Event_Gadget
          If EventGadget() = 0
            End
          EndIf
        
        Case #PB_Event_CloseWindow
          End 
      EndSelect
    Until Event = 0
  
    FlipBuffers() 
    ClearScreen(RGB(0, 0, 0))
    Start3D()
    RotateSprite3D(0,ElapsedMilliseconds()/5,0)
    DisplaySprite3D(0, (240-size)/2, (240-size)/2)
    Stop3D()
  
    Delay(1)
  ForEver

[Thyphoon]

tient nouvelle version avec drag and drop ! c'est vraiment fait a l'arrache
fait glisser un fichier dessus et tu verra !
La chose peut être améliorer,
Dans les idées que je trouve sympa :
-trouver un code permettant de récupérer l'icon du fichier qui a été glisser deposer pour remplacer mon carré rouge!
-synchroniser le temps que met le fichier pour atteindre le centre de la spiral avec le temps d'upload !
-multiple fichier

en tout cas ça peut être tres sympa !!

Code : Tout sélectionner

 If InitSprite() = 0 Or InitSprite3D()=0
    MessageRequester("Erreur", "Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !", 0)
    End
  EndIf
  
  If OpenWindow(0, 0, 0, 240, 240, "Un écran dans une fenêtre...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0, 170, 135, 45, 20, "Quitter")

    If OpenWindowedScreen(WindowID(0), 0, 0, 240, 240, 0, 0, 0)
      size=Sqr(240*240+240*240)
      CreateSprite(0, size, size,#PB_Sprite_Texture)
      If StartDrawing(SpriteOutput(0))
        For z=0 To 2800
          x=Cos(z*#PI/180)*z/15
          y=Sin(z*#PI/180)*z/15
          Circle(size/2+x,size/2+y,1+z/250,RGB(255,255,255))
        Next
      StopDrawing()
      CreateSprite3D(0,0)
      EndIf
    Else
      MessageRequester("Erreur", "Impossible d'ouvrir un écran dans la fenêtre!", 0)
      End
    EndIf
  EndIf
  
EnableWindowDrop(0, #PB_Drop_Files, #PB_Drag_Copy)

icon=#False ; pas d'icon pour l'instant
  Repeat
    ; Il est très important de traiter tous les événements restants dans la file d'attente à chaque tour
    ;
    Repeat
      Event = WindowEvent()
      
      Select Event
        Case #PB_Event_WindowDrop
          Debug EventDropAction()
          Debug EventDropType()
          Debug EventDropFiles()
          icon=#True
          iconX=WindowMouseX(0)
          iconY=WindowMouseY(0)
          iconangle=ATan((140-iconY)/(160-iconX))
          iconlong=100
          iconstarttime=ElapsedMilliseconds()
        Case #PB_Event_Gadget
          If EventGadget() = 0
            End
          EndIf
        
        Case #PB_Event_CloseWindow
          End 
      EndSelect
    Until Event = 0
  
    FlipBuffers() 
    ClearScreen(RGB(0, 0, 0))
    Start3D()
    RotateSprite3D(0,ElapsedMilliseconds()/5,0)
    DisplaySprite3D(0, (240-size)/2, (240-size)/2)
    Stop3D()
    If icon=#True
      Debug iconX
      StartDrawing(ScreenOutput())
      anglesup.f=(ElapsedMilliseconds()-iconstarttime)/100
      long=100-(ElapsedMilliseconds()-iconstarttime)/10
      If long<0:
        icon=#False
      EndIf
      iconX=Cos(iconangle+anglesup)*long
      iconY=Sin(iconangle+anglesup)*long
      Box(120+iconX,120+iconY,20,20,#Red)
      StopDrawing()
    EndIf

    Delay(1)
  ForEver

[Kwai chang caine]

Alors la TYPHOON les bras m'en tombent

Que dire.....je ne sais plus...et pourtant y'en a pas beaucoup qui pourrons se vanter de faire taire KCC

Aujourd'hui, c'est noel avant l'heure, c'est exactement ce que je cherchais a faire, mais meme encore dix fois mieux, car je ne revais meme pas que le fichier parte come dans un "syphon de chiotte"

Je pensais juste le déposer et y disparait.
Vraiment milles merci de t'etre casser la tete pour moi

Aujourd'hui, j'ai de la chance deux copains toi et NETMAESTRO y viennent de me donner deux codes de la mort, que je serais vraiment incapable de réaliser, a ma grande tristesse et surtout grande honte, malgré mes heures d'apprentissage

Ce matin je me suis levé avec plein de problemes, et ce soir, j'ai deux supers pistes grace à vous.

Elle est vraiment super super géniale ta spirale , j'arrette pas de la regarder....et toute en code en plus.
Je me demande meme si je vais pas dormir

Alors apres ma danse de tout à l'heure pour NETMAESTRO, je vais donc danser pour toi une deuxieme fois dans la journée
Je sais que c'est un triste salaire au regard de tes heures de travail...mais la...vraiment je ne vois pas quoi faire d'autre

En plus j'ai pas encore lancé mon appli, alors je vais m'empressé d'incorporer ton code, ça va lui donner encore plus de classe.
J'ai hate de voir la tronche des collegues, je leur dirait quand meme que la spirale n'est pas de moi, normal
Remarque...elle ressemble un peu a ton avatar ta spirale
T'es un specialiste des tourbillons toi, toutes les femmes doivent te vouloir....pas besoin de passer l'aspirateur chez toi

Je vais meme rajouter un bruit ......la chasse d'eau...j'suis pas sur que ça fera rire mes patrons

Merci merci merci

[Thyphoon]

content que tu sois content !
mais n'exageront rien j'y ai passé en gros 10 minutes !
Pour la spiral je me suis inspiré de mon code pour faire ma galaxy !

[Ar-S]

Très sympa ce petit drag & drop,

et KCC, tu es le roi du gif
trop mort de rire

[Kwai chang caine]

mais n'exageront rien j'y ai passé en gros 10 minutes !

10 minutes .....
10 minutes .....
10 minutes .....
10 minutes .....


La vie est trop dure !!!!

Très sympa ce petit drag & drop,

Sympa !!!
Tu veux dire genial, super, royal, brillantissime, splendide, fantasmagorique, exceptionnel ....
Bon je ne voudrais pas que vous croyez que j'exagere encore...alors je vais rester sobre pour cette fois

En tout cas je l'ai déjà montré, à mon chef..et il a dit..."oh putain !!!"
Mon gamin, il a dit "Cooooollllllll !!!!"

Du coup ça m'a donné une autre idée et celle la, peut etre que je pourrais y arriver tout seul
Du coté du client, je pourrai faire la meme bague, et quand un fichier arrive sur le bureau......paf !!! il sort de la la boucle et il rebondit sur le bureau comme si l'anneau l'avait craché
Bon j'ai du "broad" sur la planche....il faut que je termine un autre code que j'ai commencé et apres, je me lance

et KCC, tu es le roi du gif

Merci beaucoup Ar-s
Ca fait plaisir...roi surement pas...mais j'suis surement meilleur qu'en programmation

Je ne sais pas si je vous l'avais déjà dit ...mais j'aime beaucoup les GIFS.....enfin je crois que FRED le sais lui .....
Remarque DIEU sait tout ...et vois tout