Problem mit Sternenstaub

Übersicht

BlitzBasic

Beginners-Corner

	Magro Betreff: Problem mit Sternenstaub	Sa, Mai 06, 2006 0:05 Antworten mit Zitat
Hallo, ich teste gerade etwas mit dem grundlegenden Funktionen von Blitz3d und habe ein kleines Weltraumspiel geschrieben wo man bisher nur mit einem Raumschiff planlos im All rumdüst. Nunja um die Geschwindigkeit darzustellen wollte ich Sternenstaubpartikel generieren. Ich benutze dafür Sphere's die ich wenn ich "Gas" gebe zufalls gesteuert um mein Raumschiff generiere und sie wenn sie weit weg genug sind wieder lösche. Das Problem ist das sie komischerweise nur in gewissen Richtungen erstellt werden und das das Prog scheinbar immer langsamer wird. (Obwohl ich die Partikel lösche.) Schaut es euch mal an. Vielleicht kann mir jemand sagen was ich falsch mache: Code: [AUSKLAPPEN] [EINKLAPPEN] Type staub Field obj End Type Code: [AUSKLAPPEN] [EINKLAPPEN] If speed>0 Then sternenstaub(enterprice) Endif Code: [AUSKLAPPEN] [EINKLAPPEN] Function sternenstaub(enterprice) st.staub=New staub st\obj=CopyEntity(CreateSphere()) ScaleMesh st\obj,0.01,0.01,0.01 PositionEntity st\obj,EntityX(enterprice)+Rnd(-10,10),EntityY(enterprice)+Rnd(-10,10),EntityY(enterprice)+Rnd(-10,10) For st.staub = Each staub If EntityDistance(enterprice,st\obj)>10 Then FreeEntity st\obj Delete st.staub EndIf Next End Function Danke im Vorraus!

Magro

Betreff: Problem mit Sternenstaub

Sa, Mai 06, 2006 0:05
Antworten mit Zitat

Hallo,

ich teste gerade etwas mit dem grundlegenden Funktionen von Blitz3d und habe ein kleines Weltraumspiel geschrieben wo man bisher nur mit einem Raumschiff planlos im All rumdüst. Nunja um die Geschwindigkeit darzustellen wollte ich Sternenstaubpartikel generieren. Ich benutze dafür Sphere's die ich wenn ich "Gas" gebe zufalls gesteuert um mein Raumschiff generiere und sie wenn sie weit weg genug sind wieder lösche.
Das Problem ist das sie komischerweise nur in gewissen Richtungen erstellt werden und das das Prog scheinbar immer langsamer wird. (Obwohl ich die Partikel lösche.)

Schaut es euch mal an. Vielleicht kann mir jemand sagen was ich falsch mache:
Code: [AUSKLAPPEN]

Type staub
Field obj
End Type

Code: [AUSKLAPPEN]

If speed>0 Then
sternenstaub(enterprice)
Endif

Code: [AUSKLAPPEN]

Function sternenstaub(enterprice)
   st.staub=New staub
   st\obj=CopyEntity(CreateSphere())
   ScaleMesh st\obj,0.01,0.01,0.01
   PositionEntity st\obj,EntityX(enterprice)+Rnd(-10,10),EntityY(enterprice)+Rnd(-10,10),EntityY(enterprice)+Rnd(-10,10)
   For st.staub = Each staub
      If EntityDistance(enterprice,st\obj)>10 Then
         FreeEntity st\obj
         Delete st.staub
      EndIf
   Next
End Function

Danke im Vorraus!

	Firstdeathmaker	Sa, Mai 06, 2006 2:18 Antworten mit Zitat
Hmm, also ich hatte das Problem auch mal, hatte mir dann ein bisschen Literatur zu dem Thema durchgelesen und bin zu folgender Lösung gekommen: Erstelle 27 Würfelartige Bereiche um dein Raumschiff, also 3 in der Höhe, 3 in der Tiefe und 3 in der Breite, dein Raumschiff befindet sich immer im Mittleren Würfel. An die Würfel hängst du die Sternenstaubpartikel. Wenn das Raumschiff nun bewegt wird, schaust du in welchem Würfel es sich dann befinden würde und verschiebst die anderen so, dass es sich wieder im mittleren befinden würde: Nur eben in 3D...
www.illusion-games.de Space War 3 \| Space Race \| Galaxy on Fire \| Razoon Gewinner des BCC #57 User posted image

Firstdeathmaker

Sa, Mai 06, 2006 2:18
Antworten mit Zitat

Hmm, also ich hatte das Problem auch mal, hatte mir dann ein bisschen Literatur zu dem Thema durchgelesen und bin zu folgender Lösung gekommen: Erstelle 27 Würfelartige Bereiche um dein Raumschiff, also 3 in der Höhe, 3 in der Tiefe und 3 in der Breite, dein Raumschiff befindet sich immer im Mittleren Würfel. An die Würfel hängst du die Sternenstaubpartikel. Wenn das Raumschiff nun bewegt wird, schaust du in welchem Würfel es sich dann befinden würde und verschiebst die anderen so, dass es sich wieder im mittleren befinden würde:

user posted image

Nur eben in 3D...

www.illusion-games.de
Space War 3 | Space Race | Galaxy on Fire | Razoon
Gewinner des BCC #57 User posted image

	Magro	Sa, Mai 06, 2006 11:56 Antworten mit Zitat
Hört sich interressant an. Ich werde mal versuchen ob ich das so hin bekomme. Danke! Magro

Magro

Sa, Mai 06, 2006 11:56
Antworten mit Zitat

Hört sich interressant an. Ich werde mal versuchen ob ich das so hin bekomme. Danke!

Magro

	tft	Sa, Mai 06, 2006 14:53 Antworten mit Zitat
Hi .... ja der ansatz ist schon richtig....... aber noch nicht besonders optimiert. Schau mal auf meiner Webseite das TUT an. Im SOrce ist das glaube ich gut erklärt. Fiel Spass....
TFT https://www.sourcemagic.ch Monkey,HTML5,CSS3,W 10 64 Bit, 32 GB Ram, GTX Titan, W8 ist Müll !!!!!!

tft

Sa, Mai 06, 2006 14:53
Antworten mit Zitat

Hi ....

ja der ansatz ist schon richtig....... aber noch nicht besonders optimiert.
Schau mal auf meiner Webseite das TUT an. Im SOrce ist das glaube ich gut erklärt. Fiel Spass....

TFT
https://www.sourcemagic.ch
Monkey,HTML5,CSS3,W 10 64 Bit, 32 GB Ram, GTX Titan, W8 ist Müll !!!!!!

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Problem mit Sternenstaub

Magro

Betreff: Problem mit Sternenstaub

Firstdeathmaker

Magro

tft