Easy3DGL - Eine Bibliothek für OpenGL

[rollstuhlfahrer]

Und eine Doku, wie man was dreht und was sich in Abhängigkeit mit dreht.

Kleines Beispiel: Ich habe ein Spielfeld, welches dem User präsentiert wird. Darauf befindet sich momentan 1 Spielstein, den man mit den Pfeiltasten bewegen kann. Ist das Spielfeld nicht gedreht geht alles. Sobald das Spielfeld gedreht wird, fängt das System an zu spinnen, heißt der Spielstein bewegt sich nicht mit einem Winkel von 0° zum Spielfeld.

Noch ein Punkt zur Liste:

Dein TGA-Loader und mein TGA-Bild aus GIMP wollen nicht zusammen kommen. Eventuell solltest du ne Exception mit schönen Fehlertext werfen, wenn ein Fehler im Bilder-Loader auftritt.

PS: Und in function TGLBMP.LoadImage(filename : String): Boolean; kann man auch etwas kürzen:

Delphi-Quellcode:

const
  ImageBMP = 0;
  ImageJPG = 1;
  ImageTGA = 2;

  case (AnsiIndexText(ExtractFileExt(filename), ['.bmp', '.jpg', '.png']) of
    ImageBMP: Result := LoadBMP(filename);
    ImageJPG: Result := LoadJPG(filename);
    ImageTGA: Result := LoadTGA(filename);
  end;

PPS:
a) Deine Bibliothek lädt übrgens die Texturen spiegelverkehrt auf die Körper. Workaround (dirty) .Rotate(180, 0, 0) .

b) Dein Code:

Delphi-Quellcode:

  AppEvents := TApplicationEvents.Create(AForm);
  AppEvents.OnIdle := Kamera.Render;

Mein Code: Application.OnIdle := Kamera.Render; (Die Unit Forms ist ja eh in der USES drin.)

Bernhard

[mleyen]

Bei mir fliegt die Exception bei: wglSwapIntervalEXT(1); Und FreeGL sollte auch nicht öfters aufgerufen werden.

[rollstuhlfahrer]

Zitat von mleyen:

Bei mir fliegt die Exception bei: wglSwapIntervalEXT(1); Und FreeGL sollte auch nicht öfters aufgerufen werden.

Bei mir auch.

Bernhard

ADD: Gibt es eigentlich eine Version, die aktueller ist, als die momentan verfügbare zum Download?

[Edlmann]

Ich hab grade eine neue Version hochgeladen, wo ich beim Starten eines Programms die Fehlerbehandlung verbessert habe und eine andere Prozedur zum V-Sync aktivieren benutze, ich weiß aber nicht ob das den Fehler fixxt...

Zu deiner Liste rollstuhlfahrer:

a) noch nicht erledigt, mach ich aber noch
b) geht leider nicht, da bei TWinControl die Events OnMouseDown etc protected sind
c) den Texturloader habe ich nicht selbst geschrieben, werd mich mal umschauen ob es einen Loader dafür gibt
d) Hinzugefügt
e) gefixxt
f) War in beiden Versionen ein Fehler und ist gefixxt. Das mit der virtuellen Methode hatte ich auch versucht, allerdings wurde die Prozedur dann trotz override nicht korrekt aufgerufen...
g) Den Fehler finde ich einfach nicht. Die AV kommt erst bei CItem.Free, und ich frage ja vorher extra ab ob da auch was ist was man befreien kann...ich versteh es bisher absolut nicht.
h) Ist verbessert, kommt jetzt eine Fehlermeldung

Zweiter Post:

Es kann sein dass der das TGA nicht annimmt, weil es keine Farbtiefe von 32-bit hat. Der Texturloader den ich im Moment benutze unterstützt anscheinend aber nur 32-bittige-tga's
a) liegt auch am Loader, schau ich mir mal an
b) Hab ich verändert.

@mleyen: Habs dann auch relativ schnell nach dem ich den Post oben geschrieben habe gesehen ^^ lag dran dass das Beispiel noch mit einer älteren Version geschrieben wurde, wo das nicht automatisch erledigt wurde. Ist gefixxt.

Vielen Dank fürs Feedback

[Satty67]

Zitat von Edlmann:

g) Den Fehler finde ich einfach nicht.

Kann sein dass ich mich falsch erinnere...

Aber schau Dir mal die Schleife an... meine da war Schleifenvariable x und Zugriff über y (oder umgekehrt)

[Edlmann]

Zitat von Satty67:

Zitat von Edlmann:

g) Den Fehler finde ich einfach nicht.

Kann sein dass ich mich falsch erinnere...

Aber schau Dir mal die Schleife an... meine da war Schleifenvariable x und Zugriff über y (oder umgekehrt)

Ne, Variable ist beidesmal x...

[Satty67]

Sehe ich anders...

Delphi-Quellcode:

// FreeGL
  for y := 0 to TransparentList.Count - 1 do
  begin     
    if Assigned(SolidList[x]) then
    begin
    CItem := TransparentList[x];
    CItem.Free;
    end;
  end;

Das auf SolidList geprüft wird statt TransparentList[], war zudem wohl der C&P Fehler