a compilcated way of doing nothing

let average (n : int, f : int -> V4d) =
    let mutable result = V4d.Zero
    for i in 0..n-1 do
        result <- result + f i
    result / (float n)

let defaultTrafo (v : Vertex) =
    vertex {
        let pos = average(10, fun i -> v.pos)

        let arr = FixedSizeArray<_10, float>()

        let factor = 2.0
        arr.[0] <- 0.5
        let newArr = arr |> Fixed.map (fun a -> factor * a)
        let test = newArr.[0]

        let f = fun (m : M44d)  -> (m * pos) * test

        let wp = f uniform.ModelTrafo

        return { v with pos = uniform.ViewProjTrafo * wp
                        world = wp
                        n = uniform.NormalMatrix * v.n }

    }