Hallo,
ich bin inzwischen wieder ein kleines Stück weiter gekommen, habe da aber noch Fragen und Probleme.

1. Das erste ist, das aus irgendeinem Grund Linien entstehen, die dort eigentlich nicht sein dürften (Siehe Bild)
2. Ich behomme den Nullpunkt (Derzeit ja Mitte) visuell nicht nach unten Links.
3. Ich habe noch keine Idee wie ein Pan in X- und Y- zu machen ist.

Ich habe die aktuelle Version von GLScene (GLEngine) verwendet. Also V2.5 2025

Ich hoffe jemand findet sich, der sich mit GLScene auskennt und mal draufschauen mag.

Fehlerbild und Testprogramm mit zwei GCodedateien ist Angehängt.


Vielen Dank!

Ich habe damit noch nie gearbeitet. Die scheinen den ganzen Scene Layer versteckt zu haben.

Was sind denn die default Dimensionen für den Raum? Daraus sollte sich ergeben wie man nach links unten kommt.
Wenn man ohne Polygon Listen arbeiten will sollte es eigentlich MoveTo(der Cursor wird verschoben ohne zu Zeichnen) und LineTo(Zeichne Linie vom letzten Punkt zum neuen Punkt) geben.

Ich bin nun wieder etwas weiter, aber ich finde den Fehler einfach nicht.
Es werden komische Linien gezeichnet. Ich komme einfach so nicht weiter.

Vielleicht findet ja Jemand den Denkfehler.

Sollte sich jemand die Zeit nehmen dafür, dann wäre ich Mega-Dankbar!

Ich habe NC-Testdateien dazu gepackt im Anhang und den Source.

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.

markieren

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.

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

zusammenfalten · markieren

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ß

Vielen Dank @Fred.

Ich habe aber die Fehler, so weit beseitigt und es geht nun erst mal. Nun geht es zum nächsten Step.

Wenn sich jemand interessieren sollte, ich habe den aktuellen Sourcecode angehängt.

Also hat sich das Thema erst einmal erledigt.