DGL • Thema anzeigen - 2D - Problem mit Animationen

2D - Problem mit Animationen

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seth

Betreff des Beitrags: 2D - Problem mit Animationen

Verfasst: Mo Jun 26, 2006 17:24

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

Hi, ich versuche in meiner Engine gerade eine Klasse für Animationen einzubauen, wenn ich diese jedoch jetzt benutze, sehe ich einen schwarzen klotz (da sollte eigentlich die animation drauf) und der rest ist auf einmal weiß, erklären kann ich mir das allerdings nicht, ich weiß auch nicht, ob das so funktioniert, hier einmal relevanter code:

Code:

 
//Standardeigenschaften
  TGraphicObject = class
    constructor Create;
  public
    position,
    size: TVector2D;
    z: integer;
  end;
 
//Klasse für EINE Animation
  TAnimation = class
    constructor Create;
    destructor Destroy; override;
    procedure Free;
  public
    Position,
    coordx,
    coordy: integer;
    Texture: TglBitmap2D;
    AnimWidth,
    AnimHeight: integer;
    Duration: integer;  // in ms
    procedure LoadFromFile(pFilename: string);
    procedure Reset;
  end;
 
  TAnimObj = class(TGraphicObject)
 
//Array aller Animationen des Objektes
    Animations: array of TAnimation;
//Liste mit den Namen der Animationen
    AnimationName: THashedStringList;
    constructor Create;
    destructor Destroy; override;
    procedure Free;
  private
//alpha beta gamma, das übliche ^^
    Fangle: single;
    Fvisible: boolean;
    Fcolor: TColor;
    Fusealpha: boolean;
    Falpha: integer;
    Falphatest: boolean;
    Falphatolerance: single;
//prozeduren zum setzen von eigenschaften
    procedure SetAngle(const value: single);
    procedure SetAlpha(const value: integer);
    procedure SetAlphaTolerance(const value: single);
  public
//  Unwichtig ^^
    RotationOffset: TVector2d;
 
//Eine Animation hinzufügen
    procedure AddAnimation(pFilename, pAnimationName: string);
 
//Liefert Pointer auf Array Element
    function GetAnimation(pAnimationName: string): TAnimation;
 
//Das nächste Bild ausgeben
    procedure Play(pEngine: TEngine; pAnimationName: string; ploop: boolean);
 
//Eigenschaften
    property angle: single read Fangle write SetAngle;
    property visible: boolean read Fvisible write Fvisible;
    property color: TColor read Fcolor write FColor;
    property usealpha: boolean read Fusealpha write Fusealpha;
    property alpha: integer read Falpha write SetAlpha;
    property alphatest: boolean read Falphatest write Falphatest;
    property alphatolerance: single read Falphatolerance write SetAlphaTolerance;
  end;
 

Code:

 
constructor TAnimation.Create;
begin
  inherited Create;
  Texture := TglBitmap2d.Create;
  coordx := 0;
  coordy := 0;
  position := 0;
end;
 
destructor TAnimation.Destroy;
begin
  Texture.Free;
  inherited Destroy;
end;
 
procedure TAnimation.Reset;
begin
  coordx := 0;
  coordy := 0;
  position := 0;
end;
 
procedure TAnimation.LoadFromFile(pFilename: string);
begin
  Texture.LoadFromFile(pFilename);
  Texture.GenTexture;
end;
 
constructor TAnimObj.Create;
begin
  inherited Create;
  setlength(Animations, 0);
  AnimationName := THashedStringList.Create;
  Fangle := 0;
  Fvisible := true;
  FColor := clwhite;
  Fusealpha := false;
  Falpha := 0;
  Falphatest := false;
  Falphatolerance := 0.1;
  RotationOffset.x := 0;
  RotationOffset.y := 0;
end;
 
destructor TAnimObj.Destroy;
var
  i: integer;
begin
  for i := low(Animations) to high(Animations) do
    Animations[i].Free;
  AnimationName.Free;
  inherited Destroy;
end;
 
procedure TAnimObj.AddAnimation(pFilename, pAnimationName: string);
var
  aindex: integer;
begin
  setlength(Animations, length(Animations) + 1);
  aindex := high(animations);
  Animations[aindex] := TAnimation.Create;
  Animations[aindex].LoadFromFile(pFilename);
  AnimationName.Add(pAnimationName);
end;
 
function TAnimObj.GetAnimation(pAnimationName: string): TAnimation;
begin
  result := Animations[AnimationName.IndexOf(pAnimationname)];
end;
 
//zeichnen
procedure TAnimObj.Play(pEngine: TEngine; pAnimationName: string; ploop: boolean);
var
  aIndex: integer;
begin
 
// Sichtbar ? nein - dann weg damit
  if not Fvisible then
    exit;
 
//Falls Alpha vorhanden, das ganze in die alphaliste der engine packen, die übernimmt das rendern <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->
  if Fusealpha then
  begin
    setlength(pEngine.Objects, length(pEngine.Objects) + 1);
    pEngine.Objects[high(pEngine.Objects)].aList := glGenLists(1);
    pEngine.Objects[high(pEngine.Objects)].z := z;
    glNewList(pEngine.Objects[high(pEngine.Objects)].aList, GL_COMPILE);
  end;
 
//Matrix auf den Matrix stack pushen
  glpushmatrix;
 
//Auf die Objekt position translaten
  glTranslatef(position.x * (pEngine.Form.clientwidth / pEngine.width), position.y * (pEngine.Form.clientheight / pEngine.height), 0);
 
//Drehen
  glRotatef(Fangle, 0, 0, 1);
 
//Eventueller rotationspunkt
  glTranslatef(-rotationoffset.x, -rotationoffset.x, 0);
 
//Index der gewählten Animation
  aIndex := AnimationName.IndexOf(pAnimationName);
 
//Texture der Animation binden
  Animations[aIndex].Texture.Bind;
 
//Blending für Alpha
  if Fusealpha then
  begin
    RGBAf(Fcolor, Falpha);
    glBlendFunc(GL_SRC_ALPHA, GL_ONE);
    glEnable(GL_BLEND);
  end else
     RGBf(Fcolor);  //ansonsten nur farbe (standard weiß)
 
//für alphatest
  if Falphatest then
  begin
    glEnable(GL_ALPHA_TEST);
    glAlphaFunc(GL_GREATER, Falphatolerance);
  end;
 
//zeichnen - hoffe das ist so richtig ^^
  glBegin(GL_QUADS);
    with Animations[aIndex] do
    begin
      glTexCoord2f(coordx * (1 / (texture.Width / Animwidth)),coordy * (1 / (texture.Height / Animheight))); glVertex3f(-(size.x * (pEngine.Form.clientwidth / pEngine.width))/2, -(size.y * (pEngine.Form.clientheight / pEngine.height))/2, z - maxdepth + 2);
      glTexCoord2f(         (1 / (texture.Width / Animwidth)),coordy * (1 / (texture.Height / Animheight))); glVertex3f( (size.x * (pEngine.Form.clientwidth / pEngine.width))/2, -(size.y * (pEngine.Form.clientheight / pEngine.height))/2, z - maxdepth + 2);
      glTexCoord2f(         (1 / (texture.Width / Animwidth)),(1 / (texture.Height / Animheight))); glVertex3f( (size.x * (pEngine.Form.clientwidth / pEngine.width))/2,  (size.y * (pEngine.Form.clientheight / pEngine.height))/2, z - maxdepth + 2);
      glTexCoord2f(coordx * (1 / (texture.Width / Animwidth)),(1 / (texture.Height / Animheight))); glVertex3f(-(size.x * (pEngine.Form.clientwidth / pEngine.width))/2,  (size.y * (pEngine.Form.clientheight / pEngine.height))/2, z - maxdepth + 2);
    end;
  glEnd;
 
//Texture Unbinden
  Animations[aIndex].Texture.UnBind;
 
//Blending wieder deaktivieren, falls es benötigt wurde
  if Fusealpha then
    glDisable(GL_BLEND);
 
//das gleiche bei dem alpha test
  if Falphatest then
    glDisable(GL_ALPHA_TEST);
    
//Matrix wieder zurücktransformieren
  glpopmatrix;
 
//List schließen (falls nötig)
  if Fusealpha then
  begin
    glEndList;
 
//    pEngine.sorted := false;  //altbacken
  end;
 
//Animation - hier auch unsicherheiten ^^ aber daran liegts wohl nicht
  with Animations[aindex] do
  begin
    inc(position);
    if (position >= ((Duration) / (AnimWidth * Animheight))) then
    begin
      position := 0;
      inc(coordx);
      if coordx > (Texture.Width / Animwidth) then
      begin
        coordx := 0;
        inc(coordy);
      end;
      if (coordy > (Texture.Height / Animheight)) and ploop then
      begin
        coordx := 0;
        coordy := 0;
      end;
    end;
  end;
end;
 

hoffe mir kann einer helfen

vielen dank schonmal, mfg

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mo Jun 26, 2006 18:43

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

wenn ich das unbind weglasse, oder danach glEnable(GL_TEXTURE_2D) aufrufe, sehe ich wieder den hintergrund, aber der klotz ist schwarz Oo

Es liegt also doch an meiner berechung

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mi Jun 28, 2006 18:25

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

Seth hat geschrieben:

wenn ich das unbind weglasse, oder danach glEnable(GL_TEXTURE_2D) aufrufe, sehe ich wieder den hintergrund, aber der klotz ist schwarz Oo

Es liegt also doch an meiner berechung

EDIT: funzt jetzt, die texturbreiten habe ich garnet gebraucht

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.