DGL • Thema anzeigen - Problem mit selection...

Problem mit selection...

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Michael

Betreff des Beitrags: Problem mit selection...

Verfasst: Di Nov 29, 2005 16:32

DGL Member

Registriert: Mi Feb 02, 2005 14:22
Beiträge: 81

Hallo Forum!
Nach längerer Pause beschäftige ich mich wieder mit OpenGL. Ich habe das Selection-Tut gelesen, habe aber immer noch Probleme. Dieses Problem ist zwar bereits in einigen Beiträgen behandelt worden, aber die dortigen Hinweise haben mir leider nicht weiter geholfen.
Vielleicht liegt es daran, dass ich jetzt schon recht lange immer und immer wieder denselben Quelltext lese und den Fehler immer wieder übersehe…

Wenn ich das Programm starte, bekomme ich immer die Meldung „Sie haben auf das Dreieck geklickt“. Stimmt aber nicht

Vielleicht ist ja jemand von euch so gnädig zum x-ten Male „dieses“ Problem zu lösen.

MfG,
Michael

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DGLOpenGL, ExtCtrls, ComCtrls, StdCtrls;
 
type
TForm1 = class(TForm)
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private    { Private-Deklarationen }
    StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    procedure SetupGL;
//    procedure Init;       // Leere Prozedur \"für Variablen\"
    procedure Render;
    procedure ErrorHandler;
  public    { Public-Deklarationen }
    DC                                : HDC;  //Handle auf ZeichenflÃ¤che
    RC                                : HGLRC;//Rendering Context
  end;
 
var
  Form1: TForm1;
  xs,ys : integer;
 
const
  NearClipping = 1;
  FarClipping  = 1000;
 
  dreieck = 1;
  viereck = 2;
  stern = 3;
  namen : array[-1..3] of string = ('nichts', '', 'das Dreieck', 'das Viereck', 'den Stern');
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ErrorHandler;
begin
  Form1.Caption := gluErrorString(glGetError);
end;
 
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  StartTime:= GetTickCount;
  Render;
  DrawTime:= GetTickCount - StartTime;
  Inc(TimeCount, DrawTime);
  Inc(FrameCount);
 
  if TimeCount >= 1000 then begin
    Frames:= FrameCount;
    TimeCount:= TimeCount - 1000;
    FrameCount:= 0;
    Form1.Caption:= InttoStr(Frames) + 'FPS';
    ErrorHandler;
  end;
 
  Done:= false;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.FormResize(Sender: TObject);
var
  tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool);
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.0, 0.0, 0.0, 0.0); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
//  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
  SetupGL;
end;
 
procedure TForm1.Render;
begin
glMatrixMode(GL_MODELVIEW);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen
 
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
//Perspektive wird gesetzt
gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
glTranslatef(0,0,-6);
 
glinitnames;
glpushname(0);
 
glMatrixMode(GL_MODELVIEW);
 
glLoadIdentity;
//gltranslatef(0,0,-6);
 
glcolor3f(1,0,0);
glloadname(dreieck);
glbegin(gl_triangles);
  glvertex3f(-0.5,1,0);
  glvertex3f(0.5,1,0);
  glvertex3f(0,2,0);
glend;
 
glcolor3f(0,1,0);
glloadname(viereck);
glbegin(gl_quads);
  glvertex3f(-1,0,0);
  glvertex3f(-2,0,0);
  glvertex3f(-2,-1,0);
  glvertex3f(-1,-1,0);
glend;
 
glcolor3f(1,1,0);
glloadname(stern);
glbegin(gl_triangles);
  glvertex3f(1,0,0);
  glvertex3f(2,0,0);
  glvertex3f(1.5,-1,0);
 
  glvertex3f(1,-0.65,0);
  glvertex3f(2,-0.65,0);
  glvertex3f(1.5,0.35,0);
glend;
 
SwapBuffers(DC);                             //scene ausgeben
end;
 
function Selection : integer;
var
Puffer       : array[0..256] of GLUInt;
Viewport     : TGLVectori4;  // ehemals array[0..3] of Integer
Treffer,i    : Integer;
Z_Wert       : GLUInt;
Getroffen    : GLUInt;
begin
glGetIntegerv(GL_VIEWPORT, @viewport);      //Die Sicht speichern
glSelectBuffer(256, @Puffer);               //Den Puffer zuordnen
glRenderMode(GL_SELECT);                    //In den Selectionsmodus schalten
glmatrixmode(gl_projection);                //In den Projektionsmodus
glPushMatrix;                               //Um unsere Matrix zu sichern
glLoadIdentity;                             //Und dieselbige wieder zurückzusetzen
 
gluPickMatrix(xs, viewport[3]-ys, 1.0, 1.0, viewport);       // ehemals @viewport
gluPerspective(45.0, form1.ClientWidth/form1.ClientHeight, 1, 100);
 
Form1.Render;                                     //Die Szene zeichnen
glmatrixmode(gl_projection);                //Wieder in den Projektionsmodus
glPopMatrix;                                //um unsere alte Matrix wiederherzustellen
 
treffer := glRenderMode(GL_RENDER);         //Anzahl der Treffer auslesen
 
Getroffen := High(GLUInt);                  //Höchsten möglichen Wert annehmen
Z_Wert := High(GLUInt);                     //Höchsten Z - Wert
for i := 0 to Treffer-1 do
if Puffer[(i*4)+1] < Z_Wert then
 begin
 getroffen       := Puffer[(i*4)+3];
 Z_Wert := Puffer[(i*4)+1];
 end;
 
 Result := getroffen;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   inc(FrameCount);
   Render;
   If FrameCount = 20 then
      begin
           ErrorHandler;
           FrameCount := 0;
      end;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xs := x;
ys := y;
statusbar1.Simpletext := 'Sie haben auf ' + namen[selection] + ' geklickt!';
end;
 
end.

[/pascal]

Nach oben

Michael

Betreff des Beitrags:

Verfasst: Mi Nov 30, 2005 09:31

DGL Member

Registriert: Mi Feb 02, 2005 14:22
Beiträge: 81

Etwas weiter bin ich gekommen...
Bei der unten beschriebenen Render-Prozedur wird alles wie gewollt gezeichnet. Allerdings bekomme ich in der StatusBar immer die Meldung:"Sie haben auch nichts geklickt!", was falsch ist.

Lasse ich Quelltextzeile 7 weg, wird zwar nichts gezeichnet, ich kann es aber anklicken! Die ungefähren Positionen der drei Objekte sind ja bekannt und ich kann sie ohne Zeile 7 tatsächlich anklicken...

...jetzt muss halt beides noch kombiniert werden

Ich hoffe mir kann dabei jemand helfen!

cu,
Michael

Code:

procedure TForm1.Render;
begin
glMatrixMode(GL_MODELVIEW);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen
 
glLoadIdentity;
gluPerspective(45.0, form1.ClientWidth/form1.ClientHeight, NearClipping, FarClipping);
gltranslatef(0,0,-6);
 
glinitnames;
glpushname(0);
 
glcolor3f(1,0,0);
glloadname(dreieck);
glbegin(gl_triangles);
  glvertex3f(-0.5,1,0);
  glvertex3f(0.5,1,0);
  glvertex3f(0,2,0);
glend;
 
glcolor3f(0,1,0);
glloadname(viereck);
glbegin(gl_quads);
  glvertex3f(-1,0,0);
  glvertex3f(-2,0,0);
  glvertex3f(-2,-1,0);
  glvertex3f(-1,-1,0);
glend;
 
glcolor3f(1,1,0);
glloadname(stern);
glbegin(gl_triangles);
  glvertex3f(1,0,0);
  glvertex3f(2,0,0);
  glvertex3f(1.5,-1,0);
 
  glvertex3f(1,-0.65,0);
  glvertex3f(2,-0.65,0);
  glvertex3f(1.5,0.35,0);
glend;
 
SwapBuffers(DC);                             //scene ausgeben
end;

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Nov 30, 2005 10:47

DGL Member

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

Du hast das Problem schon richtig erkannt. Dadurch, dass du die Perspektive noch einmal setzt zerschießt du dir entweder das eine oder das andere. Du macht verschiedene Dinge die eigentlich gar nicht nötig wären. Schau dir mal den Code aus den Selection Beitrag im Wiki genau an. Das ist zwar 2D aber bis auf die Tatsache, dass die Befehle glOrtho und gluPerpective ausgetaucht wurden nichts anderes.

In der Renderprocedur sollte es vollkommen genügen, wenn du deine Modelviewmatrix zurücksetzt. Das setzen der Perspektive und somit das Löschen der Peojectionmatrix solltest du dort besser lassen. Das hast du außerdem ja auch schon in der Methode Selection getan. Außerdem solltest du das SwapBuffers so gestalten, dass du den RenderMode abfragst und nur bei nicht selection den Bild schwapst. Beim Selektion wird nichts gezeichnet sondern lediglich etwas in einen Feedbackbuffer geschrieben.

Nach oben

Michael

Betreff des Beitrags:

Verfasst: Mi Nov 30, 2005 12:02

DGL Member

Registriert: Mi Feb 02, 2005 14:22
Beiträge: 81

Hui, jetzt hab ich es entlich hinbekommen! Danke :!:

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

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.