Not sure what's the source of the error, but it apears the "computeModel" function is wrong - it has too many arrows in it. Here's how you should fix it:

1
2
3
4
5
6
7
8
9
10
11
let computeModel(urls: string[]) = 
    let images = 
        if urls.Length = 0 then [] else
        [ for x in 0 .. 20-1  do
            for y in 0 .. 20-1 do
              let fx = float x * 0.05
              let fy = float y * 0.05
              let url = urls.[(x*nx+y) % urls.Length]
              yield imageMeshFromUrl url 0.04 (Vector3D(fx,fy,0.0)) ]
    let lights = AmbientLight(Colors.White) :> Model3D
    Model3DGroup(Children = Model3DCollection (lights :: images ))
By on 3/8/2008 11:06 PM ()

Thanks Robert! It compiles now.
Also thanks for writing "Foundations of F#".

-Chris

By on 3/9/2008 6:28 AM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy
Built with WebSharper