PaintGamma Property

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing
Imports Leadtools.ImageProcessing.Core
Imports Leadtools.ImageProcessing.Color
Imports Leadtools.WinForms
Imports Leadtools.Dicom
Imports Leadtools.Drawing

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