Hallo habe ein Programm in OpenGL geschrieben das 3D Koordinaten Punkte aus einer Datei ausliest und am Bildschirm wahlweise als Punktliste oder Linestrip usw. anzeigt.

Mein Problem ist nur dass das der Render vorgang beim Bewegen in der Punktwolke relativ lange dauert, d.h. es ist keine richtig Flüssige animation.

Die Punkte werden beim Programmstart aus dem File in eine Stringliste kopiert, somit liegen sie im speicher d.h. das Programm muss auch nicht auf die Festplatte zugreifen.


Es ist sozusagen das Grundgerüst für ein Visualisierungsprogramm.

Danke für eure Bemühungen

PS.: Weiss jemand wie ich *.TIF Dateien als Texturen in OpenGL verwenden kann.

wenn du die datei, aus der die punkte gelesen werden, auch noch mitschicken würdest, wäre ich dir sehr dankbar

Zitat von mwiesbau:

PS.: Weiss jemand wie ich *.TIF Dateien als Texturen in OpenGL verwenden kann.

Mit DevIL kannst du ziemlich einfach Bild-Dateien laden und als Textur in OGL benutzen:
http://openil.sourceforge.net/

Ok sorry

Um die Datei erfolgreich mit OpenGL zu laden musst du bitte in den Ländereinstellungen das Dezimal Trennzeichen von "," auf "."
umstellen.

Danke für deine Hilfe


edit: Habe das falsche file hochgeladen ist nun korrigiert.

Zitat:

Die Punkte werden beim Programmstart aus dem File in eine Stringliste kopiert, somit liegen sie im speicher d.h. das Programm muss auch nicht auf die Festplatte zugreifen.

Sorry, aber das ist grauenhaft. Denn um ein Punkt aus einem String zu bekommen, brauchst du die String-Handling Funktionen, die für ein schnelleres Rendervorgang gar nicht geeignet sind. Die Punkte müssen sich in einem "native" Format befinden, z.B. als ein Array of T3dPunkt :

markieren

Delphi-Quellcode:

type T3dPunkt = array[0..2]of Single;

var Punkte : array of T3dPunkt;

Sonst, solltest du uns etwas von dem Code schicken, um bessere Hilfe zu bekommen.

Ok danke erstmal, das projekt habe ist als anhang im ersten post von mir eingefügt.

Bin für jede weitere optimierung dankbar.

Zu der PointList Funktion:
Viel schneller wäre es wenn du es so machen würdest:

zusammenfalten · markieren

Delphi-Quellcode:

// in unit 2
uses ....,opengl,.....;

var From2 : TForm2;
    _Mesh_Mode : Cardinal = GL_POINTS;

implementation

uses unit1;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
 case ComboBox1.ItemIndex of
 0:_Mesh_Mode := GL_POINTS;
 1:_Mesh_Mode := GL_LINES;
 2:_Mesh_Mode := GL_LINE_STRIP;
 3:_Mesh_Mode := GL_LINE_LOOP;
 4:_Mesh_Mode := GL_TRIANGLES;
 5:_Mesh_Mode := GL_TRIANGLE_STRIP;
 6:_Mesh_Mode := GL_TRIANGLE_FAN;
 7:_Mesh_Mode := GL_QUADS;
 8:_Mesh_Mode := GL_QUAD_STRIP;
 9:_Mesh_Mode := GL_POLYGON;
 end;
end;

// in unit1
procedure tform1.pointlist;
var
i: integer;
begin
 glBegin(_Mesh_Mode);
                                    //(stringreplace(templist[1],'.',',',[rfReplaceAll]))
     for i:=0 to numofpoints do
      begin
      templist.DelimitedText:=finalpoint[i];
      glcolor3f(r,g,b);
      glloadname(Punkt); //neu
      glvertex3f(tpointlist[i,1],tpointlist[i,2],tpointlist[i,0]);
      //glvertex3f(tpointlist[i,2],tpointlist[i,3],tpointlist[i,1]);
      //glvertex3f(strtofloat(templist[2]),strtofloat(templist[3]),strtofloat(templist[1]));
      end;
  glend;
end;

wie du warscheinlich gesehen hast wollte ich das auch schon mit einem dynamischen array lösen.

danke für deinen vorschlag sieht echt super aus, bin selbst stundenlang davor gehock und habs einfach nicht geschafft.

nochmal danke.

ein problem habe ich allerdings noch

irgendwie gibts da ein problem mit den zuweisungen der cardinal werte GL_POINTS

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0:_Mesh_Mode := GL_POINTS;
1:_Mesh_Mode := GL_LINES;
2:_Mesh_Mode := GL_LINE_STRIP;
3:_Mesh_Mode := GL_LINE_LOOP;
4:_Mesh_Mode := GL_TRIANGLES;
5:_Mesh_Mode := GL_TRIANGLE_STRIP;
6:_Mesh_Mode := GL_TRIANGLE_FAN;
7:_Mesh_Mode := GL_QUADS;
8:_Mesh_Mode := GL_QUAD_STRIP;
9:_Mesh_Mode := GL_POLYGON;
end;

hatt jemand eine ahnung warum??

Welches Problemm ??