DGL • Thema anzeigen - Heightmap Problem

Heightmap Problem

Moderator: DGL-Team

Seite 1 von 1

[ 13 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seth

Betreff des Beitrags: Heightmap Problem

Verfasst: Fr Okt 20, 2006 12:32

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

hi, ich hab gerade das heightmap tutorial durchgearbeitet und irgendwie läuft es net so wie es soll

ich sehe nämlich nix.
ich habe ein bmp mit einer größe von 256*256px

eine variable

Code:

 
const
  gridsize = 64;

ich verstehe nicht, was in dem tutorial mit mapsize gemeint ist, außerdem sehen meine vektoren ein wenig anders aus, was mich ohnehin noch mehr verwirrt.

im oncreate erzeuge ich meine displayliste:

Code:

 
  hmap := glGenLists(1);
 

ich denke das ist sinnvoller als die heightmap bei jeden renderdurchgang zu berechnen.

und zu berechne ich die heightmap:

Code:

 
procedure TMainForm.GenerateHeightMap(var abmp: TBitmap);
const
  Position: Array[0..3] of Array[0..1] of Byte = ((0,0),(0,1),(1,1),(1,0));
var
  X, Y, Z: LongInt;
  Vertices: Array[0..3] of TVector3D;
 
  procedure DrawTriangle(V1, V2, V3: Integer);
  var
    Normal : TVector3D;
  begin
    Normal := v3d_CrossProduct(v3d_sub(Vertices[V1], Vertices[V2]), v3d_sub(Vertices[V2], Vertices[V3]));
    v3d_Normalize(Normal);
    glNormal3fv(@Normal.x);
    glBegin(GL_TRIANGLES);
      glVertex3fv(@Vertices[V1].x);
      glVertex3fv(@Vertices[V2].x);
      glVertex3fv(@Vertices[V3].x);
    glEnd;
  end;
 
var
  i, j: integer;
  heightmap: array [0..gridsize, 0..gridsize] of Byte;
begin
  for i := 0 to gridsize do
    for j := 0 to gridsize do
      heightmap[i, j] := Trunc(aBmp.Canvas.Pixels[Trunc(i / gridsize * aBmp.Width), Trunc(j /gridsize * aBmp.Height)] / clWhite * 255);
 
  glNewList(hmap, GL_COMPILE);
  for X := 0 to gridsize - 1 do
    for Y := 0 to gridsize - 1 do
    begin
      //Alle Vertieces erzeugen
      for Z := 0 to 3 do
      begin
        Vertices[I].x := (X + Position[I][0]) / gridsize * 1;
        Vertices[I].z := (Y + Position[I][1]) / gridsize * 1;
        Vertices[I].y := HeightMap[X + Position[I][0], Y +Position[I][0]]
      end;
      DrawTriangle(0, 1, 3);
      DrawTriangle(1, 2, 3)
    end;
  glEndList;
end;
 

mnerkwürdig finde ich ebenso, dass der durchlauf einmal bis gridsize und einmal bis gridsize - 1 geht, deshalb habe ich die beiden schleifen noch nicht zusammengefasst, ich könnte mir dann auch das zwischenspeichern in der variable heightmap sparen.

meine vektoren sind records (x, y, z);

naja wie gesagt, zu sehen ist nichts, auch wenn ich die 1 durch 1000 ersetze.

ich hoffe ihr könnt mir helfen und mich ein wenig aufklären, ich habe den grundgedanken verstanden, hätte es aber anders gemacht, ich steige da noch nicht ganz durch. die erste änderung zb die ich schon umgesetzt habe ist die displaylist. des weiteren würde ich die height map in einer größe von 1*1*x wobei 0<x<1 generieren, damit ich sie leicht in meine gewünschte größe skalieren kann.

vielen dank schonmal,

€: ich hab das ganze jetzt nochmal auf meine weise gemacht, erstmal ohne höheninformationen, aber ich sehe immernoch nichts, irgendwas ist da faul:

mfg

Code:

 
procedure TMainForm.GenerateHeightMap(var abmp: TBitmap);
var
  i, j: integer;
begin
  glNewList(hmap, GL_COMPILE);
  for i := 0 to gridsize - 1 do
    for j := 0 to gridsize - 1 do
    begin
      glBegin(GL_TRIANGLE_STRIP);
        glVertex3f(i / gridsize, j / gridsize, 0);
        glVertex3f(i / gridsize, (j + 1) / gridsize, 0);
        glVertex3f((i + 1)  / gridsize, j / gridsize, 0);
        glVertex3f((i + 1) / gridsize, (j + 1) / gridsize, 0); 
      glEnd;
    end;
  glEndList;
end;
 

ahja ups hatte net generiert

jetzt probier ich die höheninformationen zu machen

außerdem sind y und z vertauscht

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Fr Okt 20, 2006 15:42

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

so, nun endlich klappt das ganze, jedoch sieht das von der anderen seite ein wenig merkwürdig aus, sprich ich hab löcher drin, warum Oo

Code:

 
const
  gridsize = 64;
 
procedure TMainForm.GenerateHeightMap(abmp: TBitmap);
  function CalcHeight(const i, j: integer): single;
  begin
    result := abmp.canvas.Pixels[abs(round(i * abmp.width / gridsize) - 1),
                                 abs(round(j * abmp.width / gridsize) - 1)] / clwhite;
  end;
var
  i, j: integer;
begin
  glNewList(hmap, GL_COMPILE);
  for i := 0 to gridsize - 1 do
    for j := 0 to gridsize - 1 do
    begin
      glBegin(GL_TRIANGLE_STRIP);
        glColor3F(1, 0, 0); glVertex3f(i / gridsize      , CalcHeight(i    , j)    ,  j      / gridsize);
        glColor3F(0, 1, 0); glVertex3f(i / gridsize      , CalcHeight(i    , j + 1), (j + 1) / gridsize);
        glColor3F(1, 0, 1); glVertex3f((i + 1) / gridsize, CalcHeight(i + 1, j)    ,  j      / gridsize);
        glColor3F(1, 1, 0); glVertex3f((i + 1) / gridsize, CalcHeight(i + 1, j + 1), (j + 1) / gridsize);
      glEnd;
    end;
  glEndList;
end;
 

vielen dank schonmal

mfg

Zuletzt geändert von Seth am Sa Okt 21, 2006 10:31, insgesamt 2-mal geändert.

Nach oben

Delphic

Betreff des Beitrags:

Verfasst: Fr Okt 20, 2006 15:44

DGL Member

Registriert: Do Mai 30, 2002 18:48
Beiträge: 1617

ohne nochmal ins tutorial gesehen zu haben, wird sicherlich einmal die rede von der größe des bitmaps sein und das andere die anzahl der punkte nach denen am ende die karte angezeigt wird - der rest der informationen des bitmaps geht dann verloren.. kann man so machen, ist aber nicht zwingen notwendig.

dann sind die schleifen unterschiedlich, weil im einen werden in heightmap[] in jede reichtung gridsize + 1 informationen aus dem bitmap abgelegt.
die andere schleife ist dann absichtlich anders, weil immer auch auf die nachbarn zugegriffen wird. das ist dann interessant, was an den rändern passiert, weil du keine überhängenden dreiecke erzeugen darfst: sonst greifst du ja aus deinem array heightmap heraus.

was jetzt allerdings deine wesentliche frage sein soll hab ich nicht verstanden, oder war sie das jetzt....?

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Fr Okt 20, 2006 16:11

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

naja ich habs ja jetzt selbst gemacht und es funzt soweit, aber wenn man das ganze von einer anderen seite betrachtet sind da löcher drin, warum weiß ich auch net, auf jedenfall sieht das lückenhaft aus

Code:

 
procedure TMainForm.GenerateHeightMap(abmp: TBitmap);
  function CalcHeight(const i, j: integer): single;
  begin
    result := abmp.canvas.Pixels[abs(round(i * abmp.width / gridsize) - 1),
                                 abs(round(j * abmp.width / gridsize) - 1)] / $FFFFFF;
  end;
  procedure DrawVertex(const i, j: integer);
  var
    aheight: single;
  begin
    aheight := CalcHeight(i, j);
    glColor3F(aheight, aheight, aheight); glVertex3f(i / gridsize, aheight, j / gridsize);
  end;
var
  i, j: integer;
begin
  glNewList(hmap, GL_COMPILE);
  for i := 0 to gridsize - 1 do
    for j := 0 to gridsize - 1 do
    begin
      glBegin(GL_TRIANGLE_STRIP);
        DrawVertex(i, j);
        DrawVertex(i, j + 1);
        DrawVertex(i + 1, j);
        DrawVertex(i + 1, j + 1);
      glEnd;
    end;
  glEndList;
end;
 

mfg

Zuletzt geändert von Seth am Sa Okt 21, 2006 10:31, insgesamt 2-mal geändert.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Fr Okt 20, 2006 21:07

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

es sieht so aus, als wäre der tiefentest nur von vorne, am backface culling liegts nicht, das habe ich schon ausgeschaltet gehabt, ich verstehe nicht woran es liegt, von vorne, oder von oben alles schön, aber von "unten" sieht man durch die vertices durch :shock:

am anhang mal ein screenshot von dem fehler, von der anderen seite sieht es nicht so aus.

mfg

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: So Okt 22, 2006 08:43

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ich kann mir nicht erklären wo diese löcher herkommen, bitte helft mir :cry:

mfg

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: So Okt 22, 2006 09:47

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Dieses Bild sieht komisch aus und ich denke gerade bei solchen Fehlern sollten mehere verschiedene Perspektiven als Screenshots gezeigt werden, damit das Problem wirklich zu sehen ist. Ich kann beispielsweise aus dem letzten Bild nicht erkennen, was falsch ist, weil ich da nichtmal eine Heightmap erkenne.

Also wären zwei Bilder mit nur leicht nach links oder rechts verschobener Perspektive praktisch. Die kann ich dann zu einem 3D-Bild wieder zusammenfügen :wink:

Gruß Lord Horazont

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Seth

Betreff des Beitrags:

Verfasst: So Okt 22, 2006 10:54

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ok ich häng hier mal das projekt an, da kann man das denke ich gut sehen. mit datei->Heightmap laden kannst du eine heightmap aus dem programmverzeichniss öffnen und dann gucken.

download:

http://www.exec-dev.de/demo.rar

mfg

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Di Okt 24, 2006 12:20

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ich weiß nicht ob die löcher von meinem code kommen oder ob das durch äußere einflüsse verursacht wird, auf jedenfall mache ich was falsch

wäre toll wenn sich das jemand mal ansieht

mfg

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Sa Okt 28, 2006 12:32

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

keine macht den dreckspushern :idea:

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Okt 30, 2006 19:13

Guitar Hero

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

Öhm... Löcher...Hmmm...

Einerseits hab ich mal im Ramen von LOD hier bei DGL was von Löchern gelesen. Weiß nicht ob es dich betrifft. Falls das Bild da oben dein Problem ist, dann seh ich maximal z-Fighting. Und das bekommst du über den Tiefenpuffer weg. Siehe Wiki zu Z-Fighting.

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

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mo Okt 30, 2006 19:53

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

Z-Fighting sieht dem schon sehr ähnlich, ich bekomms aber net gefixt

hier mal bissl mehr code:

Code:

 
unit UMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpengl, glBitmap, UVector3D;
 
const
  NearClipping = 1;
  FarClipping  = 1000;
 
const
  gridsize = 64;
 
type
  TMainForm = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    DC: HDC;
    RC: HGLRC;
    CalcTime,
    Frequency: int64;
    Timestep: single;
    hmap: TGluint;
    rotation: single;
    procedure SetupOpenGL;
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure CalcTimestep;
  public
    procedure GenerateHeightMap(abmp: TBitmap);
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
uses UHeightmap;
 
{$R *.dfm}
 
procedure TMainForm.GenerateHeightMap(abmp: TBitmap);
  function CalcHeight(const i, j: integer): single;
  begin
    result := abmp.canvas.Pixels[abs(round(i * abmp.width / gridsize) - 1),
                                 abs(round(j * abmp.width / gridsize) - 1)] / $FFFFFF;
  end;
  procedure DrawVertex(const i, j: integer);
  var
    aheight: single;
  begin
    aheight := CalcHeight(i, j);
    glColor3F(aheight, aheight, aheight); glVertex3f(i / gridsize, aheight, j / gridsize);
  end;
var
  i, j: integer;
begin
  glNewList(hmap, GL_COMPILE);
  for i := 0 to gridsize - 1 do
    for j := 0 to gridsize - 1 do
    begin
      glBegin(GL_TRIANGLE_STRIP);
        DrawVertex(i, j);
        DrawVertex(i, j + 1);
        DrawVertex(i + 1, j);
        DrawVertex(i + 1, j + 1);
      glEnd;
    end;
  glEndList;
end;
 
procedure TMainForm.SetupOpenGL;
begin
  glClearColor(0, 0, 0, 0);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_CULL_FACE);
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  if not QueryPerformanceFrequency(Frequency) then
    Application.Terminate;
  QueryPerformanceCounter(CalcTime);
 
  DC := GetDC(Handle);
  if not InitOpenGL then
    Application.Terminate;
  RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
 
  hmap := glGenLists(1);
 
  rotation := 0;
 
  Application.OnIdle := IdleHandler;
end;
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TMainForm.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 TMainForm.CalcTimestep;
var
  CurrTime: int64;
begin
  QueryPerformanceCounter(CurrTime);
  Timestep := (CurrTime - CalcTime) / Frequency;
  CalcTime := CurrTime;
end;
 
procedure TMainForm.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  CalcTimestep;
  rotation := rotation + (360 / 4) * timestep;
  if rotation >= 360 then
    rotation := rotation - 360;
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45, ClientWidth / ClientHeight, NearClipping, FarClipping);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
//  glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
  
  gluLookAt(0, 0, 0, -5, -5, -15, 0, 1, 0);
  glpushmatrix;
    glTranslatef(-5, -5, -15);
    glScalef(10, 10, 10);
    glRotatef(20, 1, 0, 0);
    glRotatef(rotation, 0, 1, 0);
    glTranslatef(-0.5, -0.5, -0.5);
    glCallList(hmap);
  glpopmatrix;
 
  SwapBuffers(DC);
  Done := false;
end;
 
procedure TMainForm.FormShow(Sender: TObject);
begin
  left := 0;
  top := 0;
  Heightform.show;
end;
 
end.
 

vielleicht liegt es daran, dass mein objekt zuerst klein ist und ich es dann skaliere ? weil es scheinen ja auch weiter entfernte polygone durch Oo

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mo Nov 06, 2006 17:50

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

problem immer noch net gelöst

€: wenn ich ne textur hab gehts, erstrecht wenn ich dann backface culling ausmache

mfg

Nach oben

Seite 1 von 1

[ 13 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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