SHARE
TWEET

Image Reduction + Gamma Adjustment

Jimi2000 Feb 5th, 2020 275 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     Dim img = Image.FromFile([The Image Path], True)
  2.  
  3.     Dim maxHeight As Single = 284.0F
  4.     Dim newWidth As Single = img.Width * (maxHeight / img.Height)
  5.     Dim imageCopy = New Bitmap(CInt(newWidth), CInt(maxHeight), PixelFormat.Format32bppArgb)
  6.  
  7.     imageCopy.SetResolution(img.HorizontalResolution, img.VerticalResolution)
  8.  
  9.     Using g = Graphics.FromImage(imageCopy),
  10.         attributes = New ImageAttributes()
  11.         attributes.SetGamma(1.12F, ColorAdjustType.Bitmap)
  12.  
  13.         g.SmoothingMode = SmoothingMode.None
  14.         g.PixelOffsetMode = PixelOffsetMode.Half
  15.         g.InterpolationMode = InterpolationMode.HighQualityBilinear
  16.         g.DrawImage(img, New Rectangle(0, 0, imageCopy.Width, imageCopy.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, attributes)
  17.     End Using
  18.     img.Dispose()
  19.     Return imageCopy
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top