DGL • Thema anzeigen - Blackscreen bei einigen PCs

Blackscreen bei einigen PCs

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

SunBlack

Betreff des Beitrags: Blackscreen bei einigen PCs

Verfasst: Mi Jan 25, 2006 08:01

DGL Member

Registriert: Di Jan 24, 2006 18:46
Beiträge: 97

Hi @all,

ich habe mal wieder ein Problem was ich nicht nach voll ziehen kann. Und zwar will ich Sound-Wiedergabe mit Hilfe der bass.dll grafisch darstellen und OpenGL darstellen. Unter meinen 3 Testrechner funktionierte alles tadellos (ein 95-Rechner, ein XP-Home und ein XP-Prof.-Rechner). Allerdings habe ich später von 2 anderen die Rückmeldung bekommen, dass die nur einen schwarzen Bildschirm haben (bei einem anderem wieerum funktioniert es, flackerte jedoch, was bei meinen ganzen Testsystemen nicht der Fall war*). Woran könnte es liegen (Musikdatei ist vorhanden)? Und was könnte ich noch alles verbessern?

Code:

unit VisualisierungsForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms,
  Dialogs, dglOpenGL, ExtCtrls, StdCtrls, Bass, Math;
 
type
  TGLForm = class(TForm)
    Timer1: TTimer;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OnIdle(Sender: TObject; var Done: Boolean);
  private
    { Private-Deklarationen }
  public
 
  end;
 
type
  TFFTData = array [0..4095] of Single;
 
type
  TWaveData = array [ 0..4095] of DWORD;
 
var
  Form1: TGLForm;
  Channel: DWORD;
  FallOfFFTData: array[0..4095] of Single;
  PeacHighFacor: Integer=15;
  PeacNumber: Integer=1024;
  VisKind: Byte;
  FontBase: GLuint;
  RC: HGLRC;
  DC: HDC;
  Time: Cardinal=0;
  Count: Cardinal=0;
 
const
  Dateinamen='Test.mp3';
 
implementation
  uses Textausgabe;
  
{$R *.dfm}
 
procedure TGLForm.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  wglDeleteContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TGLForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Bass_Free;
end;
 
procedure Draw;
var
  FFTData: TFFTData;
  WaveData: TWaveData;
  i: integer;
  PeacHigh: Single;
  PeacPartNumber: Integer;
  R, L, R2, L2: SmallInt;
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewPort(0, 0, Form1.Width, Form1.Height);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glOrtho(0, 0, Form1.Width, Form1.Height, 0, 0);
  if BASS_ChannelIsActive(Channel)<>BASS_ACTIVE_PLAYING then
  begin
    Channel:=BASS_StreamCreateFile(FALSE, PChar(DateiNamen), 0, 0, 0);
    BASS_ChannelPlay(Channel, true);
  end;
  case VisKind of
     0: begin
          BASS_ChannelGetData(Channel, @FFTData, BASS_DATA_FFT4096);
          PeacPartNumber:=PeacNumber div 2;
          glBegin(GL_QUADS);
          for i:=0 to PeacNumber do
          begin
            PeacHigh:=Abs(FFTData[i]*PeacHighFacor);
            if PeacHigh>2 then PeacHigh:=2;
            if PeacHigh>FallOfFFTData[i] then FallOfFFTData[i]:=PeacHigh
                                         else FallOfFFTData[i]:=FallOfFFTData[i]-0.008;
            if FallOfFFTData[i]<0 then FallOfFFTData[i]:=0;
 
            //Balken
            glColor3f(0, 0, 1);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0);
            glColor3f(1, 0, 1);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+PeacHigh);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+PeacHigh);
 
            //Punkt
            glColor3f(1, 0, 0);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+FallOfFFTData[i]);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+FallOfFFTData[i]);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+FallOfFFTData[i]+(1/PeacPartNumber));
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+FallOfFFTData[i]+(1/PeacPartNumber));
          end;
          glEnd;
        end;
     1: begin
          BASS_ChannelGetData(Channel, @FFTData, BASS_DATA_FFT4096);
          PeacPartNumber:=PeacNumber div 2;
          glBegin(GL_LINE_STRIP);
          for i:=0 to PeacNumber do
          begin
            PeacHigh:=Abs(FFTData[i]*PeacHighFacor);
            if PeacHigh>2 then PeacHigh:=2;
            if PeacHigh>FallOfFFTData[i] then FallOfFFTData[i]:=PeacHigh
                                         else FallOfFFTData[i]:=FallOfFFTData[i]-0.008;
            if FallOfFFTData[i]<0 then FallOfFFTData[i]:=0;
 
            //Balken
            glColor3f(0, 1, 0);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+PeacHigh);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+PeacHigh);
 
          end;
          glEnd;
        end;
     {2: begin
          BASS_ChannelGetData(Channel, @WaveData, PeacNumber*4);
          PeacPartNumber:=PeacNumber div 2;
          glBegin(GL_LINE_STRIP);
          for i:=0 to PeacNumber-1 do
          begin
            R:=SmallInt(LoWord(WaveData[i]));
            L:=SmallInt(HiWord(WaveData[i]));
            if abs(PeacHigh)>1 then PeacHigh:=Sign(PeacHigh);
            //Balken
            glColor3f(0, 0, 1);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), 0);
            glVertex2d(-1.0+(i/PeacPartNumber)      , 0);
            glColor3f(1, 0, 1);
            glVertex2d(-1.0+(i/PeacPartNumber)      , Trunc(((R + L) / (2 * 65535))*10));
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), Trunc(((R + L) / (2 * 65535))*10));
          end;
          glEnd;
        end;}
  end;
  inc(Count);
  if Time+500<GetCurrentTime then
  begin
    FPS:=round(Count/(GetCurrentTime-Time)*1000);
    Time:=GetCurrentTime;
    Count:=0;
  end;
  ShowText;
  SwapBuffers(DC);
end;
 
procedure TGLForm.OnIdle(Sender: TObject; var Done: Boolean);
begin
  Draw;
  Done:=false
end;
 
procedure TGLForm.FormCreate(Sender: TObject);
begin
  ShowWindow(Form1.Handle, SW_MAXIMIZE);
  Form1.BorderStyle:=bsNone;
  FillChar(FallOfFFTData[0], 4096, 0);
 
  InitOpenGL;
  DC:=GetDC(Handle);
  RC:=CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
  glDepthFunc(GL_NEVER);
  glClearColor(0,0,0,0);
  BuildFont('Times New Roman');
  BASS_Init(-1, 44100, 0, Application.Handle, nil);
  VisKind:=0;
  Application.OnIdle:=OnIdle;
end;
 
procedure TGLForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inc(VisKind);
  if VisKind>1 then VisKind:=0
end;
 
end.

Code:

unit Textausgabe;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms,
  Dialogs, dglOpenGL, ExtCtrls, StdCtrls, Bass, Math, VisualisierungsForm;
 
var
  FPS: Byte=0;
 
procedure BuildFont(pFontName : String);
procedure ShowText;
 
implementation
 
procedure BuildFont(pFontName : String);
var
  Font: HFONT;
begin
  FontBase:=glGenLists(96);
  Font:=CreateFont(16, 0, 0, 0, FW_MEDIUM, 0, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS,
                   ANTIALIASED_QUALITY, FF_DONTCARE or DEFAULT_PITCH, PChar(pFontName));
  SelectObject(DC, Font);
  wglUseFontBitmaps(DC, 0, 256, FontBase);
  DeleteObject(Font)
end;
 
procedure PrintText(pX,pY : Integer; const pText : String);
begin
  if (pText='') then exit;
  glPushAttrib(GL_LIST_BIT);
    glRasterPos2i(pX, pY);
    glListBase(FontBase);
    glCallLists(Length(pText), GL_UNSIGNED_BYTE, PChar(pText));
  glPopAttrib;
end;
 
 
procedure ShowText;
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glOrtho(0,Form1.Width,Form1.Height,0, -1,1);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  PrintText(5,15, IntToStr(FPS)+' fps');
end;
 
end.

Code:

program Visualisierungstest;
 
uses
  SysUtils,
  Forms,
  VisualisierungsForm in 'VisualisierungsForm.pas',
  Textausgabe in 'Textausgabe.pas';
 
{$R *.res}
 
begin
  if not FileExists(Dateinamen) then Application.MessageBox('Die Datei "'+Dateinamen+'" wurde nicht gefunden', 'Fehler', 16)
  else
  begin
    Application.Initialize;
    Application.CreateForm(TGLForm, Form1);
  Application.Run;
  end  
end.

Und warum kann ich in der Prozesur ShowText die ersten3 Zeilen nicht entfernen (Schrift fehlt dann)? Eigentlich müsste es ja gehen, da ich vor der anderen Zeichenroutine das gleiche auch schon stehen habe... und es damit in meinen augen doppelt wäre.

*(95-Rechner konnte es nur stockend wieder geben, da die GraKa, keine OpenGL-Unterstützung besitzt).

mfg
Heiko

Zuletzt geändert von SunBlack am Fr Feb 10, 2006 16:30, insgesamt 1-mal geändert.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Jan 25, 2006 11:25

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Für Alle die nicht ab und an im Delphi Forum unterwegs sind. Hier gibt auch einen Teil der Geschichte.

Zitat:

@glOrtho: Geht irgendwie nicht, sprich die Textausgabe in der anderen Unit funktioniert dann nicht mehr. Wieso muss denn sowieso zNear & zFear (-)1 haben und nicht 0 wie der Rest?

Also ein glOrtho mit zNear und zFar = 0 halte ich für gefährlich. Da du insgesammt eine Reichweite von 0 hast. Auch wenn alle deine Werte eine Tiefe von 0 haben würde ich sagen, dass du -1 und 1 benutzen solltest. Also genau so wie es bei dem Text zeichnen der Fall ist. Da könntest du dann aber das glOrtho UND das Löschen der Projectionsmatrix weglassen. Da in dem ShowText zu erst die Projektion gelöscht wird und anschließen wieder gesetzt wird. Wenn die aber sowieso gleich bleiben soll, dann kannst du sie auch weglassen.

Was ich auch gesehen habe war deine Tiefenfunktion. Es wäre sinnvoller, wenn du anstelle einer Tiefenfunktion (GL_NEVER) die niemals erfüllt wird lieber eine benutzt die Immer erfüllt wird. Also GL_ALWAYS oder du deaktivierst den Test am Besten. Man weiß auch nie ob der evtl. auf der ein oder anderen Implementation von Hause aus gesetzt ist. Das kann auch dazu führen, dass alles schwarz ist, da dann nichts durch den Tiefentest gerutscht ist.

Normal genügt es vollkommen, wenn du in dem OnResize deines Formulars den ViewPort und die Projektion (glOrtho) setzt. Beim Render brauchst du dann nur noch den Framebuffer löschen und kannst gleich loslegen. So habe ich das in meinem Project VU Meter auch gemacht. Also nur im OnResize gesetzt und beim Rendern hatte ich dann weder mit meinem Daten noch mit meiner Schrift Probleme. Und bisher habe ich noch keine Klagen gehört. Evtl solltest du da mal in die Quellen schauen. Wobei ich da aber noch einen Tiefentest an habe. Was eigentlich nicht nötig wäre.

Nach oben

SunBlack

Betreff des Beitrags:

Verfasst: Fr Feb 10, 2006 16:28

DGL Member

Registriert: Di Jan 24, 2006 18:46
Beiträge: 97

ICh habe es jetzt mal mit deinem Grundgerüst probiert, allerdings habe ich da schon bei mir Probleme

. Und zwar funktioniert gl_Quads nicht mehr (gl_Quad_Strip funktioniert aber und andere auch):

Code:

unit VisualisierungsForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms,
  Dialogs, dglOpenGL, ExtCtrls, StdCtrls, Bass, Math, glBitmap, glText;
 
type
  TGLForm = class(TForm)
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OnIdle(Sender: TObject; var Done: Boolean);
  protected
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  private
    { Private-Deklarationen }
  public
 
  end;
 
type
  TFFTData = array [0..2047] of Single;
 
type
  TWaveData = array [ 0..1023] of DWORD;
 
var
  Form1: TGLForm;
  Channel: DWORD;
  FallOfFFTData: array[0..2047] of Single;
  PeacHighFacor: Integer=15;
  PeacNumber: Integer=1024;
  VisKind: Byte;
  FontBase: GLuint;
  FRC: HGLRC;
  FDC: HDC;
  Time: Cardinal=0;
  Count: Cardinal=0;
  FFont: TglBitmapText;
  FInitialized: Boolean;
 
const
  Dateinamen='Test.mp3';
 
implementation
 
{$R *.dfm}
 
procedure TGLForm.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  wglDeleteContext(FRC);
  ReleaseDC(Handle, FDC);
end;
 
procedure TGLForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Bass_Free;
end;
 
procedure Draw;
var
  FFTData: TFFTData;
  i: integer;
  PeacHigh: Single;
  PeacPartNumber: Integer;
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewPort(0, 0, Form1.Width, Form1.Height);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glOrtho(0, 0, Form1.Width, Form1.Height, -1, 1);
  if BASS_ChannelIsActive(Channel)<>BASS_ACTIVE_PLAYING then
  begin
    Channel:=BASS_StreamCreateFile(FALSE, PChar(DateiNamen), 0, 0, 0);
    BASS_ChannelPlay(Channel, true);
  end;
  case VisKind of
     0: begin
          BASS_ChannelGetData(Channel, @FFTData, BASS_DATA_FFT4096);
          PeacPartNumber:=PeacNumber div 2;
 
          glBegin(GL_QUADS);
          for i:=0 to PeacNumber do
          begin
            PeacHigh:=Abs(FFTData[i]*PeacHighFacor);
            if PeacHigh>2 then PeacHigh:=2;
            if PeacHigh>FallOfFFTData[i] then FallOfFFTData[i]:=PeacHigh
                                         else FallOfFFTData[i]:=FallOfFFTData[i]-0.008;
            if FallOfFFTData[i]<0 then FallOfFFTData[i]:=0;
 
            //Balken
            glColor3f(0, 0, 1);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0);
            glColor3f(1, 0, 1);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+PeacHigh);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+PeacHigh);
 
            //Punkt
            glColor3f(1, 0, 0);
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+FallOfFFTData[i]);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+FallOfFFTData[i]);
            glVertex2d(-1.0+(i/PeacPartNumber)      , -1.0+FallOfFFTData[i]+(1/PeacPartNumber));
            glVertex2d(-1.0+((i+0.5)/PeacPartNumber), -1.0+FallOfFFTData[i]+(1/PeacPartNumber));
          end;
          glEnd;
        end;
     1: begin
          BASS_ChannelGetData(Channel, @FFTData, BASS_DATA_FFT4096);
          PeacPartNumber:=PeacNumber div 2;
          glBegin(GL_LINE_STRIP);
          for i:=0 to PeacNumber do
          begin
            PeacHigh:=Abs(FFTData[i]*PeacHighFacor);
            if PeacHigh>2 then PeacHigh:=2;
            glColor3f(PeacHigh, 0, 1-PeacHigh/2);
            glVertex2d(-1.0+(i/PeacPartNumber), -1.0+PeacHigh);
          end;
          glEnd;
        end;
  end;
  inc(Count);
  {if Time+500<GetCurrentTime then
  begin
    FPS:=round(Count/(GetCurrentTime-Time)*1000);
    Time:=GetCurrentTime;
    Count:=0;
  end;
  PrintText(5, 15, FloatToStr(FPS));}
  SwapBuffers(FDC);
end;
 
procedure TGLForm.OnIdle(Sender: TObject; var Done: Boolean);
begin
  Draw;
  Done:=false
end;
 
procedure TGLForm.FormCreate(Sender: TObject);
begin
{  ShowWindow(Form1.Handle, SW_MAXIMIZE);
  Form1.BorderStyle:=bsNone;}
  FillChar(FallOfFFTData[0], 4096, 0);
end;
 
procedure TGLForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inc(VisKind);
  if VisKind>1 then VisKind:=0
end;
 
procedure TGLForm.FormShow(Sender: TObject);
var
  PixelFormat: Integer;
  pfd: PIXELFORMATDESCRIPTOR;
begin
  InitOpenGL;
 
  // Pixelformatdescription leeren
  ZeroMemory(@pfd, SizeOf(pfd));
 
  // pfd initialisieren
  pfd.nSize:=SizeOf(PIXELFORMATDESCRIPTOR); // Die Größe vom pfd
  pfd.nVersion:=1;                             // version
  pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
  pfd.iPixelType:=PFD_TYPE_RGBA;                 // RGBA color format
  pfd.cColorBits:=32;                            // Farbtiefe
  pfd.cDepthBits:=16;                            // Tiefenbuffer
 
  FDC:=GetDC(Handle);
 
  // richtiges Pixelformat suchen
  PixelFormat:=ChoosePixelFormat(FDC, @pfd);
  if (PixelFormat=0) then begin
    MessageBox(0, 'Unable to find a suitable pixel format', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  DescribePixelFormat(FDC, PixelFormat, SizeOf(pfd), pfd);
 
  // Pixelformat auf den DC zuweisen
  if (not SetPixelFormat(FDC, PixelFormat, @pfd)) then begin
    MessageBox(0, 'Unable to set the pixel format', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  // OpenGL Rendercontext setzen.
  FRC:=wglCreateContext(FDC);
  if (FRC=0) then begin
    MessageBox(0, 'Unable to create an OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  // Den Rendercontext auswählen
  if (not wglMakeCurrent(FDC, FRC)) then begin
    MessageBox(0, 'Unable to activate OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  ReadExtensions;
  ReadImplementationProperties;
 
  FInitialized:=True;
 
  FormResize(Self);
 
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST);
    glDepthFunc(GL_LEQUAL);
    glEnable(GL_DEPTH_TEST);
    glEnable(GL_CULL_FACE);
    glDepthMask(True);
  glClearDepth(1);
  glDisable(GL_BLEND);
  glDisable(GL_ALPHA_TEST);
  glEnable(GL_COLOR_MATERIAL);
 
  FFont:=TglBitmapText.Create(FDC);
  FFont.Font.Name:='Times New Roman';
  FFont.Font.Size:=12;
  FFont.BuildFont;
 
  BASS_Init(-1, 44100, 0, Application.Handle, nil);
  VisKind:=0;
  Application.OnIdle:=OnIdle;
end;
 
procedure TGLForm.FormResize(Sender: TObject);
var
  VP: array[0..1] of Integer;
  newWidth, newHeight: Integer;
begin
  if (FInitialized) then
  begin
    // Set the viewport for the OpenGL window
    glGetIntegerv(GL_MAX_VIEWPORT_DIMS, @VP);
 
    // Dont make the Window to large
    newWidth:=Min(VP[0], ClientWidth);
    newHeight:=Min(VP[1], ClientHeight);
 
    // Viewport von OpenGL setzen
    glViewport((ClientWidth div 2)-(newWidth div 2),
               (ClientHeight div 2)-(newHeight div 2),
                newWidth,
                newHeight);
 
    // Projection matrix
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();
 
    // Perspektive setzen
    glOrtho(0, ClientWidth, ClientHeight, 0, -1, 1);
 
    // Modelview Matrix
    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();
  end;
end;
 
procedure TGLForm.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  Message.Result:=Integer(True);
end;
 
end.

[/code]

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Feb 10, 2006 18:08

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Finde es merkwürdig, da gl_quads ja nun mal direkt aus der dglopengl.pas kommt. Und das schon seit OpenGL1.0.

Nach oben

SunBlack

Betreff des Beitrags:

Verfasst: Fr Feb 10, 2006 19:33

DGL Member

Registriert: Di Jan 24, 2006 18:46
Beiträge: 97

Finde ich auch. Das ist auch das erste mal, dass ich so ein Problem habe bezüglich von Körpern/Flächen

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Sa Feb 11, 2006 17:49

Guitar Hero

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

Was soll denn nicht gehen? Kommt eine Fehlermeldung, oder sieht was blöd aus, oder was? Eventuell ist die reihenfolge der Coordinaten fehlerhaft (Es gibt da nämlich einen beträchtlichen unterschied zwischen QuadStrips und Quads wie man bei glBegin im Wiki sehen kann.)

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

Nach oben

SunBlack

Betreff des Beitrags:

Verfasst: Sa Feb 11, 2006 18:26

DGL Member

Registriert: Di Jan 24, 2006 18:46
Beiträge: 97

Bei glQuads habe ich eine leer schwarze Fläche. Und an der Reihenfolge liegt es auch nicht aus mehreren Gründen

.
1. die gleiche Koodinatenreihenfolge hat auch schon einmal funktioniert (beim altem Grundgerüst) und ich habe daran ja nichts verändert
2. ist die Reihenfolge auch durchdacht, da ich den Anfängerfehler des nicht durchdenkens der Reihenfolge schon lange nicht mehr mache

Nach oben

SunBlack

Betreff des Beitrags:

Verfasst: So Mär 19, 2006 20:02

DGL Member

Registriert: Di Jan 24, 2006 18:46
Beiträge: 97

Ich habe das Grundgerüst nocheinmal neu übernommen (für ein anderes Projekt). Dort geht es jetzt

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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