Delphi-PRAXiS
Seite 50 von 103   « Erste     40484950 515260100     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Andorra 2D [Ver. 0.4.5.1, 31.12.08] (https://www.delphipraxis.net/81314-andorra-2d-%5Bver-0-4-5-1-31-12-08%5D.html)

igel457 24. Feb 2008 15:45

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Du gibst nicht zufälligerweise irgendwo ein Sprite mittels "Free" frei? Dies sollte immer über die Methode "Dead" geschehen.

xZise 24. Feb 2008 15:48

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Zitat:

Zitat von igel457
Du gibst nicht zufälligerweise irgendwo ein Sprite mittels "Free" frei? Dies sollte immer über die Methode "Dead" geschehen.

Jap ich weiß und deshalb: Nein tue ich nicht.

chaosben 25. Feb 2008 07:17

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Zitat:

Zitat von igel457
Komisch, die AdStandardFontGenerator.pas sollte durch das Definieren des Kompilerschalters deaktiviert werden

Na klar, das wars. Danke.

busybyte 26. Feb 2008 17:59

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Ich kann mich auch irren (habe den Source noch nicht heruntergeladen) ,
aber wenn Flist vom Typ Array of TSprite ist,dann rufst Du immer wieder die gleiche Procedure auf ohne
CollisionDone zu setzen.Code gekürzt,zur Übersicht.
Delphi-Quellcode:
procedure TSprite.Collision2;
begin
   if (Self<>FEngine.FCollisionSprite) and
        OverlapRect(FEngine.FCollisionRect,BoundsRect) and
        TestCollision(FEngine.FCollisionSprite) then
    begin
      if FEngine.FCollisionSprite.Deaded or (not FEngine.FCollisionSprite.CanDoCollisions) then //<-
        FEngine.CollisionDone := true;      //<-
 
  if not FEngine.FCollisionDone then        //<-
    begin
      for i := 0 to FList.Count - 1 do
      begin
        FList[i].Collision2;                 //<-
//if NOT FList[i] =FEngine.FCollisionSprite.Deaded or (not FEngine.FCollisionSprite.CanDoCollisions) then Endlos-Loop
        if FEngine.CollisionDone then
        begin
          break;
        end;

igel457 26. Feb 2008 20:02

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,

jetzt ist die MPEG2-Videowiedergabe auch mit Andorra 2D möglich. Meine aktuelle Implementierung schafft bei laufendem PAL-Video ca. 600 FPS. Sprich, während der Videowiedergabe kann man nebenbei noch sein Spiel laufen lassen. Erreicht habe ich dies durch Multi-Threading.

@busybyte:
Ich schaue danach, aber eigentlich habe ich es (soweit ich mich erinnern kann) direkt aus DelphiX übernommen. Das bedeutet aber nicht das es so richtig sein muss.

Danke für den Hinweis,
Andreas

xZise 27. Feb 2008 20:52

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Wo das mit MPEG sieht ja geil aus :)
Eine Sache übrigens ^^
Und zwar habe ich WormHunter etwas "frisiert", so dass er solange Sprites erstellt, bis die FPS absackt (< 60 Hz).
Und ich habe ungefähr 1000 Würmer gehabt. Und wenn ich die FPS-Grenze auf 40 Hz setze, dann krieg ich nochmal 300 mehr.
Also so ab 1000 Würmer bricht die dann aber schon ziemlich ein, während es vorher stabil ist (wobei das eher Frameratelimitierung ist?).

MfG
xZise

igel457 1. Mär 2008 17:29

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo,

das Experiment mit der Sprite-Engine ist interessant. Ich werde mir das mal anschauen.

Im Anhang befindet sich eine kleine Demo meines Videoplayers plus ein Beispielvideo (logo.m2v). Wäre schön wenn sich das mal jemand anschauen kann.

Gravitar 2. Mär 2008 11:18

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Zitat:

Zitat von igel457
Hallo,

Im Anhang befindet sich eine kleine Demo meines Videoplayers plus ein Beispielvideo (logo.m2v). Wäre schön wenn sich das mal jemand anschauen kann.

Hi,

habe ich mir angeschaut. Mit dem mitgelieferten Video funktionierts. Mit meinen MPEG-2-Videos (.mpg direkt über dvb-t aufgenommen) allerdings nicht. Auch nicht nach Änderung der Extenxion in m2v.

Gruß,Andreas

igel457 2. Mär 2008 11:35

Re: Andorra 2D [Ver. 0.30 STABLE, 04.01.08]
 
Du musst auch erst die MPEG2-Video (*.m2v) Daten aus dem ProgramStream (*.mpg) extrahieren. Schau mal hier, dort gibt es ein entsprechendes Programm.

igel457 3. Mär 2008 19:50

Re: Andorra 2D [Ver. 0.35, 04.03.08]
 
Andorra Version 0.3.5

Endlich läuft Andorra 2D auch mit Lazarus unter Windows und Linux und vermutlich auch unter MacOS (wäre toll wenn das mal jemand testen könnte).

Eine Übersicht über alle verfügbaren Downloads der neuen Version gibt es hier:
http://andorra.sourceforge.net/index...tion=downloads


Folgende Dinge haben sich seit der letzten Version verändert:
- Einführung von Windowframeworks
- Eventmanagement von Windowframeworks
- Umstellen des AdGUIConnector auf Windowframeworks
- Umstellen der Plugins auf Windowframeworks
- Hinzufügen der Methode "TAdCanvas.Polygon"
- Einführen der Andorra Video Texture API
- Hinzufügen eines einfachen MPEG2-Video Decoders, der libmpeg2 verwendet
- Zusammenfassen aller Header in einem Lib-Verzeichnis
- Umprogrammieren der JclSimpleXML-Unit für Lazarus Kompatibilität, als AdSimpleXML hinzugefügt.

Viel Spaß mit der neuen Version, wäre toll wenn es mal jemand unter Linux ausprobieren könnte.

Außerdem gibt es neue Tutorials:
Lazarus und Andorra 2D: http://andorra.sourceforge.net/index.php?bb=lazarus1ger
Über Andorra 2D Windowframeworks: http://andorra.sourceforge.net/index...frameworks1ger

Ich freue mich auf eure Erfahrungsberichte und massig Feedback, :wink:
Andreas


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:31 Uhr.
Seite 50 von 103   « Erste     40484950 515260100     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz