Differences

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

--- 0.8.3:interaction [2022/04/20 15:41] – [In Viewport] admin
+++ 0.8.3:interaction [2022/04/20 15:45] (current) – [Classic Camera Mouse Movement] admin
@@ Line 102: / Line 102: @@
 <file pascal>
+var FMove : Boolean;
+    FLastPos : TPointF;
+    FSpeed : Single = 0.1;
 procedure TGameWin.GorillaViewport1MouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Single);
 begin
+  /// allow camera movement
   FMove := true;
+  /// store the current mouse position to detect the pixel movement
   FLastPos := PointF(X, Y);
 end;
@@ Line 112: / Line 118: @@
   Shift: TShiftState; X, Y: Single);
 var LDiff : TPointF;
-    LLeft,
     LDir  : TPoint3D;
 begin
+  /// if mouse was not down - skip camera movement here
   if not FMove then
   begin
@@ Line 121: / Line 127: @@
   end;
+  /// compute the offset to the last pixel position
   LDiff := PointF(X, Y) - FLastPos;
   if ssRight in Shift then
   begin
-    // rotate camera
+    /// rotate camera on right mouse button down
     Dummy1.RotationAngle.Y := Dummy1.RotationAngle.Y + LDiff.X;
   end
-  else
+  else if ssLeft in Shift then
   begin
-    // move camera in camera direction
+    /// move camera in view direction if left mouse button is down
     LDir := TPoint3D.Zero;
-    LDir := LDir + TPoint3D(GorillaCamera1.AbsoluteLeft) * (LDiff.X * 0.1);
+    /// at first we apply the left-side direction
-    LDir := LDir + TPoint3D(GorillaCamera1.AbsoluteDirection) * (LDiff.Y * 0.1);
+    LDir := LDir + TPoint3D(GorillaCamera1.AbsoluteLeft) * (LDiff.X * FSpeed);
+    /// then we apply the forward direction
+    LDir := LDir + TPoint3D(GorillaCamera1.AbsoluteDirection) * (LDiff.Y * FSpeed);
+    /// we move the parent dummy, not the camera itself!
+    /// simply by adding our direction vector to the current dummy position
     Dummy1.Position.Point := Dummy1.Position.Point + LDir;
   end;
-  LDir := TPoint3D(GorillaCamera1.AbsoluteDirection);
-  Self.Caption := Format('Direction = (%n, %n, %n)', [LDir.X, LDir.Y, LDir.Z]);
   FLastPos := PointF(X, Y);
 end;