DGL • Thema anzeigen - Objectselection

Objectselection

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Shaddow

Betreff des Beitrags: Objectselection

Verfasst: Di Sep 19, 2006 21:22

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Hi Leute, ich habe mal ne Frage. Im Zuge des Tutorials Objectselection habe ich einen kleinen Planeeditor geschrieben. Tja eigentlich funktioniert er ganz gut, aber er hat ein paar kleine Bugs, die ich einfach nicht wegbekomm....

Also der erste Cube (dem betrachter am naehsten auf der linken seite also mit den Coords (Min(X),Y=0,Max(Z))) der laesst sich nur in den seltensten Faellen so nach oben und unten ziehen, wie ich das will... Manchmal bewegen sich stattdessen auch andere Cubes aber das gabs schon einige Zeit nichtmehr. Im Normalfall laesst der Cube sich gar nicht bewegen oder er bewegt einen Cube hinter sich also den Cube, dessen Z Wert eins kleiner ist, als der abgesprochene...

Die andere Geschichte ist folgende: Bisher packt man einen Cube an, zieht, laesst los und zack ist er da. Eigentlich will ich aber, dass der Cube sich schon (virtuell) beim MouseMove bewegt (da bau ich dann noch ein Blending ein, dass er etwas transparent wirkt). Das umzusetzen ist ja an sich ganz simpel. Eben das ganze ins MouseMove rein etc. allerdings wird der Cube nur sehr wenig bewegt, wenn ich ihn per MouseMove nach oben oder unten ziehe, anstatt dass er sich die ganze Zeit mit meiner Mouse mitbewegt. Tja an sich wären Bilder besser, aber ich habe grad kein vernünftiges Grafikprogramm zur Hand und mit Paint will ich mich nicht abmuehen.

Hoffe ihr versteht das Prob.
Sourcecode (komplett mit allen Auskommentierungen, die ich vllt noch irgendwie rausnehmen würde etc...)

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
 
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure SetupGL();
    procedure Render();
    function Selection(x,y:integer):integer;
  public
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
  end;
 
const
  NearClipping=1;
  FarClipping =1000;
  X = 15;
  Y = 15;
  Diff = 0.05;
  Dist = 0.4;
 
var
  Form1: TForm1;
 
implementation
 
uses dglOpenGL;
 
{$R *.dfm}
 
type TMap = Array[1..X,1..Y] of packed record
      X: Real;
      Y: Real;
      Z: Real;
     end;
 
var Map:TMap;
    intnames : Array[-1..X*Y] of Integer;
    names : Array[-1..X*Y] of String;
    MX, MY, LastSelected, Hover: integer;
    NewMZ, TranslateZ, TranslateX:Real;
    Clicked: Boolean =FALSE;
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j:Integer;
begin
  for i:=1 to X do
  begin
    for j:=1 to Y do
    begin
      if (i=1) and (j=1) then
      begin
        Map[i,j].X := Dist;
        Map[i,j].Y := 0;
        Map[i,j].Z := Dist;
      end
      else if (i=1) then
      begin
        Map[i,j].X := Map[i,j-1].X+Dist;
        Map[i,j].Y := 0;
        Map[i,j].Z := Map[i,j-1].Z;
      end
      else if (j=1) then
      begin
        Map[i,j].X := Map[i-1,j].X;
        Map[i,j].Y := 0;
        Map[i,j].Z := Map[i-1,j].Z+Dist;
      end
      else
      begin
        Map[i,j].X := Map[i,j-1].X+Dist;
        Map[i,j].Y := 0;
        Map[i,j].Z := Map[i,j-1].Z;
      end;
    end;
  end;
 
//  names[-1]:='nichts';
  names[0]:='';
  for i:=0 to X*Y do
  begin
    intnames[i]:=i;
    names[i]:='objekt '+inttostr(i DIV X)+'-'+inttostr(i MOD Y);
  end;
 
 
  DC := GetDC(Handle);
  RC := CreateRenderingContext(DC,          //Device Contest
                               [opDoubleBuffered], //Optionen
                               32,          //ColorBits
                               24,          //ZBits
                               0,           //StencilBits
                               0,           //AccumBits
                               0,           //AuxBuffers
                               0);          //Layer
  ActivateRenderingContext(DC, RC);
  SetupGL();
end;
 
procedure TForm1.SetupGL();
begin
  glClearColor(0.0, 0.0 ,0.0, 0.5); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
//  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, form1.clientWidth, form1.clientHeight);    // Setzt den Viewport für das OpenGL Fenster
  glMatrixMode(GL_PROJECTION);        // Matrix Mode auf Projection setzen
  glLoadIdentity();                   // Reset View
  gluPerspective(45.0, form1.clientWidth/form1.clientHeight, 1, 1000);  // Perspektive den neuen Maßen anpassen.
  glMatrixMode(GL_MODELVIEW);         // Zurück zur Modelview Matrix
  glLoadIdentity();
end;
 
procedure TForm1.Render();
var i,j:integer;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
 
  glPushMatrix();
  glTranslatef(-2+TranslateX,-1,-7+TranslateZ);
  glColor3f(1,1,1);
 
  glBegin(GL_LINES);
    glColor3f(1,1,0);
    glVertex3f(-10,0,0);
    glVertex3f(10,0,0);
    glColor3f(0,1,0);
    glVertex3f(0,-10,0);
    glVertex3f(0,10,0);
    glColor3f(0,0,1);
    glVertex3f(0,0,-10);
    glVertex3f(0,0,10);
 
    glColor3f(1,1,1);
    
      for i:=1 to X do
      begin
        for j:=1 to Y do
        begin
          if (i<>X) then
          begin
            glVertex3f(Map[i,j].X,Map[i,j].Y,Map[i,j].Z);
            glVertex3f(Map[i+1,j].X,Map[i+1,j].Y,Map[i+1,j].Z);
          end;
 
          if (j<>Y) then
          begin
            glVertex3f(Map[i,j].X,Map[i,j].Y,Map[i,j].Z);
            glVertex3f(Map[i,j+1].X,Map[i,j+1].Y,Map[i,j+1].Z);
          end;
        end;
      end;  
    glEnd();
 
 
  glColor3f(1,0,0);
  
  for i:=1 to X do
  begin
    for j:=1 to Y do
    begin
      glLoadName(i*X+j);
      glBegin(GL_LINE_STRIP);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
 
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z+Diff);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z+Diff);
 
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
 
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
 
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y+Diff,Map[i,j].Z+Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y-Diff,Map[i,j].Z+Diff);
 
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
      glEnd();
 
      glBegin(GL_LINES);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z+Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y+Diff,Map[i,j].Z+Diff);
 
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
 
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z+Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y-Diff,Map[i,j].Z+Diff);
      glEnd();
 
    end;
  end;
 
  glColor3f(1,1,1);
  glEnable(GL_BLEND);
  glBlendFunc(GL_ONE_MINUS_DST_ALPHA, GL_ZERO);
  for i:=1 to X do
  begin
    for j:=1 to Y do
    begin
      if (Hover=i*X+J) then glColor3f(1,0,0);
 
      glLoadName(i*X+j);
      glBegin(GL_QUAD_STRIP);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
 
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z+Diff);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z+Diff);
 
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y-Diff,Map[i,j].Z+Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y+Diff,Map[i,j].Z+Diff);
 
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
        glVertex3f(Map[i,j].X+Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
 
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y-Diff,Map[i,j].Z-Diff);
        glVertex3f(Map[i,j].X-Diff,Map[i,j].Y+Diff,Map[i,j].Z-Diff);
      glEnd();
 
      if (Hover=i*X+J) then glColor3f(1,1,1);
    end;
  end;
 
  glDisable(GL_BLEND);
  glPopMatrix();
 
  SwapBuffers(DC);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Render();
end;
 
function TForm1.Selection(x,y:integer) : integer;
var
  SelectBuffer       : array[0..512] of GLUInt;
  Viewport     : TGLVectori4;
  Treffer,i    : Integer;
  Z_Wert       : GLUInt;
  Getroffen    : GLUInt;
begin
  glGetIntegerv(GL_VIEWPORT, @viewport);
  glSelectBuffer(512, @SelectBuffer);
  glRenderMode(GL_SELECT);
  glInitNames;
  glPushName(0);
  glMatrixMode(GL_PROJECTION);
  glPushMatrix;
    glLoadIdentity;
    gluPickMatrix(X, viewport[3]-Y, 1.0, 1.0, viewport);
    gluPerspective(45.0, ClientWidth/ClientHeight, 1, 1000);
 
    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
  begin
    if SelectBuffer[(i*4)+1] < Z_Wert then
    begin
     getroffen       := SelectBuffer[(i*4)+3];
     Z_Wert := SelectBuffer[(i*4)+1];
    end;
  end;
//ShowMessage(inttostr(getroffen));
  Result := getroffen;
end;
 
 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Clicked:=TRUE;
 
  MX := x;
  MY := y;
  NewMZ := 0;
 
  Hover:=Selection(X,Y);
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin {
  if Clicked = TRUE then
  begin
    if MY<Y then NewMZ:=NewMZ - (Y-MY)/100
    else NewMZ:=NewMZ + (MY-Y)/100;   {
    if MY<Y then NewMZ:=NewMZ-0.01
    else NewMZ:=NewMZ+0.01;
//       ShowMessage('hoch');
 
    LastSelected:=selection;
  end;  }
  if (Clicked=FALSE) then Hover:=Selection(X,Y);
 
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Clicked:=FALSE;
 
  if MY<Y then NewMZ:=NewMZ - (Y-MY)/100
  else NewMZ:=NewMZ + (MY-Y)/100;
 
  LastSelected:=selection(MX,MY);
 
  if (LastSelected<100000) then
  begin
    Map[LastSelected DIV X,LastSelected MOD Y].Y := Map[LastSelected DIV X,LastSelected MOD Y].Y+NewMZ;
//    ShowMessage(inttostr(LastSelected)+'- Div X: '+inttostr(LastSelected DIV X)+'- Div Y: '+inttostr(LastSelected MOD X));
  end;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key =vk_down) then TranslateZ:=TranslateZ-0.1
  else if (Key =vk_up) then TranslateZ:=TranslateZ+0.1
  else if (Key =vk_right) then TranslateX:=TranslateX-0.1
  else if (Key =vk_left) then TranslateX:=TranslateX+0.1;
end;
 
end.

Da @ mom mein Webspace spinnt, muss ich euch bitten, das Prog selbst zu compilieren, sonst haet ich ne Demo mit hochgeladen..
Danke schonmal im Vorraus.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mi Sep 20, 2006 11:57

Guitar Hero

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

Wegen dem Dragging: Einfach die alte und neue MousePos subtrahieren und entsprechend das Objekt translaten. Oder was war dein Problem?

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

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Mi Sep 20, 2006 14:20

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Das macht er ja hier schon:

Code:

 
if MY<Y then NewMZ:=NewMZ - (Y-MY)/100
else NewMZ:=NewMZ + (MY-Y)/100;

Das /100 is nur, weil die MouseCoordinaten ja in Pixeln angegeben werden und 20 Pixeln nicht im Mindesten 20 Achseneinheiten entsprechen bei der momentanen ZPosition. Mit 100 gehts recht gut, aber er zieht beim OnMouseMove trotzdem nur minimal, nicht die ganze Zeit, wenn ich die Maus bewege.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mi Sep 20, 2006 16:14

Guitar Hero

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

Schnapp dir mal einen Debugger und guck dir mal die Werte an. Ich glaube nicht, dass das so wies dort steht dem entspricht was du willst. Allerdings bin ich nach 8h arbeit zu "Betriebsblind" um deinen Code zu berichtigen. Guck dir einfach mal die Werte im Debugger an und vergleich die mit dem was du willst.

(If Debugg_Problem then DGL_Debug_Tutorial.enter)

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

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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