使用FSharp 探索Dotnet图像处理功能1--反色变化

open System.Windows.Forms

let form = new Form()
let image = new PictureBox(Dock = DockStyle.Fill)
form.Controls.Add(image)
image.SizeMode <- PictureBoxSizeMode.StretchImage
form.Show()

open System.Drawing

let image_path = __SOURCE_DIRECTORY__ +  @"\Chrysanthemum.jpg"
let bitmap = new Bitmap(image_path)

image.Image <- bitmap 

let Pixels =seq {for h in 0..bitmap.Height-1 do
                    for w in 0..bitmap.Width-1 do
                         yield bitmap.GetPixel(w, h)}

Pixels |> Seq.iteri(fun i c -> 
                        bitmap.SetPixel(i%bitmap.Width,
                                        i/bitmap.Width, 
                                        Color.FromArgb((255 - (int c.R)), (255 - (int c.G)), (255 - (int c.B)))))
//win10 seem to need to update manually
image.Invalidate()

let imagerect = new Rectangle(0,0,bitmap.Width, bitmap.Height)
let bitmapdata = bitmap.LockBits(imagerect, ImageLockMode.ReadWrite, bitmap.PixelFormat)
let buffer:byte[] = Array.zeroCreate (bitmap.Width * bitmap.Height * Bitmap.GetPixelFormatSize(bitmap.PixelFormat)/8)
Marshal.Copy(bitmapdata.Scan0, buffer, 0,  buffer.Length)
let newbuff = buffer |> Seq.map(fun x -> 255uy - x) |> Array.ofSeq
Marshal.Copy(newbuff, 0, bitmapdata.Scan0, buffer.Length)
bitmap.UnlockBits(bitmapdata)

image.Invalidate()

Real: 00:00:01.227，CPU: 00:00:01.218，GC gen0: 0, gen1: 0, gen2: 0

Real: 00:00:00.050，CPU: 00:00:00.046，GC gen0: 0, gen1: 0, gen2: 0