mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-19 06:59:04 +08:00
Frank Skare
117 lines
2.6 KiB
VB.net
117 lines
2.6 KiB
VB.net
Public Class Mathf
|
|
Public Shared Function Clamp(value As Integer, min As Integer, max As Integer) As Integer
|
|
If value < min Then
|
|
value = min
|
|
ElseIf value > max Then
|
|
value = max
|
|
End If
|
|
Return value
|
|
End Function
|
|
|
|
Public Shared Function Clamp(value As Single, min As Single, max As Single) As Single
|
|
If value < min Then
|
|
value = min
|
|
ElseIf value > max Then
|
|
value = max
|
|
End If
|
|
Return value
|
|
End Function
|
|
|
|
Public Shared Function Clamp01(value As Single) As Single
|
|
If value < 0F Then
|
|
value = 0F
|
|
ElseIf value > 1.0F Then
|
|
value = 1.0F
|
|
End If
|
|
Return value
|
|
End Function
|
|
|
|
Public Shared Function Min(a As Single, b As Single) As Single
|
|
Return If((a >= b), b, a)
|
|
End Function
|
|
|
|
Public Shared Function Min(ParamArray values As Single()) As Single
|
|
Dim num As Integer = values.Length
|
|
Dim result As Single
|
|
If num = 0 Then
|
|
result = 0F
|
|
Else
|
|
Dim num2 As Single = values(0)
|
|
For i As Integer = 1 To num - 1
|
|
If values(i) < num2 Then
|
|
num2 = values(i)
|
|
End If
|
|
Next
|
|
result = num2
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
Public Shared Function Min(a As Integer, b As Integer) As Integer
|
|
Return If((a >= b), b, a)
|
|
End Function
|
|
|
|
Public Shared Function Min(ParamArray values As Integer()) As Integer
|
|
Dim num As Integer = values.Length
|
|
Dim result As Integer
|
|
If num = 0 Then
|
|
result = 0
|
|
Else
|
|
Dim num2 As Integer = values(0)
|
|
For i As Integer = 1 To num - 1
|
|
If values(i) < num2 Then
|
|
num2 = values(i)
|
|
End If
|
|
Next
|
|
result = num2
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
Public Shared Function Max(a As Single, b As Single) As Single
|
|
Return If((a <= b), b, a)
|
|
End Function
|
|
|
|
Public Shared Function Max(ParamArray values As Single()) As Single
|
|
Dim num As Integer = values.Length
|
|
Dim result As Single
|
|
If num = 0 Then
|
|
result = 0F
|
|
Else
|
|
Dim num2 As Single = values(0)
|
|
For i As Integer = 1 To num - 1
|
|
If values(i) > num2 Then
|
|
num2 = values(i)
|
|
End If
|
|
Next
|
|
result = num2
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
Public Shared Function Max(a As Integer, b As Integer) As Integer
|
|
Return If((a <= b), b, a)
|
|
End Function
|
|
|
|
Public Shared Function Max(ParamArray values As Integer()) As Integer
|
|
Dim num As Integer = values.Length
|
|
Dim result As Integer
|
|
If num = 0 Then
|
|
result = 0
|
|
Else
|
|
Dim num2 As Integer = values(0)
|
|
For i As Integer = 1 To num - 1
|
|
If values(i) > num2 Then
|
|
num2 = values(i)
|
|
End If
|
|
Next
|
|
result = num2
|
|
End If
|
|
Return result
|
|
End Function
|
|
|
|
Public Shared Function RoundToInt(value As Single) As Integer
|
|
Return CInt(Math.Round(value))
|
|
End Function
|
|
End Class
|