View difference between Paste ID: yyX9kHbt and yW63bae3

 let average (n : int, f : int -> V4d) =
-	vertex {
+    let mutable result = V4d.Zero
-		let arr = FixedSizeArray<_10, float>()
+    for i in 0..n-1 do
         result <- result + f i
-		let factor = 2.0
+    result / (float n)
-		arr.[0] <- 0.5
+
-		let newArr = arr |> Fixed.map (fun a -> factor * a)
+
-		let test = newArr.[0]
+    vertex {
         let pos = average(10, fun i -> v.pos)
-		let f = fun (m : M44d)  -> (m * pos) * test
+
         let arr = FixedSizeArray<_10, float>()
-		let wp = f uniform.ModelTrafo
+
         let factor = 2.0
-		return { v with pos = uniform.ViewProjTrafo * wp
+        arr.[0] <- 0.5
-                                world = wp
+        let newArr = arr |> Fixed.map (fun a -> factor * a)
-                                n = uniform.NormalMatrix * v.n }
+        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 }
 
     }