Mathemathics Framework

Imports System.Math
Imports System.Drawing
Imports System.Drawing.Drawing2D


#Region "Enumerations"

    'Colores para las graficas 2D
Public Enum BV2DColors
    CFunc0
    CFunc1
    CFunc2

    CFunc3
    CFunc4
    CFunc5
    CFunc6
    CFunc7

    CFunc8
    CFunc9

    CStats
    CFunctionName

    CImageBack
    CAxis
    CSubAxis
    CMainAxisLabels
    CMainAxisValue

    CSubAxisValue
    CFrame
    CFrameBorder
End Enum

'Colores para expresiones de pantalla, etc
Public Enum BVSisColors
    CStats = 50
    CFunctionName
End Enum

'Colores para las graficas 3D
Public Enum BV3DColors
    CStats
    CFunctionName
    CImageBack
    CAxis
    CSubAxis
    CMainAxisLabels
    CMainAxisValue
    CSubAxisValue
End Enum


Public Enum BVSisColorType
    S2D
    S3D
    SSistem
End Enum

#End Region

Public Class ColorUtilities

    Public Function IsKnowColor(ByVal TestedColor As Color) As Boolean
        Dim kC As KnownColor

        kC = TestedColor.ToKnownColor
        If kC = 0 Then
            Return False
        Else
            Return True
        End If
    End Function

    Public Function GetColorName(ByVal TestedColor As Color) As String
        If IsKnowColor(TestedColor) Then
            Dim kC As KnownColor

            kC = TestedColor.ToKnownColor
            Return kC.ToString
        Else
            Return "UnknownColor"
        End If
    End Function

End Class


Public Enum EColorGradient
    Fire
    Emerald
    NewViolet
    Rainbow
    Custom
End Enum