PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Physique des Fluides ......

https://www.purebasic.fr/french/viewtopic.php?t=7249

Page 5 sur 6

Publié : lun. 01/oct./2007 0:11
par Ollivier
Oui, par contre, moi, t'as pas droit de toucher à mes codes. Par exemple, tu n'as plus le droit de faire ceci:

Code : Tout sélectionner

; Copaïeraïte 2007 Hall raïtz résèrvède by Ollivier
Repeat
ForEver

Publié : lun. 01/oct./2007 0:55
par case
Dobro a écrit : pour info , tout mes codes posté sur le Forum , sont libre ... :D

si de temps en temps, j'ai la surprise d'etre dans un greeting, ça me vas !! :D
je vois la chose de la même manière, si on ne veux pas que notre code ne soit utilises par d'autres il ne faut pas le poster sur un forum :)

Publié : lun. 01/oct./2007 9:52
par Backup
case a écrit :je vois la chose de la même manière, si on ne veux pas que notre code ne soit utilises par d'autres il ne faut pas le poster sur un forum :)
tout a fait !! :D

par contre rien n'empêche ("La Netiquette" vous vous souvenez ?)
d'indiquer lors d'un post d'un code , l'utilisation d'une routine de "pierre","paul", et c'est ce que j'essaie de faire :D
faut dire que ça ne m'es pas trop dur, sur mon disque dur
j'ai un dossier par membre actif de ce Forum , dans chaque dossiers respectif, je mets les codes que je récupère....

sinon j'ai aussi des dossiers standard style "La souris" dans lequel se trouve les codes en vracs concernant la souris ....
dans le genre, j'ai aussi:

"le clavier"
"Graphisme"
"screen-saver"
ect...

, dans ce cas, j'essaie d'avoir le nom de l'auteur d'un code directement dans le code.. lorsque celui-ci a pris la peine de mettre son nom bien sur :D

un petit
; codé par Dobro

en haut de ses listings, est bien utile pour ça !!

bien sur, certains ne doivent pas se priver de pomper du code, sans prendre la peine de le signaler ... :?
dans la mesure du possible, ça n'est pas mon cas :)

Publié : lun. 01/oct./2007 20:28
par RV
Pour revenir au sujet...

Trop fort ce code!!!
Rien a dire...
...si ce n'est le titre 'Physique du Liquide......'

car exemple :
Image

alors soit tu changes le titre soit il faut que tu revoies les vases communiquants ! :wink:

Sinon, ton pseudo te va bien 'Mytic' car tu risques de le devenir!

Bien le bonjour a Kwai...

Publié : lun. 01/oct./2007 20:43
par Mytic
Merci @RV…
@Chris m’a déjà fait cette remarque, ce qui manque dans mon code c’est la gestion de pression !
Et pour le moment je n’arrive pas à trouver un algorithme économique et rapide pour cette gestion.
Je pense que je vais ajouté des vecteurs de force aux goûtes, comme ça il me suffira d’additionner ces vecteurs pour générer une fosse pression qui n’est pas baser sur le poids.
(Pour le titre je devrai mettre >la physique des billes métalliques<)
:? :idea:

Publié : lun. 01/oct./2007 20:47
par Backup
je pense que cela corresponds mieux a la physique des matieres granuleuse
comme le sable par exemple, qui n'est ni solide, ni liquide, et qui a une physique qui lui est propre :D

Publié : lun. 01/oct./2007 20:50
par Mytic
Dobro a écrit :je pense que cela corresponds mieux a la physique des matieres granuleuse
comme le sable par exemple, qui n'est ni solide, ni liquide, et qui a une physique qui lui est propre :D
C’est une bonne idée…
Mais bon je me lance le défi de finir cette physique des fluides !!
:D

Publié : lun. 01/oct./2007 20:50
par RV
heu...bah ouais Mytic...fais ca! 8O

Publié : lun. 01/oct./2007 21:06
par Mytic
Voilàààààààààààààààààààààààààà….
J’ai trouvé une façon bien plus facile de gérer la pression…
Voici la nouvelle version du moteur.
(Posté dans le premier poste)
:D

Publié : lun. 01/oct./2007 21:09
par Mytic
Il suffit d’attendre que sa ce stabilise ! :wink:
Image

Publié : lun. 01/oct./2007 21:15
par RV
Mytic...
Ton avatar te correspond-il?
Es-tu de forme humaine?
Sinon...quelle planete?

Publié : lun. 01/oct./2007 21:17
par Mytic
La nouvelle méthode de gestion de pression à des effets négatifs sur le glissement de l’eau.
Maintenant je dois trouver une solution contre ce bug…
(Un autre défit)
:?

Publié : lun. 01/oct./2007 21:20
par Mytic
Physique des bulles de savon !! :lol:

Code : Tout sélectionner

;-------------
;-By Mytic ---
;-------------
;------------------(Physique des bulles de savon)

InitSprite()
;InitScreen() ;----(Inutile pour les nouvelles versions )
InitMouse()
InitKeyboard()

Structure info
x.l
y.l
acc.D
coul.l
activ.l
mov.l
ina.l
EndStructure

;Global FPS()
Global Dim goute.info(9999)
Global Dim Bgoute.info(9999)
Global maxg.l = -1
Global limg.l = 9999
Global G.D = 0.1,maxacc.d = 4
Global pa.l = 255
Global activ.l = 0

Procedure.s FPS()
Static newtime.d,bactime.d,fp.l,rfp.s
newtime = ElapsedMilliseconds()
If newtime - bactime => 1000
rfp = Str(fp)
fp = 0
bactime = newtime
Else
fp = fp + 1
EndIf
ProcedureReturn rfp
EndProcedure

Procedure mega_Point(x,Y)   
UseBuffer(0) 
    color= PeekW(DrawingBuffer() + (x * 2) +DrawingBufferPitch()* ( Y )  )
UseBuffer(-1)
    ProcedureReturn color
EndProcedure



Procedure mega_Plot(x,Y,Couleur)
UseBuffer(0)
    PokeW( DrawingBuffer()  + (x * 2) +DrawingBufferPitch()* ( Y ) , Couleur )
UseBuffer(-1)
EndProcedure 

Procedure mega_BOX(x,Y,w.l,h.l,Couleur)
UseBuffer(-1)
For ny = y To y+h-2
For nx = x To x+w-2
    PokeW( DrawingBuffer()  + (nx * 2) +DrawingBufferPitch()* ( nY ) , Couleur )
Next nx
Next ny

EndProcedure 

Procedure labi(maxlX.l,minlY.l,grosso.l,couleur.l)
#taille = 13
For y = 1 To minlY-1 Step #taille
For x = 1 To maxlX-1 Step #taille
ax = Random(1)
If ax <> 0
For i = 0 To grosso
LineXY(x,y+i,x+#taille,y+i,couleur)
Next i

EndIf
Next x
Next y
For x = 1 To maxlX-1 Step #taille
For y = 1 To minlY-1 Step #taille
ay = Random(1)
If ay <> 0
For i = 0 To grosso
LineXY(x+i,y,x+i,y+#taille,couleur)
Next i
EndIf
Next y
Next x
EndProcedure


Procedure init_goute()
For i = 0 To limg
goute(i)\x = 1
goute(i)\y = 1
goute(i)\activ = 0
vv = Random(150)
goute(i)\coul = RGB(vv,vv,220 + Random(30))
Next i
EndProcedure

Procedure nouvel_goute(x.l,y.l)
For i = 0 To maxg
If goute(i)\activ = 0
goute(i)\acc = 1
goute(i)\x = x
goute(i)\y = y
goute(i)\activ = 1
vv = Random(150)
goute(i)\coul = RGB(vv,vv,220 + Random(30))
ProcedureReturn 1
EndIf
Next i
If maxg <= limg
maxg = maxg + 1
goute(maxg)\acc = 1
goute(maxg)\x = x
goute(maxg)\y = y
goute(maxg)\activ = 1
vv = Random(150)
goute(maxg)\coul = RGB(vv,vv,220 + Random(30))
ProcedureReturn 1
EndIf
ProcedureReturn 0
EndProcedure

Procedure gravite_collision()
activ = 0
StartDrawing(SpriteOutput(0))
For i = 0 To maxg
If goute(i)\activ = 1
activ+1
If mega_Point(goute(i)\x,goute(i)\y)<> 0
goute(i)\y-1
EndIf
If mega_Point(goute(i)\x,goute(i)\y+goute(i)\acc) = 0
goute(i)\y+goute(i)\acc
If goute(i)\acc < maxacc
goute(i)\acc+G
EndIf
;goute(i)\ina-1
Else
goute(i)\acc=1
p = Random(1)
If mega_Point(goute(i)\x,goute(i)\y+1)<> 0 
If mega_Point(goute(i)\x-1,goute(i)\y+1)<> 0 
If mega_Point(goute(i)\x+1,goute(i)\y+1)<> 0 And mega_Point(goute(i)\x,goute(i)\y-2)= 0
goute(i)\y-goute(i)\acc
EndIf
EndIf
EndIf
If p = 1
If mega_Point(goute(i)\x+1,goute(i)\y)= 0
goute(i)\x+1
Else
If mega_Point(goute(i)\x-1,goute(i)\y)= 0 :goute(i)\x-1:EndIf
EndIf
Else
If mega_Point(goute(i)\x-1,goute(i)\y)= 0
goute(i)\x-1
Else
If mega_Point(goute(i)\x+1,goute(i)\y)= 0 :goute(i)\x+1:EndIf
EndIf
EndIf
EndIf

If (goute(i)\x > 10) And (goute(i)\x < 630) And (goute(i)\y > 10) And (goute(i)\y < 470)
vv = Random(150)
goute(i)\coul = RGB(vv,vv,220 + Random(30))
mega_Plot(Bgoute(i)\x,Bgoute(i)\y,0)
mega_Plot(goute(i)\x,goute(i)\y,goute(i)\coul)
Bgoute(i)\x = goute(i)\x
Bgoute(i)\y = goute(i)\y
Else
activ-1
mega_Plot(Bgoute(i)\x,Bgoute(i)\y,0)
goute(i)\activ = 0
EndIf

EndIf
Next i

DrawText(10,10,"Goûtes actives : " + Str(activ)+"#" + FPS() + "#" ,53289)
StopDrawing()

EndProcedure


Procedure type_goute()
StartDrawing(ScreenOutput())
For i = 0 To maxg
If goute(i)\activ = 1
;Box(Bgoute(i)\x,Bgoute(i)\y,2,2,0)
Box(goute(i)\x,goute(i)\y,2,2+goute(i)\acc/maxacc+1,goute(i)\coul)
;mega_BOX(goute(i)\x,goute(i)\y,2,2+goute(i)\acc/maxacc+1,goute(i)\coul)
EndIf
Next i
StopDrawing()
EndProcedure
;OpenWindow(0,0,0,500,500,"test")
;OpenWindowedScreen(WindowID(0),0,0,500,500,0,0,0)
OpenScreen(640,480,16,"Eau")
CreateSprite(0,500,500)
CreateSprite(1,10,10)
StartDrawing(SpriteOutput(1))
LineXY(0,5,10,5,RGB(0,255,0))
LineXY(5,0,5,10,RGB(0,255,0))
StopDrawing()
FlipBuffers()


init_goute()
Repeat
ClearScreen(0)
ExamineKeyboard()
ExamineMouse()

If KeyboardReleased(#PB_Key_Return)
UseBuffer(0)
ClearScreen(0)
StartDrawing(SpriteOutput(0))
labi(640,480,3,255)
StopDrawing()
UseBuffer(-1)
EndIf

If KeyboardPushed(#PB_Key_Escape)
End
EndIf
If KeyboardReleased(#PB_Key_Space)
If pa = 0
pa = 255
Else
pa = 0
EndIf
EndIf
x = MouseX()
y = MouseY()
If MouseButton(#PB_MouseButton_Left)
StartDrawing(SpriteOutput(0))
Circle(x,y,3,pa)
;mega_Plot(x,y,255)
StopDrawing()
EndIf

If MouseButton(#PB_MouseButton_Right)
nouvel_goute(x,y)
EndIf

DisplaySprite(0,0,0)
DisplayTransparentSprite(1,x-5,y-5)
gravite_collision()
type_goute()
;event = WindowEvent()
Delay(1)
FlipBuffers()
ForEver
End

Publié : lun. 01/oct./2007 21:48
par Mytic
J’ai partiellement corrigé le bug…
Même chose, le nouveau code est posté à la place du premier

Copier le Code >Physique des Fluides 6.5<

(Maintenant que j’ai ajouté la pression, il me reste plus que l’extrême optimisation.)

Publié : mer. 03/oct./2007 15:05
par cederavic
Dobro a écrit : Cederavic ? il est mort le musé ?? 8O
Completement OUT :?

EDIT : Super ce code, je me suis bien marré avec!
Fuseau horaire sur UTC+01:00
Page 5 sur 6

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru