Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Das ist in der Tat seltsam... Wie genau verhält sich das, wenn du einen Haltepunkt auf den Aufruf von "TestCollision" setzt?

[Sfaizst]

Hab den fehler gefunden (besser gesagt mal andersrum probiert):

Im Player rufe ich Die DoCollision auf wie gewohnt und in den "Level" Sprites die function TestCollision, finde ich persöhnlich etwas überraschend, das man beim Player die Collision aufruft, aber die Prüfung dann in dem collidierendem Sprite liegt

Bug oder Absicht? (Thema It's not a bug its a feature...?)

Aber schlecht find ichs nicht

[igel457]

Absicht - ich hatte damals das Verhalten von DelphiX neu implementiert, ob das gut oder schlecht war, darüber lässt sich streiten.

Wichtig ist auf jeden Fall: In den Sprites, die eine Kollisionsprüfung benötigen (die des Players, oder andere "Physik-Objekte") die Funktion "Collision" aufrufen. "Collision" Überprüft dann für jedes Sprite in der Umgebung, ob dieses auch tatsächlich mit dem aufrufenden Sprite kollidiert - hierzu fragt es dann die "Level-Sprites", die ja bekanntlich jede beliebige Form haben können.

Dieses Verhalten hat den Vorteil, dass nicht alle Überprüfungen in der Playerklasse liegen sondern im Level selbst. Andere Klassen im Level können somit von den Überprüfungen ebenso partizipieren, wenn sie denn auch mal auf Kollision testen müssen.

Andreas

[Sfaizst]

Hmm, erscheint mir logisch,
so kann man natürlich auch leichter verschiedene "Objekte" im "level" erstellen, welche bei collision explodieren, zerfetzt werden oder sonst was

Edit: Danke nochmal für die Hilfe, ich melde mich wieder fals mir was unklar ist

[Sfaizst]

Hallö,
musste leider feststellen, das der Loop bei der Videowiedergabe nicht funktioniert, habe mir deshalb was ausgedacht, wie er geht, ist nicht ganz die feine englische, aber es funktioniert: (vielleicht brauchts ja jemand, ich brauchte es, da ich eine kurze videosequenz immer wieder wiederholen wollte)

Die Unit AdVideoTexture (Klasse TAdVideoTexture) sieht nun so aus:

Delphi-Quellcode:

...
  TAdVideoTexture = class(TAdCustomVideoTexture)
    private
      FTimeGap: double;
      FFPS: integer;
      FTmpFPS: integer;
      FTmpTime: double;
      FState: TAdVideoPlayerState;
      FLoop: boolean;
      FSpeed: double;
      FFrameTime: double;

      FOnPlay: TAdNotifyEvent;
      FOnStop: TAdNotifyEvent;
      FOnPause: TAdNotifyEvent;
      FOnClose: TAdNotifyEvent;
      FOnNextFrame: TAdNotifyEvent;

      procedure SetSpeed(AValue:double);
    protected
      procedure DoPlay;virtual;
      procedure DoPause;virtual;
      procedure DoStop;virtual;
      procedure DoNextFrame;virtual;
      procedure DoClose;virtual;

      //NEU DAZUGEKOMMEN:
      property TmpTime : Double read FTmpTime write FTmpTime;
      property TmpFPS : Integer read FTmpFPS write FTmpFPS;
      property FrameTime : Double read FFrameTime write FFrameTime;
      //Abgeändert, damit in die var geschrieben werden kann...
      property TimeGap: double read FTimeGap write FTimeGap;
    public
      {Creates an instance of TAdVideoTexture.}
      constructor Create(AParent: TAd2dApplication);

      {Starts to play the video.}
      procedure Play;virtual;
      {Pauses video playback.}
      procedure Pause;virtual;
      {Stops video playback (resets the data source, clears all buffers)}
      procedure Stop;virtual;
      {Destroys all created video playback objects.}
      procedure Close;virtual;
      {Moves the timer of TAdVideoTexture on, so that playback continues.
       @param(ATimeGap specifies the time that has been passed since the
         last call of ATimeGap in seconds)}
      procedure Move(ATimeGap:double);virtual;

      {Texture that can be accessed when you want to draw the film.}
      property Texture;
      {Time information about the current displayed frame.
       @seealso(TAdVideoPosition)}
      property Time;
      {Information about the current video frame.
       @seealso(TAdVideoInformation)}
      property Info;
      {Current state of the player.}
      property State: TAdVideoPlayerState read FState;
      {The FPS the video is currently played with.}
      property CurrentFPS:integer read FFPS write FFPS;  //Abgeändert, damit in die var geschrieben werden kann...
      {Set this property if you want the video to loop.}
      property Loop: boolean read FLoop write FLoop;
      {Use this property to vary playback speed. Default is 1. For example, 0.5
       would mean that the video is played with the half speed.}
      property Speed: double read FSpeed write SetSpeed;

      {Event that is triggered when playback starts.}
      property OnPlay:TAdNotifyEvent read FOnPlay write FOnPlay;
      {Event that is triggered when playback stops.}
      property OnStop:TAdNotifyEvent read FOnStop write FOnStop;
      {Event that is triggered when video playback is pasued.}
      property OnPause:TAdNotifyEvent read FOnPause write FOnPause;
      {Event that is triggered, when a new frame is displayed. This
       event can e.g. be used to synchronize the video to an audio buffer.}
      property OnNextFrame:TAdNotifyEvent read FOnNextFrame write FOnNextFrame;
      {Event that is triggered when the decoder is closed.}
      property OnClose:TAdNotifyEvent read FOnClose write FOnClose;
  end;
...

Neue Unit (Eigene Klasse):

Delphi-Quellcode:

uses ... AdVideo, AdVideoTexture;
...
TNewVideo = class(TAdVideoPlayer)
  private
    //FWidth, FHeight : Integer;
  public
   {procedure SetPropertis(AWidth, AHeight : Integer);
    procedure DoDraw(AdDraw : TAdDraw; TimeGap : Double); Unintressant hier, hab ich aber in meinem Projekt gebraucht }
    procedure Move(ATimeGap:double); override;
    
end;
...
procedure TNewVideo.Move(ATimeGap: Double);
begin
  if GetOpened and (State = vpPlaying) then
  begin
    TmpTime := TmpTime + ATimeGap;
    TimeGap := TimeGap + ATimeGap;
    if (TimeGap > FrameTime) then
      if NextFrame then
      begin
        TmpFPS := TmpFPS + 1;
        TimeGap := TimeGap - FrameTime;
        DoNextFrame;
      end;
    if Pos=Size then
    begin
      if Loop then
         Seek(0) Else
         Stop;
    end;
    if TmpTime > 1 then
    begin
      CurrentFPS := TmpFPS;
      TmpFPS := 0;
      TmpTime := 0;
    end;
  end;
end;

Entschuldigung für den Doppelpost, aber der letzte ist ja schon ne ewigkeit her
Getested mit AdMPEG2Video

P.S.: Meine Pixelkollision funktioniert inzwischen recht gut

[Leanahtan]

Da wir für unser Projekt schon lange überlegen, wie man von DelphiX wegkommen kann, hab ich mich jetzt mal etwas mit Andorra 2D beschäftigt. Soweit ich das sehe, wäre es für unser Projekt ganz gut geeignet. Wir benutzen lediglich zum Rendern einer Kugel mit Erd-Textur 3D - der Rest ist ausschließlich 2D. Die Dokumentation ist gut, man kann problemlos von DirectX zu OpenGl wechseln etc.

Ein Punkt macht mich aber etwas vorsichtig. Soweit ich das sehe, ist an dem Projekt in den letzten Jahren nicht weiterentwickelt worden. Ist der jetzige Stand mehr oder weniger final, oder sind Weiterentwicklungen geplant?

[igel457]

Zitat von Leanahtan:

Wir benutzen lediglich zum Rendern einer Kugel mit Erd-Textur 3D - der Rest ist ausschließlich 2D. Die Dokumentation ist gut, man kann problemlos von DirectX zu OpenGl wechseln etc.

Das ist kein Problem, schau dir dazu die 3D-Demo an.

Zitat:

Ist der jetzige Stand mehr oder weniger final, oder sind Weiterentwicklungen geplant?

Ja, momentan plane ich nicht daran weiter zu entwickeln, über Patches freue ich mich natürlich immer.