F# WPF HLSL Shader

Program.fs

// http://blogs.msdn.com/b/hiroyuk/archive/2010/09/28/10068491.aspx

open System
open System.Windows
open System.Windows.Controls
open System.Windows.Media.Imaging
open System.Windows.Media.Effects


type MyEffect() as this =
    inherit ShaderEffect()

    let InputProperty =
        ShaderEffect.RegisterPixelShaderSamplerProperty("Input", typedefof<MyEffect>, 0)

    let ps = new PixelShader()
    do  ps.UriSource <- new Uri("..\\..\\Gray.ps", UriKind.Relative)
        this.PixelShader <- ps
        this.UpdateShaderValue(InputProperty)

    // dependency property?
    member this.Input
        with get () = this.GetValue(InputProperty)
        and  set value = this.SetValue(InputProperty, value)


let w = new Window(Title = "title", Width = 300., Height = 300.)

w.Loaded.Add(fun _ ->
    let b = new Button(Content = "button", Width = 110., Height = 23.)
    b.Click.Add(fun _ -> MessageBox.Show("hello") |> ignore)
    w.Content <- b

    let img = new Image()
    img.Source <- new BitmapImage(new Uri(@"..\..\image.png", UriKind.Relative))
    img.Effect <- new MyEffect()
    w.Content <- img
    ()
    )

[<EntryPoint>][<STAThread>]
let main _ = (Application()).Run w