Topenglpanel

type TOpenGLContextHelper = class helper for TContext3D public procedure DrawCubeFace(FaceIndex: Integer; Size: Single); end; implementation

Context.SetModelViewMatrix(ModelMat * ViewMat); Context.SetProjectionMatrix(ProjMat); TOpenGlPanel

uses System.UITypes, FMX.Graphics, System.Math; // Setup matrices ModelMat := TMatrix.Identity

// Setup matrices ModelMat := TMatrix.Identity; ModelMat := ModelMat * TMatrix.CreateRotationY(DegToRad(FAngle)); ModelMat := ModelMat * TMatrix.CreateRotationX(DegToRad(FAngle * 0.7)); TOpenGlPanel