Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Zitat:

Ja, ich habe das komplette Paket runtergeladen. Aber was Prerequisiten sind, geschweige denn wie man diese installiert befindet sich derzeit außerhalb meines aktuellen Erfahrungsschatzes. :Sad: Ich lerne aber gern dazu. :Smile:

Ok... Du findest in dem Kompletten Paket eine Datei namens "prereq.zip". Als nächstes Kopierst du die enthaltenen Ordner aus den Zip-Datein in der Zip-Datei in deinen "Lib" Ordner (so was wie C:\Programme\Borland\Delphi7\lib\). Dann fügst du diese Ordner in Delphi zum Bibliothekspfad hinzu, was über das Menü --> Tools --> Optionen funktioniert. Hoffe das war verständlich.

Deine Demo läuft jetzt auch bei mir und sieht echt gut aus. Wenn du möchtest füge ich es als Demo hinzu.

Igel457

[Gravitar]

Hi Igel,

danke für die Tipps mit den Prerequisiten. Probiere ich heute abend gleich mal aus.

Zitat:

Zitat von igel457

Deine Demo läuft jetzt auch bei mir und sieht echt gut aus. Wenn du möchtest füge ich es als Demo hinzu.

Oh, gern, wobei man das Ganze sicherlich viel besser programmieren kann.

Gruß, Andreas

[Gravitar]

Hi,

inzwischen habe ich die Newton-Engine eingebunden. Die ersten Sprites fallen auch schon zu Boden!

Jetzt aber 2 Fragen:

1. Wie bekomme ich jetzt die Gravitation ausgeschaltet (nicht Mass := 0, da ansonsten bei einer Kollision kaum Wirkung erzielt wird)

2. Wie gebe ich den Sprites eine Geschwindigkeit mit (habe schon irgendwas mit ntVector3f oder AdVector2 ausprobiert, funzt aber nicht)

Hier der dazugehörige Code:

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,AdDraws, AdClasses, AdSprites,AdPhysics, AdPng;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    AdDraw1:TAdDraw;                                    {Fläche auf der gemalt wird}
    AdPerCounter:TPerformanceCounter;                   {Misst die Zeit von Frame zu Frame}
    AdSpriteEngine: TSpriteEngine;
    AdImageList1:TPictureCollection;                    {Verwaltet die Zeichenobjekte}
    Slected:TSprite;
    dx,dy : integer;
    procedure Idle(Sender:TObject;var Done:boolean);    {Wird aufgerufen, wenn Form nichts zu tun hat}
    procedure UpdatePosition;                           {Verändert die Positionen der Zeichenobjekte inkl. Rotation}
    { Public-Deklarationen }
  end;

const
  AnzObj = 5;                                          {Wieviele Objekte sollen gezeichnet werden}

var
  Form1: TForm1;
  obj : array[1..AnzObj,1..6] of single;                {Verwaltet x,y-Koordinate, Richtung + Geschwindigkeit, Rotationswinkel}
  objw,objh : Integer;                                  {speichert die Höhe und Breite des geladenen Bitmaps}

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  randomize;                                            {Zufallgenerator neu mischen}
  AdDraw1 := TAdDraw.Create(self);                      {Zeichenobjekt wird erzeugt}
  AdDraw1.DllName := 'AndorraDX93D.dll';                {Verbindung zu DirectX.dll wird hergestellt}
  AdPerCounter := TPerformanceCounter.Create;           {Zeitmesser wird erzeugt}
  if AdDraw1.Initialize then                            {wenn das Initialisieren von ADraw1 geklappt hat}
  begin
    Application.OnIdle := Idle;                          {Wenn Form1 nicht zu tun hat, Idle aufrufen}
    AdImageList1 := TPictureCollection.Create(AdDraw1);  {Imagelist erzeugen}
    AdSpriteEngine := TSpriteEngine.Create(Nil);
    AdSpriteEngine.Surface := AdDraw1;

    AdImageList1.Add('Fels').Texture.LoadGraphicFromFile('Stern.png',true,clWhite);  {aus Stern.bmp laden, Maske=true, Maskenfarbe = clWhite}
    AdImageList1.Restore;                                 {Irgenwas internes}
    objw := AdImageList1.find('Fels').Width;              {Breite und Höhe in globalen Variablen speichern}
    objh := AdImageList1.find('Fels').Height;

    with TPhysicalApplication.Create(AdSpriteEngine) do
    begin
      SolverModel := smLinear;
    end;

    for i:= 1 to AnzObj do                              {erzeugen wir je Zeichenobjekt zufällige Position, Richtungs und Winkelinformationen}
    begin
      obj[i,1] := random(form1.Clientwidth);
      obj[i,2] := random(form1.ClientHeight);
      obj[i,3] := random(200)-random(200);
      obj[i,4] := random(200)-random(200);
      obj[i,5] := random(360);
      obj[i,6] := random(20)-random(20);
      With TPhysicalCylinderSprite.Create(AdSpriteEngine) do
      begin
        x := obj[i,1];
        y := obj[i,2];
        Image := AdImageList1.Find('Fels');
        Mass := 10;
        Angle := obj[i,5];
        NtVector3f(200,200,0);
        InitializeShape;
      end;
    end;
  end
  else
  begin
    ShowMessage('Error while initializing Andorra 2D. Try to use another display'+
                'mode or another video adapter.');
    halt;
  end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AdDraw1.Free;
  AdSpriteEngine.Free;
  AdPerCounter.Free;
  AdImageList1.Free;
end;

procedure TForm1.Idle(Sender: TObject; var Done: boolean);
begin
  if AdDraw1.CanDraw then
  begin
    AdPerCounter.Calculate;                                {wie lange ist seit dem letzten Aufruf vergangen?}
    Caption := 'FPS:'+inttostr(AdPerCounter.FPS);          {FPS in Titelzeile ausgeben}
    AdDraw1.ClearSurface(clBlack);                         {Zeichfläche mit Schwarz löschen}

    AdDraw1.BeginScene;
    AdSpriteEngine.Move(AdPerCounter.TimeGap / 1000);
    AdSpriteEngine.Draw;
    AdSpriteEngine.Dead;
    AdDraw1.EndScene;

    AdDraw1.Flip;                                           {gezeichnete Scene darstellen}
  end;
  Done := false;
end;

end.

Gruß, Andreas

[inherited]

Wenn ich recht informiert bin, arbeitet der Igel bereits an einer integrierten Newton-Engine,sodass dir viel Arbeit erspart bleibt ;)

[igel457]

Zitat:

Zitat von Gravitar

1. Wie bekomme ich jetzt die Gravitation ausgeschaltet (nicht Mass := 0, da ansonsten bei einer Kollision kaum Wirkung erzielt wird)
2. Wie gebe ich den Sprites eine Geschwindigkeit mit (habe schon irgendwas mit ntVector3f oder AdVector2 ausprobiert, funzt aber nicht)

Hallo,

die Newton Unit ist Momentan in einem sehr frühen Entwicklungsstadium, weshalb du die von dir oben genannten Punkte nicht ohne weiteres durchführen kannst (d.h. ohne meine Unit zu bearbeiten), was später aber ohne Probleme möglich sein wird. Momentan fokusiere ich meine "Kräfte" aber auf den Canvas und dann 3D oder die GUI. (Wobei ich die GUI praktisch schon, wenn auch für DelphiX, geschrieben habe.)

Da sich Nivosta Anfang der Woche (mal wieder) bei mir gemeldet hat, gibt es (hoffentlich) vorraussichtlich bis Ende des Monats auch das OpenGL Plugin und damit die volle Kompatibilität zu Lazarus/Kylix und Linux.

Zitat:

Zitat von inherited

Wenn ich recht informiert bin, arbeitet der Igel bereits an einer integrierten Newton-Engine,sodass dir viel Arbeit erspart bleibt ;)

Was meinst du mit integriert? Ist doch schon integriert :gruebel: ...

Heute komme ich, man sehe auf mein Alter, leider nicht mehr zu so viel... (Ich glaube ich spiele mal noch ein wenig Oblivion)

Danke für die Fragen,
Igel457

[igel457]

Hallo.
Ich habe mich mal dran gesezt und ein Tutorial zur Spriteengine geschrieben - siehe erster Beitrag.

Viel Spaß damit,
Igel457

[Florian H]

Ich habe den Schritt gewagt und mein Spiel DrawBall für Andorra2D umgeschrieben und was soll ich sagen? Es läuft prima, eine hervorragende Performance und prima Unterstützung von div. Grafikeffekten .. wirklich saubere Arbeit :)
Framerate ist, bei grafisch aufwändigen Leveln (viele kleine Einzelgrafiken) ca. 50-100x schneller (500-1000 statt ~10 FpS) ..

*lob & freu*

[framik]

Juhu, danke.
Da kann ich gleich mal prüfen ob ich bis jetzt alles richtig gemacht habe. :lol:

[Florian H]

Bisher siehts prima aus ^^
War ja auch der Grund wieso ich es damals noch nicht genutzt hab (vor 3-4 Monaten) .. da wars halt doch noch ein Stückweit mehr in der Entwicklung^^

Eine Frage noch: gibts irgendeine Möglichkeit, Text auf ner adDraw-Oberfläche auszugeben oder muss man sich das selber mittels Buchstaben-Grafiken zusammenbasteln?

[igel457]

@Florian H:
Schön, dass ich dich endlich zu Andorra 2D "konvertiert" habe und es dir gefällt.

Es gibt das TAdFont Objekt, mit dem du ganz einfach Text ausgeben kannst. Siehe auch hier: http://www.delphipraxis.net/internal...t=97168#682570

In Version 0.2 gibt es dann auch einen "Canvas", mit dem das noch viel einfacher geht.

Noch viel Spaß,
Igel457