Differences

This shows you the differences between two versions of the page.

--- physics [2020/05/24 13:29] – [Remote-Control] admin
+++ physics [2020/05/24 13:30] – [Example] admin
@@ Line 131: / Line 131: @@
 </file>
 (available since v0.8.2.1600+)
-===== Example =====
-For a working physics system you need a TGorillaPhysicsSystem component on your form.
-<file pascal Form1.pas>
-type
-  TForm1 = class(TForm)
-    GorillaViewport1: TGorillaViewport;
-    Light1: TLight;
-    Dummy1: TDummy;
-    Camera1: TCamera;
-    GorillaPhysicsSystem1: TGorillaPhysicsSystem;
-    Plane1: TPlane;
-    GorillaCube1: TGorillaCube;
-    PhysicsTimer1: TTimer;
-    GorillaSphere1: TGorillaSphere;
-    LightMaterialSource1: TLightMaterialSource;
-    LightMaterialSource2: TLightMaterialSource;
-    procedure FormCreate(Sender: TObject);
-    procedure PhysicsTimer1Timer(Sender: TObject);
-  private
-    { Private-Deklarationen }
-  public
-    { Public-Deklarationen }
-  end;
-var
-  Form1: TForm1;
-implementation
-{$R *.fmx}
-uses
-  Gorilla.Physics, Gorilla.Physics.Q3.Body;
-procedure TForm1.FormCreate(Sender: TObject);
-var LPrefab : TGorillaColliderSettings;
-begin
-  // the plane should be a static body, otherwise it will fall in to nothingness
-  LPrefab := TGorillaColliderSettings.Create(TQ3BodyType.eStaticBody);
-  GorillaPhysicsSystem1.AddBoxCollider(Plane1, LPrefab);
-  // the cube is a dynamic / moveable body which collides with the plane and sphere
-  LPrefab := TGorillaColliderSettings.Create(TQ3BodyType.eDynamicBody);
-  GorillaPhysicsSystem1.AddBoxCollider(GorillaCube1, LPrefab);
-  // the sphere is a dynamic / moveable body which collides with the plane and cube
-  LPrefab := TGorillaColliderSettings.Create(TQ3BodyType.eDynamicBody);
-  GorillaPhysicsSystem1.AddSphereCollider(GorillaSphere1, LPrefab);
-  // we activate the physics system
-  GorillaPhysicsSystem1.Active := true;
-  // and we need to activate the physics timer for constant updates
-  PhysicsTimer1.Enabled := true;
-end;
-procedure TForm1.PhysicsTimer1Timer(Sender: TObject);
-var LDelta : Single;
-begin
-  // get the delta time => time since the last step() was called
-  LDelta := GorillaPhysicsSystem1.GetDeltaTime();
-  GorillaPhysicsSystem1.Step(LDelta);
-  GorillaViewport1.Invalidate();
-end;
-</file>
 ===== Callbacks =====