GLscene Kreise

[Schuby]

Danke euch beiden, jetzt habe ich es verstanden.
Es geht super.

Delphi-Quellcode:

Man kann nun ein Objekt um jede Achse drehen. Jedes Objekt hat folgende Eigenschaften:
    PitchAngle - Rotation um die X-Achse
    TurnAngle - Rotation um die Y-Achse
    RollAngle - Rotation um die Z-Achse



    MyVec3f.X:= 0;
    MyVec3f.Y:= 0;
    MyVec3f.Z:= 0;
    GLLines3.PitchAngle:= -90;
    GLLines3.Nodes.AddXYArc(30,30,0,90, 500, MyVec3f);

mfg schuby

[Schuby]

Die letzte Frage die ich dazu habe.
Wie lösche ich mein Gridxyz wieder.

GLLines3.Nodes.Clear; => Das ist klar, aber ich suche danach sowas wie Repaint ?



mfg schuby

[Uwe Raabe]

Normalerweise sollte das automatisch erfolgen, solange du nicht in einer offenen BeginUpdate/EndUpdate Klammer steckst.

[Schuby]

Hallo Uwe, ne es wird nichts gelöscht. Ich habe extra sleep(500) drin
und Form1.update damit ich sehe ob der halbkreis gelöscht ist, ist er
aber nicht.

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
begin
  GLLines3.Nodes.Clear;
  Form1.Update;
  sleep(500);
  Kreis_Zeichnen;

mfg schuby

[mmw]

hallo,

nach nodes.clear ist bei mir der Kreis gelöscht.

vielleicht mal

GLSceneViewer1.repaint;

versuchen.

Gruß

[Uwe Raabe]

Kannst du das an einem simplen Beispiel demonstrieren?

[Schuby]

Hallo, ich versuche es zu beschreiben.
Kreis berechnen, da habe ich mir eine eigene Routine geschrieben.
GLLine1 bis 3 sind die Achsenanzeige rot gelb grün

GLLines4 ist meine schwarzer Kreis

Button12 drücken => schwarzer Kreis wird gezeichnet.
Button12 drücken => vor Sleep(500) gelb / grün / rot Linien werden gelöscht
aber schwarzer Kreis bleibt

In Procedure TForm1.G2_Fahrt; ist nichts mit Grafik GLLine oder so
da werden nur die Punkte berechnet

Delphi-Quellcode:

Procedure TForm1.G2_Quadrant_1;
Begin
    //Quadrant = 1  X+ Y+
    if Quadrant = 1  then         
    begin
         if (G2_StepX = true) then
         Begin
              //X
              GLLines4 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
              GLLines4.LineWidth := 2;
              GLLines4.LineColor.AsWinColor := clBlack;

              GLLines4.AddNode(X_Steppen,0, Y_Steppen);
              y_Steppen:= y_Steppen + 0.1;
              GLLines4.AddNode(X_Steppen,  0,  Y_Steppen);
              G2_StepX:= false;
         end;
         if G2_StepY = true then
         Begin
              //Y
              GLLines4 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
              GLLines4.LineWidth := 2;
              GLLines4.LineColor.AsWinColor := clBlack;

              GLLines4.AddNode(X_Steppen,0, Y_Steppen);
              x_Steppen:= x_Steppen + 0.1;
              GLLines4.AddNode(x_Steppen,  0,  Y_Steppen);
              G2_StepY:= false;
         end;
    end;
end;

Procedure TForm1.G2_Fahrt;
begin

  for i:= 1 to usw  // immer einen neuen Punkt berechnen und in G2_Quadrant_1 anzeigen
    G2_Quadrant_1;
  bla.. bla..
end;

//=> Button12 start
procedure TForm1.Button12Click(Sender: TObject);
begin
  GLLines1.Nodes.Clear;
  GLLines2.Nodes.Clear;
  GLLines3.Nodes.Clear;
  GLLines4.Nodes.Clear;

  GLSceneViewer1.repaint;
  Form1.Update;

  sleep(500);

    GLLines1 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
    GLLines1.NodesAspect := lnaInvisible;
    GLLines1.LineWidth := 4;
    //X  Achse Gelb
    GLLines1.LineColor.AsWinColor := clYellow;
    GLLines1.AddNode(0,0,0);
    GLLines1.AddNode(20,0,0);


    GLLines2 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
    GLLines2.NodesAspect := lnaInvisible;
    GLLines2.LineWidth := 4;
    //Y Achse Rot
    GLLines2.LineColor.AsWinColor := clRed;
    GLLines2.AddNode(0,0,0);
    GLLines2.AddNode(0,0,20);


    GLLines3 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
    GLLines3.NodesAspect := lnaInvisible;
    GLLines3.LineWidth := 4;
    //Z Achse Grün
    GLLines3.LineColor.AsWinColor := clGreen;
    GLLines3.AddNode(0,0,0);
    GLLines3.AddNode(0,20,0);


    G2_Fahrt;

mfg schuby