PureBasic

J'ai essayé qques trucs sous pb4.30, rien trouvé désolé.

Merci beaucoup à vous deux.

@Mdsv41
Oui tu as raison la forme n'est pas la meme

C'est une bonne piste ton truc, je vais creuser merci

@Ars
C'est pas grave, si un miracle avait pu etre possible

Vu que moi rien ne me cause en graphisme, je m'etais dit que peut etre "quinquin" qui en fait un peu verrait ce qui coince

Juste histoire de faire râler KCC, tu ne veux pas une tornade à la place d'une spirale ??

regarde, je me suis amusé a faire ça. C'est vos histoires de spirale qui m'en ont donné l'idée.

(Faut patienter un peu pour faire la tornade se construire, ça doit marcher sous PB4.31 aussi, il faut juste adapter la fonction openwindowedscreen)

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 4.40
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.


#FL = 300 ; Taille de la fenêtre
#FH = 300
#Tx = 150 ; Centre de la tornade
#Ty = 150
#Tr = 120 ; Rayon de la tornade
#Td = 20 ; Dispersion des points de la tornade
#Tmin = 20 ; Rayon minimum de la tornade

Structure ElementTornade
	x.f ; Position réelle
	y.f
	xd.i ; Position pour le dessin
	yd.i
	vx.f ; Vitesse
	vy.f
	Vie.i ; Durée de vie
EndStructure
Global NewList Tornade.ElementTornade()
Structure GraviteInfo
	ax.f ; Accélération
	ay.f
	d.f ; Distance
	Couleur.i
EndStructure
Global Dim Gravite.GraviteInfo(#FL, #FH)

; Pré calcul de la gravité qui va permettre de générer la tornade
For x = 0 To #FL - 1
	For y = 0 To #FH - 1
		dx = #Tx - x
		dy = #Ty - y
		Gravite(x, y)\d.f = Sqr(dx * dx + dy * dy)
		If Gravite(x, y)\d > 0
			Gravite(x, y)\ax = dx / Gravite(x, y)\d / Gravite(x, y)\d
			Gravite(x, y)\ay = dy / Gravite(x, y)\d / Gravite(x, y)\d
			Gravite(x, y)\Couleur = (255 + #Tmin * 2) * Sqr(Gravite(x, y)\d / #Tr) - #Tmin * 2
			If Gravite(x, y)\Couleur > 255
				Gravite(x, y)\Couleur = 255
			ElseIf Gravite(x, y)\Couleur < 0
				Gravite(x, y)\Couleur = 0
			EndIf
			Gravite(x, y)\Couleur = RGB(Gravite(x, y)\Couleur, Gravite(x, y)\Couleur, Gravite(x, y)\Couleur)
		EndIf
	Next
Next


; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, #FL, #FH, "Tornade", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
  End
EndIf
If InitSprite() = 0
	End
EndIf
If OpenWindowedScreen(WindowID(0), 0, 0, #FL, #FH, 1, 0, 0, #PB_Screen_WaitSynchronization) = 0
	End
EndIf

CreateSprite(0, #FL, #FH)
StartDrawing(SpriteOutput(0))
	For x = 0 To #FL - 1
		For y = 0 To #FH - 1
			Plot(x, y, Gravite(x, y)\Couleur)
		Next
	Next
StopDrawing()

AddWindowTimer(0, 0, 40)

Repeat
	Repeat
		Event = WaitWindowEvent(1)
		
		Select Event
			Case #PB_Event_Timer
				If EventTimer() = 0
					AddElement(Tornade())
					Tornade()\x = #Tx
					Tornade()\y = #Ty - #Tr - #Td + Random(#Td * 2)
					Tornade()\xd = Tornade()\x
					Tornade()\yd = Tornade()\y
					Tornade()\vx = 1
					AddElement(Tornade())
					Tornade()\x = #Tx
					Tornade()\y = #Ty + #Tr - #Td + Random(#Td * 2)
					Tornade()\xd = Tornade()\x
					Tornade()\yd = Tornade()\y
					Tornade()\vx = -1
					AddElement(Tornade())
					Tornade()\x = #Tx + #Tr - #Td + Random(#Td * 2)
					Tornade()\y = #Ty
					Tornade()\xd = Tornade()\x
					Tornade()\yd = Tornade()\y
					Tornade()\vy = 1
					AddElement(Tornade())
					Tornade()\x = #Tx - #Tr - #Td + Random(#Td * 2)
					Tornade()\y = #Ty
					Tornade()\xd = Tornade()\x
					Tornade()\yd = Tornade()\y
					Tornade()\vy = -1
				EndIf
		EndSelect
		
	Until Event = #PB_Event_CloseWindow Or Event = 0
	
	ClearScreen(0)
	DisplaySprite(0, 0, 0)
	StartDrawing(ScreenOutput())
		ForEach Tornade()
			Tornade()\vx + Gravite(Tornade()\xd, Tornade()\yd)\ax
			Tornade()\vy + Gravite(Tornade()\xd, Tornade()\yd)\ay
			Tornade()\vx * 0.999
			Tornade()\vy * 0.999
			Tornade()\x + Tornade()\vx
			Tornade()\y + Tornade()\vy
			Tornade()\xd = Tornade()\x
			Tornade()\yd = Tornade()\y
			If Gravite(Tornade()\xd, Tornade()\yd)\d < #Tmin
				DeleteElement(Tornade())
			EndIf
		Next
		ForEach Tornade()
			Circle(Tornade()\xd, Tornade()\yd, 3, Gravite(Tornade()\xd, Tornade()\yd)\Couleur)
		Next
		
		DrawText(0, 0, Str(ListSize(Tornade())), $00FF00, 0)
		
	StopDrawing()
	
	FlipBuffers()
	
Until Event = #PB_Event_CloseWindow


RemoveWindowTimer(0, 0)

Nadine boudin, "c'qu'est lai belle"

Au debut, on se dit...bof...mais apres quand elle se forme......
C'est la premiere fois que je tombe en admiration devant un trou noir

Enfin, peut etre la deuxieme fois, en fait

La premiere fois, je ne peux pas vous en parler, car FRED ou meme toi seront obligé de locker le POST

Le graphisme, c'est splendide..on a du mal a croire qu'avec des *, +, - et quelque variables on puisse en arriver a créer ce genre d'animation

Merci mille fois de ton cadeau soldat

Pour l'instant, j'ai reculé dans mon programme, j'suis dégouté, y marchait au poil, mais comme j'ai lu par ci et par la que la fonction ReceiveNetworkFile n'etait pas fiable au point que FRED voulait passé un temps la supprimer, et que la seule methode fiable etait les ReceiveData.....
Et bien j'ai décidé, car comme tout le monde le sait...Kcc il a pas de pétrole mais il a "Des Cidé", de changer le moteur de mon programme, pour plus de certitude.
En plus cette fonction, on a pas la main dessus, on sait pas quand c'est arrivé, si c'est complet...etc ...

Alors hier toute la journée, j'ai tenté de changer le centre du programme.
Seulement le bleme, c'est que quand tu as construit tout autour du moteur....pas facile a changer les fondations d'une maison en gardant les murs

Donc ....j'ai reculé, ma super idée ne marche plus

En plus cette histoire de 4.30 et 4.40 ça commence a me les briser menu menu

Toi non plus le roi du graphisme t'as pas un avis sur pourquoi mon code y marche qu'en 4.40 ????
J'ai pas eu le temps de regarder l'idée de directX de MDSV41...je pense que c'est une bonne piste....

Et si un jour mon programme marche, peut etre que sur une version superieure si il y a , je mettrais ton splendide code

En tout cas moi j 'adore....mon PC lui y me souffle a la gueule...ça doit tourner a donf les calculs...parfois je rajoute quelques delay dans les boucles pour aretter mon PC qui se prend pour un chauffage de salle de bain

En tout cas encore merci...je garde bien ton "trou noir" comme j'ai gardé en mémoire le premier que j'ai rencontré

Alors la différence graphique entre 4.3 et 4.4, c'est un bug, on ne peut pas dessiner de Circle avec un Rayon de 1

voilà la spirale corrigée

tu peux choisir le nombre de "bras" de la spirale et l'épaisseur des "bras"

ensuite, j'ai vu 2 trucs que j'aime pas trop dans le code.
- Premièrement, il y a 2 flipbuffers, donc tu dois t'arranger pour en avoir que 1 seul
- Ensuite, tu as 2 delai de 1 ms. Tu gardes le WaitWindowEvent(1) et tu supprimes le delay(1) qui fait doublon

Code de la spirale uniquement

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)
		Sprite3DQuality(#PB_Sprite3D_BilinearFiltering)
		size=Sqr(240*240+240*240)
		CreateImage(0, size * 2, size * 2, 24)
		NbBras = 3
		EpaisseurBras = 16
		If StartDrawing(ImageOutput(0))
				For x = 0 To size * 2 - 1
					For y = 0 To size * 2 - 1
						dx.f = x - size
						dy.f = y - size
						d.f = Sqr(dx * dx + dy * dy)
						angle.f = ACos(dx / d)
						If dy < 0
							angle = 2 * #PI - angle
						EndIf
						position = Round(d / EpaisseurBras - NbBras * angle / #PI, #PB_Round_Nearest)
						If position & %1 ; si position est paire
							Plot(x, y, $FFFFFF)
						EndIf
					Next
				Next
			StopDrawing()
			ResizeImage(0, size, size)
			CreateSprite(0, size, size,#PB_Sprite_Texture)
			If StartDrawing(SpriteOutput(0))
					DrawImage(ImageID(0), 0, 0)
				StopDrawing()
				FreeImage(0)
				CreateSprite3D(0,0)
			EndIf
		EndIf
	Else
		MessageRequester("Erreur", "Impossible d'ouvrir un écran dans la fenêtre!", 0)
		End
	EndIf
EndIf

Repeat
	Repeat
		Event = WaitWindowEvent(1)
		
		Select Event
			Case #PB_Event_CloseWindow
				End
				
		EndSelect
		
	Until Event = 0
	
	ClearScreen(0)
	Start3D()
		RotateSprite3D(0,ElapsedMilliseconds()/5,0)
		DisplaySprite3D(0, (240-size)/2, (240-size)/2)
	Stop3D()
	FlipBuffers()
ForEver

Soldat...t'est vraiment un caid en dessin

En d'autres choses aussi, mais le dessin, je sais tellement pas en faire, que ça m'epate toujours plus que le reste.
Elle est parfaite ta spirale, pas un poil qui depasse...quoi que dans certaines conditions bien particulieres, c'est pas mal aussi quand ça depasse

Je l'ai regardé quelques secondes et j'avais la tete qui tourne

Je remercie encore TYPHOON de son gentil cadeau, mais si j'arrive a faire tourner l'icone dedans....je crois bien que je vais adopter la tienne si tu le veut bien.
En tout cas vous etes vraiment tous gentil de m'aider dans ce monde ou j'ai encore meme pas trouvé la poignée de la porte pour y entrer

C'est quand meme un comble pour quelqu'un qui aime les GIFS et les images statiques
Mais c'est tellement compliqué et j'suis tellement nul en math...que je voudrais en connaitre un peu plus en programmation avant de me lancer dans un domaine qui va encore plus me perturber.
Ca n'empeche pas d'avoir des envies de graphismes, ou plutot devrais-je dire des idées..et c'est vrai que pour mon transfert de fichier.....cette spirale et cet anneau, ça apporte un sacré plus a l'appli....
Quelques boing boing et sluuurp de plus ....et mes collegues y me prennent pour "bill gates".....

Y sont marrant les gens...tu leur dit que tu es bon.....y t'envoient chier....(Remarque j'ai pas souvent à le dire donc ça va

)
Je leur dit que je suis mauvais.....ce que je continue a me rendre compte au regards de vos codes et ceux du US....et ben y croient que c'est de la fausse modestie.
Ou alors y disent, tu te denigre trop...

En fin de compte etre realiste ...c'est pas bon dans le monde de maintenant

Alors que la vérité, ce serait de me dire.....en programmation t'es un rigolo.....mais dans la vie aussi, c'est ce qui te sauve

Encore merci soldat...icone dans la spirale .....me voilaaaaaaaaaaaa !!!!!!

Nadine zobi.....j'suis comme un dingue avec ce programme

Quand j'essaye de faire marcher la spirale, c'est le FTP qui merde...et maintenant que j'essaye de passer en 4.40, car le gentil CLS il essaye de me dépanner sur le FTP, et comme il me donne du 4.40 ....

Et ben cette fois c'est ton génial code qui marche pas

Deja que le code de typhoon, y marchait pas en 4.30, maintenant c'est le tiens qui marche pas en 4.40

J'ai perdu ta spirale....ça fait un autre effet cool....mais l'eau dans un WC, j'ai bien regardé chez moi elle fait pas les memes vagues que ton code en v4.40 .....

Tu pourrais me dire ce qui va pas cette fois avec ton code en V4.40, s'il te plait ????

FRED !!!!! c'est quand la prochaine version !!!!
PArce que je crois que je vais avoir piscine ..... ce jour la...

c'est du 4.40 alors je ne vois pas pourquoi ça ne marcherais pas

donne ton code complet (si c'est possible)

Merci soldat d'avoir entendu mon apel à l'aide...

En ce moment je mobilise tout le forum

Alors la c'est plus fort que le fromage fort, ........"c'tte histoire"

Moi sur mon pc ton code sans rien y toucher en 4.30 ça me donne :

Et en, 4.40 le meme code me donne ça

En fait j'ai cru que c'etait mes bidouilles FTP qui avait foiré ton bijou...alors pendant une heure j'ai encore tout défoncé mon code......

Puis a force de pas trouver....et apres que mon code ressemble a un terrain de manoeuvre, je me suis dit :
"Tiens !!!! essaye voir directement le code du soldat en 4.40 ????"

Grand bien m'en a pris....c'est encore la faute de FRED cette histoire, qui me donne des aigreurs et me fait roter noir dans mon bureau, à tel point qu'on dirait que j'ai remonté la poubelle de l'immeuble dans les couloirs

Voici ton code, pas touché

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)
      Sprite3DQuality(#PB_Sprite3D_BilinearFiltering)
      size=Sqr(240*240+240*240)
      CreateImage(0, size * 2, size * 2, 24)
      NbBras = 3
      EpaisseurBras = 16
      If StartDrawing(ImageOutput(0))
            For x = 0 To size * 2 - 1
               For y = 0 To size * 2 - 1
                  dx.f = x - size
                  dy.f = y - size
                  d.f = Sqr(dx * dx + dy * dy)
                  angle.f = ACos(dx / d)
                  If dy < 0
                     angle = 2 * #PI - angle
                  EndIf
                  position = Round(d / EpaisseurBras - NbBras * angle / #PI, #PB_Round_Nearest)
                  If position & %1 ; si position est paire
                     Plot(x, y, $FFFFFF)
                  EndIf
               Next
            Next
         StopDrawing()
         ResizeImage(0, size, size)
         CreateSprite(0, size, size,#PB_Sprite_Texture)
         If StartDrawing(SpriteOutput(0))
               DrawImage(ImageID(0), 0, 0)
            StopDrawing()
            FreeImage(0)
            CreateSprite3D(0,0)
         EndIf
      EndIf
   Else
      MessageRequester("Erreur", "Impossible d'ouvrir un écran dans la fenêtre!", 0)
      End
   EndIf
EndIf

Repeat
   Repeat
      Event = WaitWindowEvent(1)
      
      Select Event
         Case #PB_Event_CloseWindow
            End
            
      EndSelect
      
   Until Event = 0
   
   ClearScreen(0)
   Start3D()
      RotateSprite3D(0,ElapsedMilliseconds()/5,0)
      DisplaySprite3D(0, (240-size)/2, (240-size)/2)
   Stop3D()
   FlipBuffers()
ForEver

Son code pas touché passe nikel en 4.40

donc y'a plus de soucis si ?

Alors la....je crois que je vais aller me coucher avec un suppo

Tu me dit que chez toi ça marche

Alors que tu vois ce qui se passe chez moi....j'ai plus une spirale, mais des vagues.

Comme si le point zero de la spirale n'etait pas renseigné ???

Peut etre un truc a cocher dans l'IDE ???

Ba j'utilise la 4.40 sous jaPBe et je lance la compilation sans rien faire d'autre...
T'es bon pour le suppo

Comme aurait dit le grand "gainsbarre"

Alors la ...ça me trou le c... !!!

Bon ça y'ai ...j'ai un debut de reponse

Apres moultes essais ...j'ai compilé directement le code de soldat et sous vista l'exe y marche nickel

Et sous 2000 le meme exe fait des vagues ......

Peut etre que notre soldat y saura pourquoi.....

2000 ===> VISTA et / ou 4.30 ===> 4.40, j'en ai marre...y'a toujours une couille dans le berceau

Fait pas bon etre programmeur en ces temps de changement pertetuels .....

KCC y veut retourner au DOS

Bon alors la, les idées qui me viennent :

- Compile le code avec le sous-système "directX 7"
- Regarde si tu n'as pas une userlibrairie pas compatible avec 4.40
- Réinstalle la 4.40
- essai l'exe ici http://partage.lsi-dev.com/Spirale.exe pour savoir si c'est le PC ou ton PB le soucis

PureBasic

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

Re: Pour les fous de graphisme...la spirale infernale

Re: Pour les fous de graphisme...la spirale infernale

Re: Pour les fous de graphisme...la spirale infernale

Re: Pour les fous de graphisme...la spirale infernale

Re: Pour les fous de graphisme...la spirale infernale

Re: Pour les fous de graphisme...la spirale infernale

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

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

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

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

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

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

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

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

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