DGL • Thema anzeigen - gluTessCallBack

gluTessCallBack - combineCallback

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

user69

Betreff des Beitrags: gluTessCallBack - combineCallback

Verfasst: So Jun 04, 2006 11:05

DGL Member

Registriert: Fr Okt 24, 2003 22:26
Beiträge: 120
Wohnort: Mannheim
Programmiersprache: Delphi

Hallo,

kann mir von euch jemad helfen, den combinecallback in Delphi richtig zu nutzen?
Ich benötige ihn, da ich ein paar sich schneidende Polygone habe.

Anbei dei Definition, wie sie in C ist. Da ich aber leider von C keine ahnung habe, würde mich interessieren, wie das in delphi aussehen müßte. Inbesondere in bezug auf die Typen.

Code:

 
void combineCallback(GLdouble coords[3], 
                     GLdouble *vertex_data[4],
                     GLfloat weight[4], GLdouble **dataOut )
{
   GLdouble *vertex;
   int i;
 
   vertex = (GLdouble *) malloc(6 * sizeof(GLdouble));
   vertex[0] = coords[0];
   vertex[1] = coords[1];
   vertex[2] = coords[2];
   for (i = 3; i < 7; i++)
      vertex[i] = weight[0] * vertex_data[0][i] 
                  + weight[1] * vertex_data[1][i]
                  + weight[2] * vertex_data[2][i] 
                  + weight[3] * vertex_data[3][i];
   *dataOut = vertex;
}
 

Danke
User69
//edit: Cpp highlightning

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: So Jun 04, 2006 12:55

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Code:

type TccVertex = Array[0..6] of GLdouble;
 
procedure combineCallback(coords: Array[0..2] of GLdouble;
                          vertex_data: Array[0..3] of PGLdouble;
                          weight: Array[0..3] of GLfloat;
                          dataOut: Pointer); //<-eigentlich ein Pointer auf einen Pointer von Typ PGLdouble
var
  vertex: ^TccVertex;
  i: Integer;
begin
  new(vertex);
 
  (vertex^)[0] := coords[0]; //<-funktioniert hoffentlich
  (vertex^)[1] := coords[1];
  (vertex^)[2] := coords[2];
 
  for i:= 3 to 6 do
    (vertex^)[i] := weight[0] * (vertex_data[0]+i)^ //soll vertex_data[0][i] sein, Umsetzung ist wohl falsch. Man muss das i-te GLdouble nach vertex_data[0]^ bekommen
                  + weight[1] * (vertex_data[1]+i)^ 
                  + weight[2] * (vertex_data[2]+i)^ 
                  + weight[3] * (vertex_data[3]+i)^;
 
  dataOut := vertex;
end;

Achte auf die Kommentare, denn vertex_data[0]+i wird so nicht gehen.

Nach oben

user69

Betreff des Beitrags:

Verfasst: So Jun 04, 2006 13:37

DGL Member

Registriert: Fr Okt 24, 2003 22:26
Beiträge: 120
Wohnort: Mannheim
Programmiersprache: Delphi

Besten dank so funktiononiert es (zumindest fast).

Ich habe noch
dataOut: Pointer in var dataOut: Pointer
geändert

und stdcall; eingefügt

den 2. teil mit der Auswertung von weight brauche ich nicht, also habe ich ihn hier nicht getestet.

Hier der funkionierende code:

Code:

 
type
  TTessCoords= array[0..2] of GLdouble;
  TTessVertex_data= array[0..3] of PGLdouble;  //evtl auch float (kommt drauf an, welchen typ man beim Tesslate benutzt)
  TTessWeight= array[0..3] of GLFloat;
  TTessDataOut= Pointer;
 
procedure gtCombine(coords: TTessCoords; vertex_data: TTessVertex_data; weight: TTessWeight; var DataOut: TTessDataOut); stdcall;
  var fVertex: pVertex;
  begin
    new(fVertex);
    fVertex^.Vertex[1]:= coords[0];
    fVertex^.Vertex[2]:= coords[1];
    fVertex^.Vertex[3]:= coords[2];
    DataOut:= fVertex;
  end;
 

diesen code kötte ja jemand auch mit ins wiki stellen.

Grüße
User69

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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