GLscene Kreise

[Schuby]

Hallo Uwe,
könntest du mir bitte helfen was ich genau schreiben müsste ?
Ich bekomme nur error

Delphi-Quellcode:

  public
    MyVec3f : TVector3f;

...
GLLines3.Nodes.AddXYArc(,,,,,MyVec3f);

mfg Schuby

[mmw]

hallo,

nur zur Info

die dglopengl.pas wie in #2 angegeben funktiomiert nicht (jedenfalls nicht bei mir). Dafür funktinoiert die mitegelieferte.

Gruß

[Schuby]

Hallo,
ich habe es doch noch geschafft, es haben paar units gefehlt.
Aber es wird immer nur hochkannt angezeigt, drehen kann man den Kreis nicht ?

Delphi-Quellcode:

uses
  GLS.Nodes,
  GLS.VectorGeometry,
  GLS.VectorTypes;


....
    GLLines3 := TGLLines(GLXYZGrid1.AddNewChild(TGLLines));
    GLLines3.NodesAspect := lnaInvisible;
    GLLines3.LineWidth := 2;
    GLLines3.LineColor.AsWinColor := clblack;


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

mfg schuby

[mmw]

hallo,
vielleicht hilft das weiter

https://de.wikibooks.org/wiki/Spiele...ne:_Bewegungen

Gruß

[Uwe Raabe]

Zitat von Schuby:

Aber es wird immer nur hochkannt angezeigt, drehen kann man den Kreis nicht ?

Der Bogen wird, wie aus dem Namen AddXYArc abzuleiten ist, in der XY-Ebene des GLLines-Objekts gezeichnet. Das kannst du natürlich beliebig drehen. Vermutlich musst du dann aber auch deine Linien so zeichnen, dass sie in dieser XY-Ebene liegen. Sonst passen sie halt nicht zu dem Bogen.

[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.