DGL • Thema anzeigen - teilweise Kreis nicht sichtbar und Reflektionsprobleme!!!

teilweise Kreis nicht sichtbar und Reflektionsprobleme!!!

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

juKx

Betreff des Beitrags: teilweise Kreis nicht sichtbar und Reflektionsprobleme!!!

Verfasst: Mo Feb 13, 2006 20:16

DGL Member

Registriert: Di Jan 24, 2006 16:26
Beiträge: 25

hi,

ich bin gerade dabei nen Prong oder Pong Spiel zu machen(2 Balken und nen Ball dazwischen). Der Ball oder Kreis läuft schon bloß ab 3/4 des Fensters sieht man ihn nicht mehr....kommt aber wieder wenn er abgeprallt ist...Beim linken und unteren rand des Formulares klappt das auch schon mit dem abprallen bloß oben und rechts nicht, weil ich ja nicht alles sehen kann !? Das Fenster hat überall die gleiche hintergrund farbe aber als wenn es da ein bereich gibt wo er einfach aufhört zu zeichen komisch!? Ich hoffe ich habe die wichtigsten prozeduren herausextrahiert...

Code:

 
procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glDisable(GL_CULL_FACE);          //Backface Culling deaktivieren, sonst Objekte transparent
end;
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, 480, 640);  //spannt die Fläche(640x480 Pixel) auf
  glMatrixMode(GL_PROJECTION);   //wählt MatrixMode = Projektion aus....
  glLoadIdentity;                //setzt die Worldmatrix auf (0,0,0)
  glOrtho(0,480,0,640, 0,128);   //es wird mit glortho nur im 2D Bereich gearbeitet
 
  glMatrixMode(GL_MODELVIEW);    //man geht über in die Modelviewansicht
  glLoadIdentity;                //wiederum Worldmatrix auf (0,0,0), weil andere Matrix
  IdleHandler(Sender, tmpBool);  //??
end;
 
 
procedure TForm1.Render;
var i:integer;
begin
  //Grundinitialisierung von OpenGL beim Rendern(Zeichnen)
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);  //Farbpuffer und Tiefenpuffer lehren; ist wie ein refresh bei Timer
 
  glMatrixMode(GL_PROJECTION);    //bestimmt den MatrixMode = Projektion
  glLoadIdentity;                 //setzt die Worldmatrix auf (0,0,0)
  glViewport(0,0,480,640); //spannt die Fläche auf
  glOrtho(0,480,0,640, 0,256);  //sagt das nur in 2D gearbeitet wird(z-Koordinate wird vernachlässigt)
 
  glMatrixMode(GL_MODELVIEW);
  //Ende Renderinitialisierung
 
  //Pfeiltasten belegen und Kontrolle ob nicht über den Rand hinaus...
  if GetAsyncKeyState(vk_left) < 0 then
    if btn_spieler.left-1>=0 then
      btn_spieler.Left:=btn_spieler.Left-1
    else
      btn_spieler.Left:=0;
  if GetAsyncKeyState(vk_right) < 0 then
    if btn_spieler.left+1<=form1.Width-btn_spieler.Width-6 then
      btn_spieler.left:=btn_spieler.Left+1
    else
      btn_spieler.Left:=form1.Width-btn_spieler.Width-6;
  //Ende Pfeiltastenkontrolle
  {---Kugel zeichnen---}
  glBegin(GL_TRIANGLE_FAN);
     for i:=0 to 150 do   //Anzahl der Punkte
       glVertex2f(Sin(2*Pi/150*i)*r+xm,Cos(2*Pi/150*i)*r+ym); //Eine kugel zeichnen
  glEnd;
      xm:=xm+vx;    //Bewegung in die Sache bringen
      ym:=ym+vy;
  {---bei Randberührung---}
      if xm+Sin(2*Pi/150*i)*r>=Form1.ClientWidth then //Rechts Rand
        vorz_wechsel_vx;
      if ym+Cos(2*Pi/150*i)*r>=Form1.ClientHeight then  //Oben Rand
        vorz_wechsel_vy;
      if xm-Sin(2*Pi/150*i)*r<=0 then  //links rand
        vorz_wechsel_vx;
      if ym-Cos(2*Pi/150*i)*r<=0 then  //unten Rand =
        vorz_wechsel_vy;
 
      SwapBuffers(DC);
end;
 
 

thx für die antworten

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Mo Feb 13, 2006 21:02

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Ändere das:

Code:

procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, 480, 640);  //spannt die Fläche(640x480 Pixel) auf
  glMatrixMode(GL_PROJECTION);   //wählt MatrixMode = Projektion aus....
  glLoadIdentity;                //setzt die Worldmatrix auf (0,0,0)
  glOrtho(0,480,0,640, 0,128);   //es wird mit glortho nur im 2D Bereich gearbeitet
 
  glMatrixMode(GL_MODELVIEW);    //man geht über in die Modelviewansicht
  glLoadIdentity;                //wiederum Worldmatrix auf (0,0,0), weil andere Matrix
  IdleHandler(Sender, tmpBool);  //??
end;

zu das:

Code:

procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, Width, Height);  //spannt die Fläche(640x480 Pixel) auf
  glMatrixMode(GL_PROJECTION);   //wählt MatrixMode = Projektion aus....
  glLoadIdentity;                //setzt die Worldmatrix auf (0,0,0)
  glOrtho(0,Width,0,Height, -10, 10);   //es wird mit glortho nur im 2D Bereich gearbeitet
 
  glMatrixMode(GL_MODELVIEW);    //man geht über in die Modelviewansicht
  glLoadIdentity;                //wiederum Worldmatrix auf (0,0,0), weil andere Matrix
  IdleHandler(Sender, tmpBool);  //??
end;

und das probiere es mal.

EDIT:
In Render Procedure, lösche folgendes:

Code:

  glMatrixMode(GL_PROJECTION);    //bestimmt den MatrixMode = Projektion
  glLoadIdentity;                 //setzt die Worldmatrix auf (0,0,0)
  glViewport(0,0,480,640); //spannt die Fläche auf
  glOrtho(0,480,0,640, 0,256);  //sagt das nur in 2D gearbeitet wird(z-Koordinate wird vernachlässigt)
 
  glMatrixMode(GL_MODELVIEW);
  //Ende Renderinitialisierung
 

Das Problemm liegt vermutlich daran, dass den Viewport kleiner ist als die Dimensionen der Form.

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

juKx

Betreff des Beitrags:

Verfasst: Mo Feb 13, 2006 21:32

DGL Member

Registriert: Di Jan 24, 2006 16:26
Beiträge: 25

hi,

mh leider hat es nicht geklappt was du geschrieben hast. denn jetzt sehe ich noch nicht einmal meinen kreis der rumfliegt?!

mfg juKx

Nach oben

sniper

Betreff des Beitrags: Re: teilweise Kreis nicht sichtbar und Reflektionsprobleme!!

Verfasst: Mo Feb 13, 2006 21:36

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Code:

procedure TForm1.FormResize(Sender: TObject);
//var tmpBool : Boolean;
begin
  glViewport(0, 0, Width, Height);  //spannt die Fläche(640x480 Pixel) auf
  glMatrixMode(GL_PROJECTION);   //wählt MatrixMode = Projektion aus....
  glLoadIdentity;                //setzt die Worldmatrix auf (0,0,0)
  glOrtho(0,Width,0,Height, -10,10);   //es wird mit glortho nur im 2D Bereich gearbeitet
 
  glMatrixMode(GL_MODELVIEW);    //man geht über in die Modelviewansicht
  glLoadIdentity;                //wiederum Worldmatrix auf (0,0,0), weil andere Matrix
  //IdleHandler(Sender, tmpBool);  //??
end;
 

und

Code:

procedure TForm1.Render;
var i:integer;
begin
  FormResize(nil); // na ja <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->
 
  //Grundinitialisierung von OpenGL beim Rendern(Zeichnen)
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);  //Farbpuffer und Tiefenpuffer lehren; ist wie ein refresh bei Timer
 
  //Pfeiltasten belegen und Kontrolle ob nicht über den Rand hinaus...
  if GetAsyncKeyState(vk_left) < 0 then
    if btn_spieler.left-1>=0 then
      btn_spieler.Left:=btn_spieler.Left-1
    else
      btn_spieler.Left:=0;
  if GetAsyncKeyState(vk_right) < 0 then
    if btn_spieler.left+1<=form1.Width-btn_spieler.Width-6 then
      btn_spieler.left:=btn_spieler.Left+1
    else
      btn_spieler.Left:=form1.Width-btn_spieler.Width-6;
  //Ende Pfeiltastenkontrolle
  {---Kugel zeichnen---}
  glBegin(GL_TRIANGLE_FAN);
     for i:=0 to 150 do   //Anzahl der Punkte
       glVertex2f(Sin(2*Pi/150*i)*r+xm,Cos(2*Pi/150*i)*r+ym); //Eine kugel zeichnen
  glEnd;
      xm:=xm+vx;    //Bewegung in die Sache bringen
      ym:=ym+vy;
  {---bei Randberührung---}
      if xm+Sin(2*Pi/150*i)*r>=Form1.ClientWidth then //Rechts Rand
        vorz_wechsel_vx;
      if ym+Cos(2*Pi/150*i)*r>=Form1.ClientHeight then  //Oben Rand
        vorz_wechsel_vy;
      if xm-Sin(2*Pi/150*i)*r<=0 then  //links rand
        vorz_wechsel_vx;
      if ym-Cos(2*Pi/150*i)*r<=0 then  //unten Rand =
        vorz_wechsel_vy;
 
      SwapBuffers(DC);
end;

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

juKx

Betreff des Beitrags:

Verfasst: Mo Feb 13, 2006 21:52

DGL Member

Registriert: Di Jan 24, 2006 16:26
Beiträge: 25

hi,

großes danke jetzt klappt es...aber was ist das mit dem "nil" das versteh ich nicht..gibt es jetzt nachteile oder muss ih sonst noch was beachten??

mfg juKx

Nach oben

Sidorion

Betreff des Beitrags:

Verfasst: Di Feb 14, 2006 10:26

DGL Member

Registriert: Mo Dez 20, 2004 08:58
Beiträge: 442
Wohnort: Mittweida (Sachsen)

Solange Du im FormResize nicht auf den Sender zugreifst, hast Du keine Probleme ... wenn Du zugreifen musst, dann prüfe vorher, ob er gültig ist:

Code:

If Assigned(Sender)

_________________
Manchmal sehen Dinge, die wie Dinge aussehen wollen, mehr wie Dinge aus, als Dinge.
<Esmerelda Wetterwax>
Es kann vorkommen, dass die Nachkommen trotz Abkommen mit ihrem Einkommen nicht auskommen und umkommen.

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: Google [Bot] 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.