DGL • Thema anzeigen - Graphikfehler

Graphikfehler - Nur bei mir?

Moderator: DGL-Team

Seite 1 von 1

[ 11 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

aniheX

Betreff des Beitrags: Graphikfehler - Nur bei mir?

Verfasst: So Apr 09, 2006 15:32

DGL Member

Registriert: Di Mär 21, 2006 20:03
Beiträge: 21
Programmiersprache: Delphi, C++

Hi,

ich beschäftige mich derzeit mit der OpenGL-Prorammierung. Leider ist in einem Test-Programm ein Graphikfehler (eigentlich 2).

Und zwar:
Wenn ich mich durch den Raum bewege, ist an einer bestimmten Stelle die hälfte schwarz. Se wird einfach nicht mehr angezeigt.
Das tritt aber nur dann auf, wenn ich Culling einschalte..

Der andere Graphikfehler ist, dass eine Textur falsch dargestellt wird. Sie ist rot - statt Blau.

Ich habe das Testprogramm auf anderen Rechnern probiert, da treten diese Fehler nicht auf. Liegt das an meiner Graphikkarte oder kann es am Quellcode liegen?

Danke im vorraus.
aniheX

// Edit:
Quellcode's

TForm1.Create

Code:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
  myDC:= GetDC(Handle);
  SetupPixelFormat;
  myRC:= wglCreateContext(myDC);
  wglMakeCurrent(myDC, myRC);
  glEnable(GL_DEPTH_TEST);
  glLoadIdentity;
  glenable(gl_texture_2d);
  Ini_Walls;
  Ini_textures;
  ShowCursor(False);
  AlreadyPainting := False;
  glEnable(GL_CULL_FACE);
  glFrontFace(GL_CCW);
  ChangeResolution(1024,768,32,60); // extrene Routine zum ändern der Auflösung
  Resize;
end;
 

TForm1.SetupPixelFormat

Code:

 
procedure TForm1.SetupPixelFormat;
var
  hHeap: THandle;
  nColors, i: Integer;
  lpPalette : PLogPalette;
  byRedMask, byGreenMask, byBlueMask: Byte;
  nPixelFormat: Integer;
  pfd: TPixelFormatDescriptor;
begin
  FillChar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize     := sizeof(pfd);               // Länge der pfd-Struktur
    nVersion  := 1;                         // Version
    dwFlags   := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
                 PFD_DOUBLEBUFFER;          // Flags
    iPixelType:= PFD_TYPE_RGBA;             // RGBA Pixel Type
    cColorBits:= 24;                        // 24-bit color
    cDepthBits:= 32;                        // 32-bit depth buffer
    iLayerType:= PFD_MAIN_PLANE;            // Layer Type
  end;
  nPixelFormat:= ChoosePixelFormat(myDC, @pfd);
  SetPixelFormat(myDC, nPixelFormat, @pfd);
                                            // Farbpalettenoptimierung wenn erforderlich
  DescribePixelFormat(myDC, nPixelFormat,
                      sizeof(TPixelFormatDescriptor),pfd);
  if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then begin
    nColors  := 1 shl pfd.cColorBits;
    hHeap    := GetProcessHeap;
    lpPalette:= HeapAlloc
       (hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry)));
    lpPalette^.palVersion := $300;
    lpPalette^.palNumEntries := nColors;
    byRedMask  := (1 shl pfd.cRedBits) - 1;
    byGreenMask:= (1 shl pfd.cGreenBits) - 1;
    byBlueMask := (1 shl pfd.cBlueBits) - 1;
    for i := 0 to nColors - 1 do begin
      lpPalette^.palPalEntry[i].peRed  :=
        (((i shr pfd.cRedShift)  and byRedMask)  *255)DIV byRedMask;
      lpPalette^.palPalEntry[i].peGreen:=
        (((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask;
      lpPalette^.palPalEntry[i].peBlue :=
        (((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask;
      lpPalette^.palPalEntry[i].peFlags:= 0;
    end;
    myPalette:= CreatePalette(lpPalette^);
    HeapFree(hHeap, 0, lpPalette);
    if (myPalette <> 0) then begin
      SelectPalette(myDC, myPalette, False);
      RealizePalette(myDC);
    end;
  end;
end;
 

TForm1.IniWalls

Code:

 
procedure TForm1.Ini_Walls;
begin
  Walls := Tmgl_Walls.Create;
 
  // Raum 1
  //            X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3 X4 Y4 Z4
  Walls.AddWall(-4,-3, 8,-4,-3,-8,-4, 2,-8,-4, 2, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->; // Linke Wand
  Walls.AddWall( 4, 2, 8, 4, 2,-4, 4,-3,-4, 4,-3, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->; // Rechte Wand I
  Walls.AddWall( 4, 2,-7, 4, 2,-8, 4,-3,-8, 4,-3,-7); // Rechte Wand II
  Walls.AddWall(-4,-3,-8, 4,-3,-8, 4, 2,-8,-4, 2,-8); // Hintere Wand
  Walls.AddWall(-4,-3, 8, 4,-3, 8, 4,-3,-8,-4,-3,-8, 8, 8, True, 2); // Fussboden
  Walls.AddWall(-4, 2,-8, 4, 2,-8, 4, 2, 8,-4, 2, 8, True, 1); // Decke
  Walls.AddWall(-4, 2, 8, 4, 2, 8, 4,-3, 8,-4,-3, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->; // Vordere Wand
  // |--
 
  // Durchgang 1
  //            X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3 X4 Y4 Z4
  Walls.AddWall( 4,-3,-7, 5,-3,-7, 5, 2,-7, 4, 2,-7); // Hintere Wand
  Walls.AddWall( 4,-3,-4, 4,-3,-4, 4,-3,-7, 4,-3,-7, True, 3); // Fussboden
  Walls.AddWall( 4,-2.9,-4, 5,-2.9,-4, 5,-2.9,-7, 4,-2.9,-7, True, 3); // Fussboden
  Walls.AddWall( 4, 2,-7, 5, 2,-7, 5, 2,-4, 4, 2,-4); // Decke
  Walls.AddWall( 4,-3,-4, 5,-3,-4, 5, 2,-4, 4, 2,-4); // Vordere Wand 
end;
 

TForm1.render

Code:

 
procedure Tform1.render;
var
  Wall, Punkt : cardinal;
  t_X, t_y, t_z : variant;
  Start, Ende : Cardinal;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
 
  CheckKeyboard;
 
//  glulookat(xpos,0,-zpos, 0,Rotation,0, 0,1,0);
  glrotate(rotation,1,0,0);
  glTranslate(xpos, 1, zpos); //Die entgültige Bewegung  glTranslatef(-5,0,-10);}
 
  Start := GetTickCount;
  If Not TerminateIt then
  begin
    for Wall := 0 to Walls.Count-1 do
    begin
      If Walls.Walls[Wall].Visible Then
      begin
        Textures[Walls.Walls[Wall].Textur].Bind;
        Textures[Walls.Walls[Wall].Textur].FlipHorz;
        glBegin(gl_quads);
          For Punkt := 0 To 3 Do
          Begin
            glColor4f(Walls.Walls[Wall].Points[Punkt].Color.Red , Walls.Walls[Wall].Points[Punkt].Color.Green, Walls.Walls[Wall].Points[Punkt].Color.Blue, 1);
//            glColor3f(0.5,0.5,0.5);
            case Punkt of
              0:
              Begin
                glTexCoord2f(0,0);
              end;
              1:
              Begin
                gltexCoord2f(1,0);
              end;
              2:
              Begin
                glTexCoord2f(1,1);
              end;
              3:
              Begin
                glTexCoord2f(0,1);
              end;
            end;
            glVertex3f(Walls.Walls[Wall].Points[Punkt].X, Walls.Walls[Wall].Points[Punkt].Y, Walls.Walls[Wall].Points[Punkt].Z);
            If TerminateIt then break;
          End;
        glEnd;
        If TerminateIt then break;
      end;
    end;
 
    glTranslate(0, -2, -zpos); //Die entgültige Bewegung  glTranslatef(-5,0,-10);}
//    glrotate(0,0,0,0);
    glBegin(gl_quads);
      glColor3f(random, Random, Random);
      glVertex3f(-0.5-xpos, -1, -8);
      glVertex3f(0.5-xpos, -1, -8);
      glVertex3f(0.5-xpos, 0, -8);
      glVertex3f(-0.5-xpos, 0, -8);
    glEnd;
 
  end;
  Ende := GetTickCount;
  If (Ende-Start) > Max Then Max := Ende-Start;
//  Form1.caption := IntToStr(Zpos);
 
  t_x := Xpos;
  t_y := Ypos;
  t_z := Zpos;
  Form1.caption := t_z;
                                                      //hier kommen die Objekte hin
  SwapBuffers(form1.myDC);
end;

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: So Apr 09, 2006 17:26

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Die Farbverschiebung könnte ich mir durch einen RGB vs. BGR Fehler erklären. Welches Format hat denn die Textur.

Das mit dem Abschneiden sieht nach Clipping-Fehlern aus. Hab gerade keine Zeit um den Code genauer zu betrachten....Aber hier gibts ja auch noch andere....

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Magellan

Betreff des Beitrags:

Verfasst: So Apr 09, 2006 17:37

DGL Member

Registriert: Di Nov 26, 2002 22:12
Beiträge: 259
Wohnort: Dresden

Du solltest nach Möglichkeit erst die Auflösung ändern und dann den Renderingkontext erstellen.

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jederman ist überzeugt, dass er genug davon habe.
Rene Descartes, frz. Mathematiker u. Philosoph, 1596-1650

Nach oben

Kyro

Betreff des Beitrags:

Verfasst: So Apr 09, 2006 18:15

DGL Member

Registriert: So Okt 26, 2003 20:07
Beiträge: 249

dadurch das die anderen texturen ja richtig zu sein scheinen, würde ich mal nen fehler in deiner pixelformatroutine (btw: wozu machst du die eigentlich?) ausschließen. sollte die textur zufällig im tga-format mit paint shop pro gespeichert worden sein, dann könntes daran liegen, damit hatte ich auch probs.
es sieht wirklich ganz stark nach rgb-bgr aus.

gruß

_________________
I'm not the signature, I'm just cleaning the floor...

Derzeitiges Projekt:
FireBlade Particle Engine (Release R2 2009.06.29)

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: So Apr 09, 2006 18:23

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Kyro hat geschrieben:

Schreib mal bitte was zu dem Fehler, da ich selber PSP benutze.

Nach oben

aniheX

Betreff des Beitrags:

Verfasst: So Apr 09, 2006 19:23

DGL Member

Registriert: Di Mär 21, 2006 20:03
Beiträge: 21
Programmiersprache: Delphi, C++

Kyro hat geschrieben:

1.) Das Bild ist im Jpeg Format.
2.) Die Grundgerüst hab ich aus einem Tutorial, daher das Pixelsetup

Könnte es ggf. besser werden, wenn ich ich die dglopengl nehme?

// Edit:

Zitat:

Du solltest nach Möglichkeit erst die Auflösung ändern und dann den Renderingkontext erstellen.

Werd ich versuchen. Danke für den Tipp.

Das mit dem RGB vs. BGR:
Auf anderen Rechnern geht das einwandfrei, nur bei mir nicht

Nach oben

Kyro

Betreff des Beitrags:

Verfasst: So Apr 09, 2006 21:03

DGL Member

Registriert: So Okt 26, 2003 20:07
Beiträge: 249

i0n0s hat geschrieben:

Schreib mal bitte was zu dem Fehler, da ich selber PSP benutze.

kann auch nicht soviel dazu schreiben - habe bisher afaik ausschließlich tga's mit alphakanal probiert.
die mit psp gespeicherten dateien waren farbverfälscht. nen neues abspeichern mit gimp hats "repariert"

aniheX hat geschrieben:

Könnte es ggf. besser werden, wenn ich ich die dglopengl nehme?

der dgl header ist auf jedenfall up-to-date und vollständig.
welchen benutzt du im moment? der standard delphi header ist nicht so toll.

gruß

_________________
I'm not the signature, I'm just cleaning the floor...

Derzeitiges Projekt:
FireBlade Particle Engine (Release R2 2009.06.29)

Nach oben

aniheX

Betreff des Beitrags:

Verfasst: Di Apr 18, 2006 18:37

DGL Member

Registriert: Di Mär 21, 2006 20:03
Beiträge: 21
Programmiersprache: Delphi, C++

Ich habe mittlerweile eine andere Graphikkarte, die das richtig darstellt.
Das sieht man gut daran, dass die angebotenen Downloads ebenfalls nicht mit der alten Graphikkarte funktionierten...

Das Problem war also meine Graphikkarte...

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Di Apr 18, 2006 19:33

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Rein Interessehalber... Was war das denn für ne Grafikkarte?

_________________
"Für kein Tier wird so viel gearbeitet wie für die Katz'."

Nach oben

aniheX

Betreff des Beitrags:

Verfasst: Mi Apr 19, 2006 10:22

DGL Member

Registriert: Di Mär 21, 2006 20:03
Beiträge: 21
Programmiersprache: Delphi, C++

Es war eine Sis 3D. Die genaue Bezeichnung hab ich nicht, da ich sie gebraucht bekommen habe und nie wirklich nachgesehen habe...

Meine jetzige ist eine nVidia GeForce4MX420. Sie ist auf jeden Fall besser, wenn auch nicht mehr die neueste

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Mi Apr 19, 2006 11:14

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

muahahaha! Ich hatte bis vor gar nicht allzu langer Zeit noch eine GeForce 2 MX

jetzt ist es immerhin eine GeForceFX 5600 Ultra bzw. hier im Notebook eine GeForceFX 5200 GO. Auch keine TOP-Modelle, die 5600er hat aber nur 80 Euro gekostet und war allemal besser als meine 4 Jahre alte Geforce 2 MX

_________________
"Für kein Tier wird so viel gearbeitet wie für die Katz'."

Nach oben

Seite 1 von 1

[ 11 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 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.