Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Andorra 2D

Was ist Andorra 2D?
Nein, Andorra 2D hat nichts mit dem kleinen europäischen Staat "Andorra" zu tun. Wie das "2D" im Namen auch schon erraten lässt, handelt es sich um eine 2D Engine. Diese wird für Delphi und Lazarus (Freepascal) entwickelt und zwar um das bekannte und oft verwendete DelphiX abzulösen (was an DelphiX nicht so toll ist lest ihr am besten hier). Andorra 2D hat einen ähnlichen Aufbau wie DelphiX - das Spriteengineinterface ist sogar zu 99% das Gleiche.

Features
Was ist nun das Besondere an Andorra 2D?
- Hardwarebeschleunigung
- Verwendung von Plugins zur Grafikdarstellung wodurch OpenGL, DirectX oder sogar die GDI mit Andorra 2D verwendet werden können
- Integrierte und beschleunigte Spriteengine
- Integrierte Zoomfunktion in der Spriteengine
- Modularer aufbau von den Loadern für Texturformate, es können einfach eigene Hinzugefügt werden
- orthogonale und perspektivische Projektionsmatrix
- Integration von 3D-Modellen (die Loader sind noch nicht geschrieben)
- Schnelle Partikelsysteme
- Ausnutzung von Multi-Core CPUs
- Lichter
- Shadersupport (Cg und HLSL)
- Einfaches Surface-System
- Einfaches Scenenmanagement
- Videowiedergabe mit MPEG2 Support
- Verwendung von mehreren "Windowframeworks", wodurch Unabhängikeit von der VCL/LCL erreicht wird.
- Clipping/Splitscreens
- 2D Physikengine mit Newton
- Integriertes "Hardware Canvas"
- Mächtiges, voll Skinbares GUI-System
- Nicht überladen - man wird nicht zum benutzen bestimmter Features gezwungen (wie zum Beispiel Datenpackages, wie dies in anderen Engines der Fall ist)
- Opensource, entweder unter der CPL oder der GPL verwendbar
- Mächtiges Bundle von Editoren und Tools
- Deutsche Tutorials
- Viele Demos
- Und natürlich die Banalitäten, die man sich von einer 2D-Engine so wünscht: Rotation, Additives Zeichnen, Skalierung, BitBlt, Texturzugriffe et cetera

Da die Plugins nur um die Basisfunktionalitäten der Grafikschnittstellen Wrapen, könnte man die Plugins theoretisch für eine Hybrid 3D-Engine verwenden

Mehr Infos...
...sowie Tutorials und weitere Links...
gibt es auf der Website: http://andorra.sourceforge.net/
Dort findet ihr auch Demos, Tutorials und Screenshots...

Wenn ihr Fragen, Kritik oder Anregungen habt, dann könnt ihr diese entweder hier oder bei SourceForge posten.

Downloads:
Momentan gibt es die Version 0.4.5. Einen Überblick über alle Downloads gibt es hier.

Das Package mit allen Demos, Prerequisiten und Binaries gibt es in der neusten Version hier:
Andorra 2D All-In-One-Package 23MB

Tutorials:
Die Tutorials gibt es nicht nur auf der Website, sondern auch in der DP. Allerding möchte ich betonen, dass die Tutorials auf meiner Website aktueller sind. Ich kann meine eigenen Tutorials hier nämlich nicht mehr bearbeiten (@Daniel: dringend umändern!). Hier ist eine kleine Liste, wobei die Sterne die Schwierigkeit darstellen:
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngTutorial 1 - Installieren und Initialisieren
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngAndorra 2D über CVS aktualisieren
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngTutorial 2 - Das erste Bild
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngTutorial 3 - Die Spriteengine
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngPartikelsysteme
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngDer Canvas
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngDas GUI-System
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pnghttp://andorra.sourceforge.net/img/star2.pngAndorra 2D und Lazarus
http://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star.pnghttp://andorra.sourceforge.net/img/star2.pngÜber Windowframeworks

FAQ:
Eine Sammlung oft gefragter Fragen findet sich hier:
http://andorra.sourceforge.net/index.php?section=FAQ

Wichtig:
Falls ihr ein Programm mit Andorra 2D geschrieben habt/daran schreibt, dann wäre es schön wenn ihr mir Bescheid sagen könnt. Dann bekomme ich nämlich mal einen Überblick, wer die Bibliothek nun überhaupt verwendet und außerdem kann ich auf meiner Website Screenshots von eurem Projekt einfügen und auch auf eine eventuelle Website eures Projektes verlinken.

Über diesen Thread:
Bitte schreibt hier nur Wünsche oder Anregungen herein, die direkt mit der Engine zu tun haben. Wenn ihr eine Frage über die Anwendung in eurer Anwendung habt, dann macht am besten einen eigenen Thread im Multimedia-Teil auf, bei dem ihr "[Andorra 2D]" vor den Titel schreibt.

Danke für euer Interesse,
Andreas

[Codewalker]

Ich habe eben die Alpha 0.2 geladen und entpackt. Gibt es kein TPictureCollectionItem mehr? Ich habe TAdImage gefunden und die Deklarationen ersetzt, aber seitdem wird bei mir nichts mehr gezeichnet. Was muss ich tun *HELP*

[nonex]

seit 0.20 alpha gibt es keien TPicturecollection und kein TPicturecollectionitem mehr

du musst das nun erstzen TPicturecollection = TADimagelist
und TPichturecollectionitem = TADImage

zusätzlich brauchste natürlich noch die neueste version der dll, also entweder die dll aus dem bin ordner benutzen oder selbstcompilen.

bei mir klappts wunderbar

btw @igel lad doch bitte mal den opengl dll code auf CVS hoch würd mein proggie gern mal unter opengl laufen lassen

gruß Tobi

[xZise]

Zitat von Codewalker:

So, wie versprochen ein Screenshot. Ist alles noch sehr rudimentar, vor allen Dingen weil die Grafiken eine Weile brauchen. Die sollen ja eine Perspektive haben (für einen Berg z.B.), aber trotzdem in die regelmäßige Form passen, müssen also entsprechend verzerrt sein. Deswegen sieht man auf den Bildern noch viele gleiche Tiles. Außerdem fehlt die komplette GUI, die ist im Moment mit der VCL gemacht, aber das soll keine Dauerlösung werden. Ich hoffe, dass ich sie bald durch die Andorra-GUI ersetzen kann.

Grüße und ..... mach weiter so Igel, die Engine ist geil

Codewalker

Das erinnert mich fast ein bisschen an Die Siedler von Catan ^^

[igel457]

Die OGL Dll kommt sofort (läuft aber noch nicht unter Linux und kann weder Indexbuffer noch Lichter). Du benötigst den dglOpenGL Header von www.delphigl.com zum Kompilieren.

Viel Spaß mit der DLL (ich habe mit Hilfe meines Bruders ca. 5h dafür gebraucht)...
http://andorra.cvs.sourceforge.net/a...rc/dll/opengl/

Igel457

//EDIT: Gerade mal noch einen "kleinen" Fehler behoben

[Codewalker]

Hallo zusammen.

Habe jetzt die DLLs in meinem Projekt auch gegen die neuen der Version 0.2 getauscht und TAdImage überall eingebunden, und seitdem klappt das meiste wieder. Aber beim Scrolling mit der Spriteengine habe ich jetzt Probleme. Überall dort, wo nichts ist (also keine Sprites) dort wird alles verzerrt gezeichnet. Habe eigentlich nichts geändert, also was ist in 0.2 anders?

Mein Rendercode:

Delphi-Quellcode:

procedure TForm1.Idle(Sender: TObject; var Done: boolean);
begin
  if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann...
  begin
    AdPerCounter.Calculate;
    Label3.Caption := 'FPS: ' + IntToStr(AdPercounter.FPS) +
      '  -  TimeGap: ' + IntToStr(AdPercounter.TimeGap);
    AdDraw.BeginScene;

    AdDraw.ClearSurface(clBlack); //Füllt die Oberfläche mit schwarzer Farbe
    Spriteengine.Dead;

    if sdUp in Scrolling then
      Spriteengine.Y := Spriteengine.Y + Settings.ScrollSpeed *
        (AdPercounter.TimeGap / 1000);
    if sdDown in Scrolling then
      Spriteengine.Y := Spriteengine.Y - Settings.ScrollSpeed *
        (AdPercounter.TimeGap / 1000);
    if sdLeft in Scrolling then
      Spriteengine.X := Spriteengine.X + Settings.ScrollSpeed *
        (AdPercounter.TimeGap / 1000);
    if sdRight in Scrolling then
      Spriteengine.X := Spriteengine.X - Settings.ScrollSpeed *
        (AdPercounter.TimeGap / 1000);

    Spriteengine.X := Spriteengine.X + DiffX * (AdPercounter.TimeGap / 1000);
    Spriteengine.Y := Spriteengine.Y + DiffY * (AdPercounter.TimeGap / 1000);

    Spriteengine.Move(AdPercounter.TimeGap);
    Spriteengine.Draw;

    //    MouseParticles.CreateParticles(1, TAdParticle, Container.ScreenToClient(
    //      Mouse.CursorPos).X, Container.ScreenToClient(Mouse.CursorPos).Y);
    //    MouseParticles.Move(AdPerCounter.TimeGap / 1000);
    //    MouseParticles.Draw(0, 0);
    AdDraw.EndScene;

    AdDraw.Flip; //Präsentiert die gezeichneten Dinge auf dem Bildschirm.
  end;
  Done := False;
  // Diese Zeile nicht vergessen, sonst wird der Code nur sporadisch ausgeführt.end;
end;

Und anbei noch 2 Screenshots.

Grüße

Codewalker

[framik]

Zitat von nonex:

seit 0.20 alpha gibt es keien TPicturecollection und kein TPicturecollectionitem mehr

du musst das nun erstzen TPicturecollection = TADimagelist
und TPichturecollectionitem = TADImage

EDIT: Vergesst was hier stand. codewalker hat recht. ich bin zu blöd zum lesen

[Codewalker]

Ähm, nein ich denke das war schon richtig. Das eine Collection eine Liste ist macht ja auch Sinn. Hat ja auch soweit funktioniert

[igel457]

Ich muss mal auf die Suche nach dem Fehler gehen...

Mal noch eine Frage: Wie sieht dein Code für das Skalieren des Fensters aus?
EDIT: Und rufst du irgendwo manuell Setup2DScene auf? Ich kann mir den Fehler nämlich irgendwie nicht so richtig erklären - das sieht so aus, als ob ein Teil des Hintergrunds nicht "Gecleart" wird - was zur folge hat, dass diese Schlieren entstehen. Aber ich fülle überall den gesammten Hintergrund...

[Codewalker]

Ich habe mal alle Stellen zusammengesucht.

Die Deklaration der neuen Engine:

Delphi-Quellcode:

  TZoomSpriteengine = class(TSpriteEngine)
  private
    FZoom: Integer;
    procedure SetZoom(const Value: Integer);
  public
    property Zoom: Integer Read FZoom Write SetZoom;
  end;

{............}

procedure TZoomSpriteengine.SetZoom(const Value: Integer);
var
  r: TRect;
  w, h: integer;
begin
  FZoom := Value;
  r := FSurfaceRect;
  w := r.Right - r.Left;
  h := r.Bottom - r.Top;
  FSurfaceRect := Rect(r.Left - w * Zoom, r.Top - h * Zoom,
    r.Right + w * Zoom, r.Bottom + h * Zoom);
end;

Und jetzt die Zoomfunktionen im Hauptprogramm:

Delphi-Quellcode:

procedure TForm1.ZoomIn(Sender: TObject);
begin
  if Settings.Zoom = 1 then // Only Setup Zoom if change is necessary
    Exit;
  Settings.Zoom := 1; // Change Zoom to Close-View
  SpriteEngine.Zoom := Settings.Zoom; // Apply View to Engine
  AdDraw.AdAppl.Setup2DScene(DrawBox.Width * Settings.Zoom, // Recalibrate Viewports
    DrawBox.Height * Settings.Zoom);
  Spriteengine.X := Spriteengine.X - DrawBox.Width / 2; // Make Camera focus old target point
  Spriteengine.Y := Spriteengine.Y - DrawBox.Height / 2;
end;

DrawBox ist eine PaintBox, die ich als Positionshilfe nutze. Settings ist nur eine Hilfsklasse.

[igel457]

Codewalkers Problem hat sich jetzt auch gelöst:
Das AdDraw wurde in FormShow generiert. Anscheinend gibt es da Probleme. Indem das AdDraw jedoch in der OnResize Methode des Formulars finalisiert wird und dann wieder initialisiert wird, scheint dieses Problem jedoch aufgehoben.