PageRenderTime 8ms CodeModel.GetById 5ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/Source Code/ExperimentalProjection/AgnosticColour.vb

#
Visual Basic | 19 lines | 12 code | 7 blank | 0 comment | 0 complexity | c5560502d2483020df27e517eae728d5 MD5 | raw file
 1Public Class AgnosticColour
 2
 3    Public Property Red As Byte = 0
 4
 5    Public Property Green As Byte = 0
 6
 7    Public Property Blue As Byte = 0
 8
 9    Public Sub New()
10
11    End Sub
12
13    Public Sub New(ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)
14        Me.Red = red
15        Me.Green = green
16        Me.Blue = blue
17    End Sub
18
19End Class