optimize glcontrol camera handling

Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb

@@ -15,8 +15,6 @@ Namespace PreviewN
 
     Public Class ModelPreview
 
-        Public Event WandUpdateView()
-
         Private WithEvents glControl1 As GLControl
         Private WithEvents MyCamera As New Camera
         Private ProjMatrix As Matrix4 = Nothing
@@ -26,19 +24,34 @@ Namespace PreviewN
         Private _isMouseDown As Boolean = False
         Private isDeactivated As Boolean = False
         Private ReadOnly myModels As New Dictionary(Of Object3D, Renderer)
-        Private WithEvents RenderTimer As New Timers.Timer(1) With {.AutoReset = True}
+        Private WithEvents RenderTimer As New Timers.Timer(25) With {.AutoReset = True}
+        Private _EnableCameraControlling As Boolean = False
 
-        Public Property RenderWhenWindowsIsInactive As Boolean = False
-        Public Property EnableCameraControlling As Boolean = True
         Public Property Scaling As Single = 500.0F
         Public Property ClearColor As Color = Color.CornflowerBlue
 
-        Public Property RenderInterval As Double
+        Public Property EnableCameraControlling As Boolean
             Get
-                Return renderTimer.Interval
+                Return _EnableCameraControlling
             End Get
             Set
-                renderTimer.Interval = Value
+                _EnableCameraControlling = Value
+                If Value Then
+                    If Not RenderTimer.Enabled Then
+                        RenderTimer.Start()
+                    End If
+                ElseIf RenderTimer.Enabled Then
+                    RenderTimer.Stop()
+                End If
+            End Set
+        End Property
+
+        Public Property RenderInterval As Double
+            Get
+                Return RenderTimer.Interval
+            End Get
+            Set
+                RenderTimer.Interval = Value
             End Set
         End Property
 
@@ -122,8 +135,8 @@ Namespace PreviewN
             Me.glControl1.VSync = False
             Me.Controls.Add(Me.glControl1)
             Me.ResumeLayout(False)
-            renderTimer.Start()
 
+            'RenderTimer.SynchronizingObject = Nothing
             Scaling = scale
 
             'Toolkit.Init()
@@ -132,6 +145,7 @@ Namespace PreviewN
             AddHandler glControl1.MouseWheel, AddressOf glControl1_Wheel
             ProjMatrix = Matrix4.CreatePerspectiveFieldOfView(FOV, glControl1.Width / glControl1.Height, 100.0F, 100000.0F)
             glControl1.Enabled = False
+
             MyCamera.SetCameraMode(CameraMode.FLY, camMtx)
             MyCamera.UpdateMatrix(camMtx)
 
@@ -149,7 +163,9 @@ Namespace PreviewN
         End Sub
 
         Public Sub UpdateView()
-            glControl1.Invalidate()
+            If glControl1.Enabled Then
+                glControl1.Invoke(Sub() glControl1.Invalidate())
+            End If
         End Sub
 
         Public Function AddModel(obj As Object3D) As Renderer
@@ -206,17 +222,12 @@ Namespace PreviewN
         End Sub
 
         Private Sub RenderTimer_Elapsed(sender As Object, e As Timers.ElapsedEventArgs) Handles RenderTimer.Elapsed
-            If Not isDeactivated OrElse RenderWhenWindowsIsInactive Then
-                RaiseEvent WandUpdateView()
-                glControl1.Invalidate()
+            If Not isDeactivated Then
+                MoveCameraViaWASDQE()
             End If
         End Sub
 
         Public Sub HandlesOnPaint(sender As Object, e As PaintEventArgs) Handles glControl1.Paint
-            If EnableCameraControlling Then
-                MoveCameraViaWASDQE()
-            End If
-
             GL.ClearColor(ClearColor)
 
             GL.Clear(ClearBufferMask.ColorBufferBit Or ClearBufferMask.DepthBufferBit)
@@ -306,10 +317,14 @@ Namespace PreviewN
             End If
         End Sub
 
-        Private Sub Camera_NeedSelectedObject(e As Camera.NeedSelectedObjectEventArgs) Handles MyCamera.NeedSelectedObject
+        Private Sub Camera_NeedSelectedObject(sender As Object, e As Camera.NeedSelectedObjectEventArgs) Handles MyCamera.NeedSelectedObject
             e.Points = Nothing
         End Sub
 
+        Private Sub MyCamera_PerspectiveChanged(sender As Object, e As EventArgs) Handles MyCamera.PerspectiveChanged
+            UpdateView()
+        End Sub
+
         Private Sub ModelPreview_FormDisposed(sender As Object, e As EventArgs) Handles Me.Disposed
             For Each rndr As Renderer In myModels.Values
                 rndr.ReleaseBuffers()