画像処理を並列で

gistfile1.fs

module FSharpModule

open System
open System.Windows.Forms
open System.Drawing

let private forPixels f (bmp : Bitmap) =
    for y = 0 to bmp.Height - 1 do
        for x = 0 to bmp.Width - 1 do
            bmp.SetPixel(x, y, f <| bmp.GetPixel(x, y))

type Color with
    member private c.ToList() = [c.R; c.G; c.B]

let private getBitmap (box : PictureBox) = box.Image.Clone() :?> Bitmap

//
// Demonstration
//

let private effectNegative (c : Color) =
    let rgb = List.map (int >> (-) 255) (c.ToList())
    Color.FromArgb(rgb.[0], rgb.[1], rgb.[2])

let private updateImage box =
    let bmp = getBitmap box
    forPixels effectNegative bmp
    box.Image <- bmp
    box.Refresh()

let Normal controls = Array.iter updateImage controls


let private effect_Async box = async { do updateImage box }

let Parallel controls =
    Array.map effect_Async controls
    |> Async.Parallel
    |> Async.RunSynchronously |> ignore