DGL • Thema anzeigen - [gelöst] Problem mit Linien

[gelöst] Problem mit Linien

Moderator: DGL-Team

Seite 2 von 2

[ 25 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Lossy eX

Betreff des Beitrags:

Verfasst: Do Aug 07, 2008 10:52

DGL Member

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

glView: Bei der neuen Version kann ich dir das leider nicht direkt sagen. Aber in der älteren war das "Erweiterungen" -> "Implementierte Spezifikationen" -> "Verschiedene Limitierungen" -> "Line width range 1,0000 to 63,0000"
Die Struktur müsste aber so ähnlich sein denke ich.

OpenGL Fehler: Du musst jetzt versuchen den Fehler näher einzugrenzen, da ein "Invalid Value" für zwei unterschiedliche Methoden unterschiedliche Bedeutungen hat. Also ich packe mir die Überprüfung gerne in eine Methode und rufe die Methode zwischen den OpenGL Aufrufen dann mal auf. Zu erst grob und dann an diversen Stellen dichter um den Fehler eingrenzen zu können. Das ist leider die einzige Möglichkeit wie man die OpenGL Fehler finden kann.
Wenn du dann weißt welche Methode den Fehler produziert hat musst du in die Manual der Funktion schauen und dessen Bedeutung zu erfahren. Oder bei uns ins Wiki.

Linien: Hattest du schon mal OpenGL Linien auf deinem System? Alternativ kannst du auch mal den Softwarerenderer benutzen. Also "Eigenschaften von Anzeige" > "Einstellungen" > "Erweitert" > "Problembehebung" und dann Regler hardwarebeschleunigung so weit nach links bis DirectDraw/Direct3D deaktiviert wurde. Dann benutzt du die Software implementation von Windows. Nach dem Testen aber wieder nach rechts schieben.

Nach oben

dj3hut1

Betreff des Beitrags:

Verfasst: Do Aug 07, 2008 12:34

DGL Member

Registriert: Di Dez 27, 2005 12:44
Beiträge: 393
Wohnort: Berlin
Programmiersprache: Java, C++, Groovy

Hallo Jann1k,

hmm...was mich bei deinem Quellcode noch gewundert hat :

Code:

glbegin(GL_lines);

ist nur eine dumme Vermutung, aber ich nehm mal an, du hast in deinem Programm GL_LINES groß geschrieben, sonst hätte es einen Kompilierfehler gegeben.

Viele Grüße
dj3hut1

_________________
Wenn Gauß heute lebte, wäre er ein Hacker.
Peter Sarnak, Professor an der Princeton University

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Do Aug 07, 2008 13:45

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

dj3hut1 hat geschrieben:

ist nur eine dumme Vermutung, aber ich nehm mal an, du hast in deinem Programm GL_LINES groß geschrieben, sonst hätte es einen Kompilierfehler gegeben.

Sind wir nicht in good old case-insensitive Delphi?

Ich würde sagen, versuch mal genau rauszufinden, wo das invalid Value auftritt oder gib uns mehr Code/ne Exe. Nicht lokal nachvollziehbare Probleme sind per Fernberatung immer schwer auszumachen.

Eine weitere Möglichkeit wäre noch GLIntercept zu verwenden. Dessen Logs sind für gewöhnlich sehr aussagekräftig (und umfangreich).

MfG

Nach oben

Jann1k

Betreff des Beitrags:

Verfasst: Do Aug 07, 2008 21:47

DGL Member

Registriert: Di Okt 23, 2007 18:03
Beiträge: 49
Wohnort: Dortmund-Scharnhorst

Okay, kurzes Update von mir:

glView gibt mir als mögl. Linienrößen folgendes:

Line width range: 0.500000 to 10.000000

sollte also okay sein.

Der Fehler "invalid value" tritt auf, weil ich Texturen lade die nicht POT2 konform sind, ein auskommentieren der fehleraften Texturen entfernt den Fehler zwar, ändert aber nichts an der nicht vorhandenen Linie.

[quote]
Linien: Hattest du schon mal OpenGL Linien auf deinem System? Alternativ kannst du auch mal den Softwarerenderer benutzen. Also "Eigenschaften von Anzeige" > "Einstellungen" > "Erweitert" > "Problembehebung" und dann Regler hardwarebeschleunigung so weit nach links bis DirectDraw/Direct3D deaktiviert wurde. Dann benutzt du die Software implementation von Windows. Nach dem Testen aber wieder nach rechts schieben. [/quote]

Hat leider auch nichts gebracht

Ich werde jetzt den Quelltext ein bisschen umstellen, damit alles was mit OGL zu tun hat oben steht, und den Code hier reinstellen. Ic darf euch jetzt schon vor dem Code warnen, er ist ein bisschen unübersichtlich...

Und irgendwie habe ich langsam die Befürchtung, dass ich irgendetwas ganz ganz ganz kaputt gemacht hab

Okay anhängen klappt nicht 12mb scheinen zu viel zu sein, also hier mal der Teil Vom Quelltext der OGL betrifft und bis zum Zeichnen der Linie aufgerufen wird:

Code:

 
procedure TMain.FormCreate(Sender: TObject);
var
  I: integer;
  png: tpngobject;
 
begin
  //OpenL Stuff
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
 
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);
 
  setupgl;
 
 
 
 
  randomize;
  allinvis;
  HymneTag := 0;
  BallTag := 0;
  mannschaft1 := random(anzahlmannschaften);
  mannschaft2 := random(anzahlmannschaften);
 
  png := tpngobject.create;
  png.loadfromfile(extractfilepath(application.exename) +
    'Pics/SOnstiges/Splash Screen.png');
  width := png.width;
  height := png.height;
 
  image1.canvas.Draw(0, 0, png);
 
 
 
  erstellefonts;
  ladetexturen;
 
//setzen von startwerten
  mannschaft1 := 2;
  mannschaft2 := 2;
 
  select := aus;
  for I := 1 to high(sounds) do
    sounds[I] := true;
  ganzzeit := 5;
  pausenzeit := 3;
  replaylos := true;
 
//zuweisung von label-events (farbänderung)
  lbzur.onmouseenter := lbover;
  lbtutorialende.onmouseenter := lbover;
  lbvorher.onmouseenter := lbover;
  lbnachher.onmouseenter := lbover;
  lbvorher2.onmouseenter := lbover;
  lbnachher2.onmouseenter := lbover;
  lbmainmenu.onmouseenter := lbover;
  lbbeenden.onmouseenter := lbover;
  lbnewgame.onmouseenter := lbover;
  lbaufstellunga.onmouseenter := lbover;
  lbelfmeterschuss.onmouseenter := lbover;
 
  lbzur.onmouseleave := lbleave;
  lbtutorialende.onmouseleave := lbleave;
  lbvorher.onmouseleave := lbleave;
  lbnachher.onmouseleave := lbleave;
  lbvorher2.onmouseleave := lbleave;
  lbnachher2.onmouseleave := lbleave;
  lbmainmenu.onmouseleave := lbleave;
  lbbeenden.onmouseleave := lbleave;
  lbnewgame.onmouseleave := lbleave;
  lbaufstellunga.onmouseleave := lbleave;
  lbelfmeterschuss.onmouseleave := lbleave;
 
  for I := 1 to 6 do
    begin
      tlabel(findcomponent('lbo' + inttostr(I))).OnMouseEnter := lbover;
      tlabel(findcomponent('lbo' + inttostr(I))).OnMouseleave := lbleave;
      tlabel(findcomponent('lbo' + inttostr(I) + 'a')).OnMouseEnter := lbover;
      tlabel(findcomponent('lbo' + inttostr(I) + 'a')).OnMouseleave := lbleave;
    end;
 
  doublebuffered := true;
  keypreview := true;
 
  feld := tbitmap.create;
 
  clearactual;
 
  erstellspieler;
 
  //Laden der Sounds
  BASS_Init(-1, 44100, 0, Application.Handle, nil);
  ChTheme := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/theme.mp3'), 0, 0, 0);
  ChButton := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/button.mp3'), 0, 0, 0);
  ChStadion := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/stadion.mp3'), 0, 0, 0);
  ChHymne := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/UEFA Hymne.mp3'), 0, 0, 0);
  ChJubel := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/jubel.aiff'), 0, 0, 0);
  ChBall := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/ball.mp3'), 0, 0, 0);
  ChPfiff := BASS_StreamCreateFile(FALSE, PChar(extractfilepath(application.ExeName) + 'Sounds/pfiff.aiff'), 0, 0, 0);
 
  bodentextur := random(7) + 1;
  erstellemenue;
end;
 
 
procedure TMain.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, 1,1000);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
end;
 
 
procedure TMain.ladetexturen;
  var s,s1:string;
      J:integer;
begin
  s:=extractfilepath(application.ExeName)+'Pics';
  s1:=extractfilepath(application.ExeName)+'Texturen';
 
 
  texturliste:=tlist.Create;
 
  //Spielertexturen
  TexturSStehen:=TTextur.create(s+'Figuren\Spieler.png');
  TexturSLaufen:=TTextur.create(s+'Figuren\Spieler_rennen.png');
  TexturSSprinten:=TTextur.create(s+'Figuren\Spieler_sprinten.png');
  TexturSSchuss:=TTextur.create(s+'Figuren\Spieler_passen.png');
  TexturSEinwurf:=TTextur.create(s+'Figuren\Spieler_einwurf.png');
 
  //Computertexturen
  TexturCStehen:=TTextur.create(s+'Figuren\Computer.png');
  TexturCLaufen:=TTextur.create(s+'Figuren\Computer_rennen.png');
  TexturCSprinten:=TTextur.create(s+'Figuren\Computer_sprinten.png');
  TexturCSchuss:=TTextur.create(s+'Figuren\Computer_passen.png');
  TexturCEinwurf:=TTextur.create(s+'Figuren\Computer_einwurf.png');
 
 
  //Bodentexturen
  bodentexturen[1]:=TTextur.create(s1+'boden_dry.PNG');
  bodentexturen[2]:=TTextur.create(s1+'boden_Hdry.PNG');
  bodentexturen[3]:=TTextur.create(s1+'boden_mud.png');
  bodentexturen[4]:=TTextur.create(s1+'boden_Hmud.png');
  bodentexturen[5]:=TTextur.create(s1+'boden_midgreen.png');
  bodentexturen[6]:=TTextur.create(s1+'boden_Hmidgreen.png');
  bodentexturen[7]:=TTextur.create(s1+'boden_stadion.PNG');
 
 
  //mannschaftsfahnen
  for J:=0 to 16 do
  Texturfahnen[J]:=TTextur.create(s1+getmannschaftsname(J)+'.png');
 
  //Stadionschatten
  for J:=1 to 5 do
  TexturStadionSchatten[J]:=Ttextur.create(s+'Schatten\Stadion_schatten'+inttostr(J)+'.png');
 
  //Popuptexturen
  Texturpopups:=TTextur.create(s1+'popup_menu.png');
 
 
  TexturMarkierung:=Ttextur.create(s1+'linien.png');
 
   //Sonstiges-Ordner
  Texturball:=ttextur.create(s1+'ball_5hrz.png');
  TexturSchatten[1]:=ttextur.create(s1+'schatten_punkt.png');
  TexturSchatten[2]:=ttextur.create(s1+'schatten_einfach.png');
  TexturSchatten[3]:=ttextur.create(s1+'schatten_stadion.png');
  Texturtor:=ttextur.create(s1+'Tor.png');
  TexturSpielermarkierung:=ttextur.create(s1+'markierung.png');
  TexturZielmarkierungen[1]:=ttextur.create(s1+'zielmarkierung.png');
  TexturZielmarkierungen[2]:=ttextur.create(s1+'zielmarkierung_sprint.png');
  TexturSpielinfo:=ttextur.create(s1+'spielinfo.png');
  TexturTorfleck:=ttextur.create(s1+'Torfleck.png');
 
  //Anzeige-Ordner
  TexturAnzeige:=Ttextur.create(s1+'ausdauerbalken.png');
 
  TexturAufladen:=Ttextur.create(s1+'schussbalken.png');
 
  TexturElfmeterAnzeige:=Ttextur.create(s1+'elfmeteranzeige.png');
  TexturElfmeterPunkt:=Ttextur.create(s1+'elfmeter_punkt.png');
  TexturMiniBall:=ttextur.create(s+'Anzeige\miniball.png');
 
  //Menü-Ordner
  TexturMenue[0]:=TTextur.create(s+'Menü\background.png');
  TexturMenue[1]:=TTextur.create(s+'Menü\ecke_lo.png');
  TexturMenue[2]:=TTextur.create(s+'Menü\ecke_lu.png');
  TexturMenue[3]:=TTextur.create(s+'Menü\ecke_ro.png');
  TexturMenue[4]:=TTextur.create(s+'Menü\ecke_ru.png');
  TexturMenue[5]:=TTextur.create(s+'Menü\rand_l.png');
  TexturMenue[6]:=TTextur.create(s+'Menü\rand_o.png');
  TexturMenue[7]:=TTextur.create(s+'Menü\rand_r.png');
  TexturMenue[8]:=TTextur.create(s+'Menü\rand_u.png');
  TexturMenue[9]:=TTextur.create(s+'Menü\punkt.png');
end;
 
 
constructor TTextur.create(S:string);
begin
  inherited create;
  self.Textur:=Tglbitmap2d.create;
  self.textur.LoadFromFile(s);
  self.textur.GenTexture(false); // geladene Textur an OpenGL übergeben
  texturliste.Add(self);
end;
 
 
 
procedure TMain.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
  glEnable(GL_TEXTURE_2D);
  glEnable(GL_ALPHA_TEST);
  glAlphaFunc(GL_GREATER, 0.1);
  glEnable(GL_BLEND);
end;
 
procedure Tmain.ErstelleFonts;
var
  Font: TFont;
begin
  spielfont := glGenLists(256);
 
  Font := TFont.Create;  // Instanz einer Fontklasse erstellen
  try
    Font.Name := 'Arial'; // Name
    Font.Size := 14;                // Schriftgröße
    Font.Style := [fsBold];         // Styles (fsBold, fsItalic, ...)
    Font.color:=clwhite;
    SelectObject(DC, Font.Handle);              // Font auf einen Device Context benutzen
    wglUseFontBitmaps (DC, 0, 255, spielfont);  // Mit selektiertem Font Zeichen erstellen
 
  finally
    FreeAndNil(Font);  // erstellte Instanz wieder frei geben
  end;
end;
 
 
procedure Tmain.ShowText(pText: String;pfont:cardinal);
begin
   glListBase(pfont);  // Liste auswählen
   glCallLists(Length(pText), GL_UNSIGNED_BYTE, Pointer(pText));  // Entsprechende Listen aufrufen
end;
 
 
procedure TMain.SetzeTextur(pTextur:Ttextur);
begin
  ptextur.textur.bind;
  TBreite:=ptextur.textur.width;
  THoehe:=ptextur.textur.height;
end;
 
 
procedure Tmain.ZeichneQuad(X,Y,z:integer; flip:integer);
begin
  if not flip in [0..6] then flip:=0;
 
  case flip of
  0:begin  //keine spiegelung
    glBegin(GL_QUADS);
    glTexCoord2f(1,1); glVertex3f( X+TBreite,clientheight-(y+THoehe), z);
    glTexCoord2f(1,0); glVertex3f( X+TBreite,clientheight- y, z);
    glTexCoord2f(0,0); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(0,1); glVertex3f(x,clientheight- (y+THoehe), z);
    glEnd;
    end;
  1:begin   //hrz gespiegelt
    glBegin(GL_QUADS);
    glTexCoord2f(0,1); glVertex3f( X+TBreite,clientheight-(y+THoehe), z);
    glTexCoord2f(0,0); glVertex3f( X+TBreite,clientheight- y, z);
    glTexCoord2f(1,0); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(1,1); glVertex3f(x,clientheight- (y+THoehe), z);
    glEnd;
    end;
  2:begin    //vert gespiegelt
    glBegin(GL_QUADS);
    glTexCoord2f(1,0); glVertex3f( X+TBreite,clientheight-(y+THoehe), z);
    glTexCoord2f(1,1); glVertex3f( X+TBreite,clientheight- y, z);
    glTexCoord2f(0,1); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(0,0); glVertex3f(x,clientheight- (y+THoehe), z);
    glEnd;
    end;
  3:begin    //hrz und vert gespiegelt
    glBegin(GL_QUADS);
    glTexCoord2f(0,0); glVertex3f( X+TBreite,clientheight-(y+THoehe), z);
    glTexCoord2f(0,1); glVertex3f( X+TBreite,clientheight- y, z);
    glTexCoord2f(1,1); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(1,0); glVertex3f(x,clientheight- (y+THoehe), z);
    glEnd;
    end;
 
  4:begin  //90° Drehung
    glBegin(GL_QUADS);
    glTexCoord2f(1,0); glVertex3f( X+THoehe,clientheight-(y+TBreite), z);
    glTexCoord2f(0,0); glVertex3f( X+Thoehe,clientheight- y, z);
    glTexCoord2f(0,1); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(1,1); glVertex3f(x,clientheight- (y+TBreite), z);
    glEnd;
    end;
  5:begin  //180° Drehung
    glBegin(GL_QUADS);
    glTexCoord2f(0,0); glVertex3f( X+TBreite,clientheight-(y+THoehe), z);
    glTexCoord2f(0,1); glVertex3f( X+TBreite,clientheight- y, z);
    glTexCoord2f(1,1); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(1,0); glVertex3f(x,clientheight- (y+THoehe), z);
    glEnd;
    end;
  6:begin  //270° Drehung
    glBegin(GL_QUADS);
    glTexCoord2f(0,1); glVertex3f( X+THoehe,clientheight-(y+TBreite), z);
    glTexCoord2f(1,1); glVertex3f( X+THoehe,clientheight- y, z);
    glTexCoord2f(1,0); glVertex3f(x,clientheight- y, z);
    glTexCoord2f(0,0); glVertex3f(x,clientheight- (y+TBreite), z);
    glEnd;
    end;
 
   end;
 
end;
 
 
 
 
 
procedure tmain.zeichnegl;
var I,J,N,M:integer;
    grad,a,b,c:real;
    PX:array[1..4] of integer;
 
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glViewport(0,0,ClientWidth,ClientHeight);
glOrtho(0,clientwidth,0,clientheight,0,256);
 
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
 
 
//Blending auf transparenz in pngs einstellen
{glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA);
    glcolor3f(1,1,1);
 
 
  zeichnefeld;
  zeichnespieler;
 
  glpushmatrix;
  glTranslatef(round(ball.posi.x), clientheight-round(ball.posi.y), 0);
  glRotatef(spieler2.winkel(11)*10, 0,0,1);
 
  //ball
  setzetextur(texturball);
  Tbreite:= mdaten.ballbreite + (round(mdaten.ball.posi.z) div 2);
  Thoehe:=Tbreite;
  I:=mdaten.ball.aninummer;
  zeichnequad( - TBreite div 2,
                    clientheight- Thoehe div 2,
                    -115 ,0,
                    ((2+I*48)/256),(46+I*48)/256,10/64,54/64);
 
  glpopmatrix;
 
  //Stadionschatten
  setzetextur(texturstadionschatten[lbo1.Tag]);
  Tbreite:=clientwidth;
  THoehe:=clientheight;
  zeichnequad(0,0,0,30);
 
    //Aufladbalken
      if aufladen <> 0 then
        begin
            setzetextur(TexturAufladen);
 
            I:=screentoclient(mouse.CursorPos).X ;
            J:=screentoclient(mouse.CursorPos).Y -10;
            Tbreite:=47;
 
            if aufladen>0 then
            zeichnequad(I-24,J-8,-10,0,0,47/128,0,1)
            else
            zeichnequad(I-24,J-8,-10,0,47/128,94/128,0,1);
 
 
 
            //Miniball
            Tbreite:=16;
          grad := (30) * abs(aufladen / mab[mannschaft1].schusskraft);
          zeichnequad(I-24+round(grad),J-8,-9,0,94/128,110/128,0,1);
 
        end;
 
 
    //popupmenü
      if popup in [1..5] then
        begin
 
        setzetextur(TexturPopups);
        Tbreite:=32;
 
  //bilder auswählen
          case popupstufe of
            haupt: begin PX[1]:=1;PX[2]:=9;PX[3]:=4;PX[4]:=6;    end;
            kreis: begin PX[1]:=0;PX[2]:=1;PX[3]:=2;PX[4]:=7;    end;
            rechteck_h: begin PX[1]:=8;PX[2]:=9;PX[3]:=10;PX[4]:=7;    end;
            rechteck_v: begin PX[1]:=3;PX[2]:=4;PX[3]:=5;PX[4]:=7;    end;
          end;
 
 
 
  //laden der bilder
 
  //positionierung der buttons
          impopup1.left := round(mdaten.daten[popup].stapelbefehle[0].x +
            cos(degtorad(300)) * breite * 2.5 - (impopup1.width / 2));
          impopup1.top := round(mdaten.daten[popup].stapelbefehle[0].y +
            sin(degtorad(300)) * breite * 2.5 - (impopup1.height / 2));
          impopup1.visible := true;
 
          impopup2.left := round(mdaten.daten[popup].stapelbefehle[0].x +
            cos(degtorad(340)) * breite * 2.5 - (impopup2.width / 2));
          impopup2.top := round(mdaten.daten[popup].stapelbefehle[0].y +
            sin(degtorad(340)) * breite * 2.5 - (impopup2.height / 2));
          impopup2.visible := true;
 
          impopup3.left := round(mdaten.daten[popup].stapelbefehle[0].x +
            cos(degtorad(20)) * breite * 2.5 - (impopup3.width / 2));
          impopup3.top := round(mdaten.daten[popup].stapelbefehle[0].y +
            sin(degtorad(20)) * breite * 2.5 - (impopup3.height / 2));
          impopup3.visible := true;
 
          impopup4.left := round(mdaten.daten[popup].stapelbefehle[0].x +
            cos(degtorad(60)) * breite * 2.5 - (impopup4.width / 2));
          impopup4.top := round(mdaten.daten[popup].stapelbefehle[0].y +
            sin(degtorad(60)) * breite * 2.5 - (impopup4.height / 2));
          impopup4.visible := true;
 
          for I:=1 to 4 do
            begin
                if PX[I] in [0..7] then
                   zeichnequad(Timage(findcomponent('impopup'+inttostr(I))).left,
                               Timage(findcomponent('impopup'+inttostr(I))).top,
                                -8,0, PX[I]*32/256,(PX[I]+1)*32/256,0,1)
                else
                begin
                PX[I]:=PX[I]-5;
                   zeichnequad(Timage(findcomponent('impopup'+inttostr(I))).left,
                               Timage(findcomponent('impopup'+inttostr(I))).top,
                                -8,4, PX[I]*32/256,(PX[I]+1)*32/256,0,1)
                end;
 
 
            end;
 
 
        end
      else
        begin
          impopup1.visible := false;
          impopup2.visible := false;
          impopup3.visible := false;
          impopup4.Visible := false;
        end;
 
 
     //Spielinfo
   setzetextur(texturspielinfo);
   zeichnequad(width - randlinks - Tbreite,
               randoben - Thoehe - 2,-8,0);
 
   setzetextur(Texturfahnen[mannschaft1]);
   Tbreite:=22;
   Thoehe:=22;
   zeichnequad(width - randlinks - 225,
               randoben - Thoehe - 6,-7,0);
   setzetextur(Texturfahnen[mannschaft2]);
   Tbreite:=22;
   Thoehe:=22;
   zeichnequad(width - randlinks - 155,
               randoben - Thoehe - 6,-7,0);
 
 
 
 
   zeichnespieltext;
 
   zeichnelinien;
   if abstandkreis then
   begin
   glEnable(GL_LINE_STIPPLE);
   glLineStipple(3, $AAAA);
   zeichnekreis(round(ball.posi.x),round(ball.posi.y),breite*5,360);
   glDisable(GL_LINE_STIPPLE);
   end;
 
 
 
   }
 
    glDisable(GL_TEXTURE_2D);
 
    glcolor3f(1,0,0);
 
    Tbreite:=100;
    Thoehe:=100;
    zeichnequad(250,250,-12,0);
 
 
  //  glEnable(GL_LINE_STIPPLE);
  //  glLineStipple(3, $AAAA);
    glLineWidth(1);
 
 
    glbegin(GL_LINE_STRIP);
    glVertex3f(clientwidth div 2,
               clientheight div 2,
               12);
 
    glVertex3f(0,
               0,
               12);
    glend;
 
   glRasterPos3f(width div 2,
                 height div 2,
                -25);  // (sichtbare) Rasterposition eintellen
 
  showtext('allo',spielfont);
 
 
 
 
SwapBuffers(DC);
end;
 
 
 

Edit by i0n0s: Pascal-Tags...

_________________
Those who fear the dark never saw what light can do...

Bedecke deinen Himmel Zeus...

Fetter grüne du Laub...

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Fr Aug 08, 2008 01:34

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Ich hab deinen Code mal in ein leeres Projekt übernommen. Wenn ich wie anfangs erwähnt als Z-Koordinate bei den glVertex3fs der GL_LINE_STRIP -12 statt 12 übergebe, dann sehe ich die gewünschte rote Linie auf blau, inklusive dem "allo" und dem Quad.

Von daher fällt mir auch nicht mehr viel ein, außer es auf Treiber oder Hardware zu schieben.

MfG

Nach oben

Jann1k

Betreff des Beitrags:

Verfasst: Fr Aug 08, 2008 08:37

DGL Member

Registriert: Di Okt 23, 2007 18:03
Beiträge: 49
Wohnort: Dortmund-Scharnhorst

Okay, kann jetzt nicht sagen, ob ein vorheriger Tipp das Problem gelöst hätte, weil ich wohl vergessen hab die 12 wieder in -12 zu ändern. Aber mit aktualisiertem Grafikkarten-Treiber klappt es jetzt endlich.

Danke an alle, mein Tag ist gerettet.

_________________
Those who fear the dark never saw what light can do...

Bedecke deinen Himmel Zeus...

Fetter grüne du Laub...

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Aug 08, 2008 08:37

DGL Member

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

Bei mir das Selbe. Ich sehe die Linie nur, wenn ich die Position in -12 verändere. Was auch vollkommen normal ist.

Und das sowohl mit Hardbeschleunigtem OpenGL als auch in der Software implementation von MS. Und die Softwareseitige Implementation sollte überall eigentlich gleich sein, da Microsoft dort seit ca 1996 nichts mehr verändert hat. Wie das in Vista aussieht weiß ich aber nicht, da dort OpenGL ja auch mal emuliert werden sollte.

Hast du schon mal andere Programme ausprobiert? Da könnte ich dir zum Beispiel meinen VU Meter anbieten. Der besteht nur aus Linien, Punkten, Bitmapfonts und 2 Quads.

In dem VU Meter zeichne ich die im übrigen so, dass ich bei glOrtho als zNear = -1 und zFar = 1 einstelle. Und alle Vertices zeichne ich mit glVertex2*. Damit ist die dritte Komponente (Z) immer 0.

Nach oben

Jann1k

Betreff des Beitrags:

Verfasst: Fr Aug 08, 2008 08:45

DGL Member

Registriert: Di Okt 23, 2007 18:03
Beiträge: 49
Wohnort: Dortmund-Scharnhorst

Z war ja am Anfang auf alle Fälle auf -12, dann kam der Vorschlag das mal auf 12 zu ändern, hatte es wohl nicht rückgängig gemacht.

Die z Komponente immer auf 0 zu setzen ist zwar schön einfch, aber wie würde ich denn dann die Tiefensortierung meiner Quads vornehmen? Läuft das dann über die Reihenfolge in der man zeichnet?

Und weil das Thema ja beantwortet wurde: Gibt es hier im Forum die Mölichkeit ein Topic als "gelöst" zu markieren? konnte keine Einstellung dazu finden

_________________
Those who fear the dark never saw what light can do...

Bedecke deinen Himmel Zeus...

Fetter grüne du Laub...

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Aug 08, 2008 10:36

DGL Member

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

Nö solch ein Flag gibt es im Forum nicht. Es gibt aber auch kein Flag, dass es sich dabei um eine Frage handelt.

Wenn die Tiefen gleich sind, und nicht vom Tiefentest ausgeschlossen werden, dann ist die Reihenfolge des Gezeichneten ausschlaggebend. Aber die Reihenfolge ist auch ausschlaggebend, wenn dort Transparenzen zum Einsatz kommen. Der Tiefentest sollte dann entweder auf GL_LEQUAL stehen wenn er nicht sogar deaktiviert werden kann. Wenn du die Reihenfolge sowieso beachten musst kann es sein, dass du den Tiefentest(Tiefenbuffer) gar nicht benötigst. Für 2D auch nicht unbedingt unwahrscheinlich.

PS: Was ich in deinem Code auch gesehen hatte. Du solltest bei GenTextures der Texturen kein False übergeben. Denn auf Systemen, die keine NPOT Texturen können aber solche Texturen benutzt werden, bleiben diese ohne Kommentar einfach weiß. Das würde man dann nur merken, wenn man OpenGL Fehler erfragt. Wenn der Parameter True oder leer ist, dann würdest du eine Exception bekommen, wenn solche Texturen nicht unterstützt würden.

PPS: Alphatest und Blending solltest du meiner Meinung nach nur dann aktivieren, wenn du sie auch wirklich brauchst. Bzw in manchen Fällen kann die Kombination (Alphatest und Blending) auch zu unschönen Effekten führen.

Nach oben

Jann1k

Betreff des Beitrags:

Verfasst: Fr Aug 08, 2008 10:42

DGL Member

Registriert: Di Okt 23, 2007 18:03
Beiträge: 49
Wohnort: Dortmund-Scharnhorst

Zitat:

Du solltest bei GenTextures der Texturen kein False übergeben. Denn auf Systemen, die keine NPOT Texturen können aber solche Texturen benutzt werden, bleiben diese ohne Kommentar einfach weiß.

Ja stimmt, die fehlerhaften Texturen werden noch ausgewechselt, die stammen noch aus der vor OGL Zeit des Programms.

Danke auch für die restlichen Hinweise, den alphatest kann ich denke ich wirklich weglassen.

_________________
Those who fear the dark never saw what light can do...

Bedecke deinen Himmel Zeus...

Fetter grüne du Laub...

Nach oben

Seite 2 von 2

[ 25 Beiträge ]

Gehe zu Seite Vorherige 1, 2

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.