PageRenderTime 48ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 0ms

/Source Code/ExperimentalProjection/AgnosticColour.vb

#
Visual Basic | 19 lines | 12 code | 7 blank | 0 comment | 0 complexity | c5560502d2483020df27e517eae728d5 MD5 | raw file
    

  1. Public Class AgnosticColour

    2. 

  2. 

    3. 

  3.     Public Property Red As Byte = 0

    4. 

  4. 

    5. 

  5.     Public Property Green As Byte = 0

    6. 

  6. 

    7. 

  7.     Public Property Blue As Byte = 0

    8. 

  8. 

    9. 

  9.     Public Sub New()

    10. 

  10. 

    11. 

  11.     End Sub

    12. 

  12. 

    13. 

  13.     Public Sub New(ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)

    14. 

  14.         Me.Red = red

    15. 

  15.         Me.Green = green

    16. 

  16.         Me.Blue = blue

    17. 

  17.     End Sub

    18. 

  18. 

    19. 

  19. End Class

    20. 

  20.