Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[pierredrks]

Ich habe Probleme wenn ich die Beispiele compilieren will. Lazarus jammert immer über die AdPNG.pas. Liegt das an Linux oder an mir?

[Die Muhkuh]

Was jammert es denn?

[pierredrks]

/AdPNG.pas(23,63) Fatal: Can't find unit PngImage used by AdPNG

Der PerformanceCounter aus Tutorial: die erste Grafik führt ebenfalls zu einer Fehlermeldung (in etwa TPerfCounter ist nicht bekannt).

[igel457]

Hallo,

AdPNG verwendet die unit PNGImage, die Delphi/Windows Abhängigkeiten hat. Um trotzdem PNGs laden zu können, empfiehlt sich der Einsatz von "AdFreeImage" oder "AdDevIL", die einsprechende Cross-Plattform Bibliotheken verwenden.

Der PerformanceCounter heißt TAdPerformanceCounter und befindet sich in der Unit "AdPerformanceCounter" - mein Fehler.

Wenn es noch fragen gibt, meldet euch einfach,
Andreas

[Mirco G.]

Hallo Allerseits!
Zuerst einmal ein riesen Lob an das Forum und seine tollen Admins nebst Moderatoren.
Nicht zu vergessen all die User
Ich bin nun seit gut einem halbem Jahr angemeldet und musste dank der vielen Threads und der Suche noch nie eine eigene Frage stellen, doch jetzt ist es soweit.

Obwohl Newton selbst kein Teil von Andorra ist stelle ich die Frage hier da ich denke, dass sie hier am besten hinein passt.

Ich sitze (manchmal steh' ich auch ) seit geraumer Zeit an einem Weltraum-'Spiel' in dem man das Geschehen von oben betrachtet. Nun möchte ich Newton dazu verwenden meine Schiffe Physikalisch korrekt durch den Raum flitzen zu lassen
Bloß fallen sie immer nach unten. Die vertikale Anziehungskraft scheint eine Standarteinstellung zu sein.
[Frage]
Kann man Umgebungseigenschaften für Newton Festlegen?
In meinem Fall wäre das ja dann 'kein Ortsfaktor'.

Eigentlich eine ziemlich banale Frage, aber weil es so wenig Beispielprogramme und Tutorials zu Newton in Verbindung mit Andorra gibt, bin ich nirgens auf eine Antwort gestoßen.

Vielen Dank. So wie ich das rege Treiben hier kenne werde ich Bald eine Atwort haben

PS: Kann gut sein, dass die Frage bereits gestellt wurde. Dann habe ich sie beim (gründlichen ) Überfliegen dieses schon so riesigen Threads übersehen und bitte dieses zweite Mal zu entschuldigen...

[OT]Ich sehe gerade: Ich bin die #555... überall eins mehr und dieser Post wäre böse^^

[3_of_8]

Also in Newton selbst ist sowas nicht standardmäßig drin. Wenn man da Schwerkraft will, muss man die selbst hinzuaddieren.

Hast du irgendwo in deinem momentanen Code sowas wie einen Aufruf von NewtonBodyAddForce?

(Eigentlich müsstest du - glaube ich - für diese Frage einen eigenen Thread erstellen)

[Mirco G.]

Verzeihung, hier der neue Thread http://www.delphipraxis.net/internal...=863395#863395

[STS301]

hi ich habe es mit Lazarus unter XP probiert und er sagt mir ohne, dass ich eine Unit einbinde,
:Andorracompile_zu.pas(33,10) Error: Identifier not found "AdDraw"
Andorracompile_zu.pas(33,20) Error: Identifier not found "TAdDraw"
Andorracompile_zu.pas(33,27) Fatal: Syntax error, ";" expected but "(" found

was mache ich falsch

Code:

Delphi-Quellcode:

{$MODE DELPHI}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
  ButtonPanel;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := 'C:\Documents and Settings\Blockbuster\Desktop\QuickDesktop\Andorra\ad2d_35_ALL\ad2d_35\bin\AndorraOGLLaz.dll';
  Application.OnIdle := @Idle;
  AdDraw.Initialize;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AdDraw.Free;
end;

procedure TForm1.Idle(Sender: TObject; var Done:boolean);
begin
  AdDraw.ClearSurface(0);
  AdDraw.BeginScene;
  with AdDraw.Canvas do
  begin
    Font := AdDraw.Fonts.GenerateFont('Arial', 24, []);
    TextOut(0,0,'Andorra 2D...');
    Font := AdDraw.Fonts.GenerateFont('Arial', 10, []);
    TextOut(0,30,'...works with Lazarus too');
  end;
  AdDraw.EndScene;
  AdDraw.Flip;
end;

[igel457]

Zitat von STS301:

ohne, dass ich eine Unit einbinde

Genau daran liegt es.

[STS301]

wenn ich AdDraws, AdClasses, AdTypes einbinde kommt das:
Andorracompile_zu.pas(36,30) Error: Identifier not found "Idle"
Andorracompile_zu.pas(45,22) Error: method identifier expected
Andorracompile_zu.pas(47,9) Error: Identifier not found "AdDraw"
Andorracompile_zu.pas(47,22) Error: Illegal expression
Andorracompile_zu.pas(47,22) Fatal: Syntax error, ";" expected but "(" found

bei den Canvas habe ich versucht einen Strich von links oben nach rechts unten laufen zu lassen, dann ist aber das Passiert (siehe Anhang)
startposition war (0,0) und mit -10,0 hat sich nichts getan