GLScene und mein Test-Viewer

[fred42]

Hallo,

Ich habe testweise die GCodelines durch ein GLDirectOpenGL -Object ersetzt und die procedure DrawGCodelines entsprechend
angepasst. So funktioniert es. Evtl. hilft es erst einmal weiter.

Delphi-Quellcode:

// GCodeLinesG0.Nodes.AddNode(StartPos);
// GCodeLinesG0.Nodes.AddNode(EndPos);
fcolor.rot:=0.5;
fcolor.gruen:=0.0;
fcolor.blau:=1.0;

linie(StartPos.X,StartPos.y,StartPos.Z,EndPos.X,EndPos.Y,EndPos.z,fcolor);
StartPos := EndPos;

usw.

----------------------------------------------

Delphi-Quellcode:

uses …, GLS.RenderContextInfo;

type
   TGLcolor3f = record
    rot, gruen, blau: real;
   end;

procedure linie(startx, starty,startz, zielx, ziely,zielz: real;acolor:Tglcolor3f);
begin
 glPushMatrix;
  gllinewidth(0.5);
  glColor3f(acolor.rot,acolor.gruen,acolor.blau);
   glBegin(gl_lines);
    glvertex3f(startx, starty, startz);
   glvertex3f(zielx, ziely, zielz);
  GLEnd;
 glPopMatrix;  
end;

procedure TMaschine.GLDirectOpenGL1Render(Sender: TObject; var rci: TGLRenderContextInfo);
begin
 DrawGCodeLines;
end;

Gruß