Skip to content

Instantly share code, notes, and snippets.

@an01f01

an01f01/delphi_fmx_3d_to_screen.pas

Created January 9, 2024 16:57
Show Gist options
  • Save an01f01/81f23a89443503451713a4adfcce1d6d to your computer and use it in GitHub Desktop.
Save an01f01/81f23a89443503451713a4adfcce1d6d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
delphi_fmx_3d_to_screen.pas
var tmpsp: TPoint3D := TPoint3D.Zero;
// Obtain the screen coordinate by using the WorldToScreen method
tmpsp := self.Context.WorldToScreen(TProjection.Camera, Layer3D1.Position.Point);
writeln('2D Position: ' + tmpsp.X.ToString + ', ' + tmpsp.Y.ToString);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment