21 lines
666 B
VB.net
21 lines
666 B
VB.net
Imports System.Numerics
|
|
|
|
Public Class Material
|
|
Implements IComparable(Of Material)
|
|
|
|
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 Material) As Integer Implements IComparable(Of Material).CompareTo
|
|
'If obj Is Me Then Return 0
|
|
'If obj Is Nothing Then Return 1
|
|
'Return -1
|
|
Return GetHashCode() - If(obj?.GetHashCode, 0)
|
|
End Function
|
|
|
|
End Class
|