PaintGamma Property

'Declaration
 
Public Property PaintGamma As Integer

Public Sub IntensityExample()
      Dim f As IntensityForm = New IntensityForm()
      f.ShowDialog()
   End Sub

   Private Class IntensityForm : Inherits Form
      Private viewer As RasterImageViewer
      Private gammaTrackBar As TrackBar
      Private contrastTrackBar As TrackBar
      Private intensityTrackBar As TrackBar

      Public Sub New()
         ' Create the controls
         Size = New Size(800, 600)
         Dim controlsPanel As Panel = New Panel()
         controlsPanel.Size = New Size(400, 0)
         controlsPanel.BorderStyle = BorderStyle.Fixed3D
         controlsPanel.Dock = DockStyle.Left

         Dim labelLeft As Integer = 8
         Dim y As Integer = 16
         Dim trackBarLeft As Integer = 100

         Dim gammaLabel As Label = New Label()
         gammaLabel.Text = "Gamma:"
         gammaLabel.Location = New Point(labelLeft, y)
         gammaLabel.AutoSize = True
         controlsPanel.Controls.Add(gammaLabel)

         gammaTrackBar = New TrackBar()
         gammaTrackBar.Minimum = 1
         gammaTrackBar.Maximum = 100
         gammaTrackBar.TickFrequency = (gammaTrackBar.Maximum - gammaTrackBar.Minimum) \ 10
         gammaTrackBar.Location = New Point(trackBarLeft, y)
         gammaTrackBar.Width = 200
         AddHandler gammaTrackBar.Scroll, AddressOf gammaTrackBar_Scroll
         controlsPanel.Controls.Add(gammaTrackBar)
         gammaLabel.Top = gammaTrackBar.Top + (gammaTrackBar.Height - gammaLabel.Height) \ 2
         y = gammaTrackBar.Bottom + 8

         Dim contrastLabel As Label = New Label()
         contrastLabel.Text = "Contrast:"
         contrastLabel.Location = New Point(labelLeft, y)
         contrastLabel.AutoSize = True
         controlsPanel.Controls.Add(contrastLabel)

         contrastTrackBar = New TrackBar()
         contrastTrackBar.Minimum = -1000
         contrastTrackBar.Maximum = 1000
         contrastTrackBar.TickFrequency = (contrastTrackBar.Maximum - contrastTrackBar.Minimum) \ 10
         contrastTrackBar.Location = New Point(trackBarLeft, y)
         contrastTrackBar.Width = 200
         AddHandler contrastTrackBar.Scroll, AddressOf contrastTrackBar_Scroll
         controlsPanel.Controls.Add(contrastTrackBar)
         contrastLabel.Top = contrastTrackBar.Top + (contrastTrackBar.Height - contrastLabel.Height) \ 2
         y = contrastTrackBar.Bottom + 8

         Dim intensityLabel As Label = New Label()
         intensityLabel.Text = "Intensity:"
         intensityLabel.Location = New Point(labelLeft, y)
         intensityLabel.AutoSize = True
         controlsPanel.Controls.Add(intensityLabel)
         y = intensityLabel.Bottom + 8

         intensityTrackBar = New TrackBar()
         intensityTrackBar.Minimum = -1000
         intensityTrackBar.Maximum = 1000
         intensityTrackBar.TickFrequency = (intensityTrackBar.Maximum - intensityTrackBar.Minimum) \ 10
         intensityTrackBar.Location = New Point(trackBarLeft, y)
         intensityTrackBar.Width = 200
         AddHandler intensityTrackBar.Scroll, AddressOf intensityTrackBar_Scroll
         controlsPanel.Controls.Add(intensityTrackBar)
         intensityLabel.Top = intensityTrackBar.Top + (intensityTrackBar.Height - intensityLabel.Height) \ 2
         y = intensityTrackBar.Bottom + 8

         Dim defaultButton As Button = New Button()
         defaultButton.Text = "Default"
         defaultButton.Location = New Point(labelLeft, y)
         AddHandler defaultButton.Click, AddressOf defaultButton_Click
         controlsPanel.Controls.Add(defaultButton)

         Controls.Add(controlsPanel)

         viewer = New RasterImageViewer()
         viewer.Dock = DockStyle.Fill
         Controls.Add(viewer)
         viewer.SizeMode = RasterPaintSizeMode.Fit
         viewer.BringToFront()

         ' Load the image
         Dim codecs As RasterCodecs = New RasterCodecs()

         Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
         viewer.Image = codecs.Load(srcFileName)

         codecs.Dispose()

         gammaTrackBar.Value = viewer.Image.PaintGamma
         contrastTrackBar.Value = viewer.Image.PaintContrast
         intensityTrackBar.Value = viewer.Image.PaintIntensity
         UpdateValues()
      End Sub

      Private Sub UpdateValues()
         Dim str As String = String.Format("Gamma = {0}, Contrast = {1}, Intensity = {2}", viewer.Image.PaintGamma, viewer.Image.PaintContrast, viewer.Image.PaintIntensity)
         Text = str
      End Sub

      Private Sub gammaTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs)
         Dim tb As TrackBar = CType(IIf(TypeOf sender Is TrackBar, sender, Nothing), TrackBar)
         viewer.Image.PaintGamma = tb.Value
         UpdateValues()
      End Sub

      Private Sub contrastTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs)
         Dim tb As TrackBar = CType(IIf(TypeOf sender Is TrackBar, sender, Nothing), TrackBar)
         viewer.Image.PaintContrast = tb.Value
         UpdateValues()
      End Sub

      Private Sub intensityTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs)
         Dim tb As TrackBar = CType(IIf(TypeOf sender Is TrackBar, sender, Nothing), TrackBar)
         viewer.Image.PaintIntensity = tb.Value
         UpdateValues()
      End Sub

      Private Sub defaultButton_Click(ByVal sender As Object, ByVal e As EventArgs)
         viewer.Image.PaintGamma = 100
         viewer.Image.PaintIntensity = 0
         viewer.Image.PaintContrast = 0

         gammaTrackBar.Value = viewer.Image.PaintGamma
         contrastTrackBar.Value = viewer.Image.PaintContrast
         intensityTrackBar.Value = viewer.Image.PaintIntensity

         UpdateValues()
      End Sub
   End Class

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class