Topenglpanel -

procedure TMyOpenGLPanel.StartAnimation; begin FTimer.Enabled := True; end;

ProjMat := TMatrix.CreatePerspectiveFovRH( DegToRad(60), // Field of view Width / Max(Height, 1), // Aspect ratio 0.1, 100.0 // Near/far planes ); TOpenGlPanel

// Each face: two triangles (4 vertices) Context.DrawCubeFace(i, 1.0); // Custom helper (see below) end; end; procedure TMyOpenGLPanel

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