190607 c1

- Add Pilz.Drawing.Drawing3D.OpenGLFactory
- Fix small bugs in Pilz.UI.PaintingControl

Pilz.Simple3DFileParser/Model/Material.vb

@@ -0,0 +1,25 @@
+Imports System.Numerics
+
+Public Class Material
+    Implements IComparable
+
+    Public Property Image As Image = Nothing
+    Public Property Color As Color? = Nothing
+    Public Property Opacity As Single? = Nothing
+    Public Property Wrap As New Vector2(10497, 10497)
+    Public Property Scale As New Vector2(1.0F, 1.0F)
+    Public Property Tag As Object = Nothing
+
+    Public Function CompareTo(obj As Object) As Integer Implements IComparable.CompareTo
+        If obj IsNot Nothing Then
+            If obj Is Me Then
+                Return 0
+            Else
+                Return -1
+            End If
+        Else
+            Return 1
+        End If
+    End Function
+
+End Class