Back to Questions
571
views2
comments
type mismatch problem in DirectX demo
f#

Hi, I wanted to try out the FDX demo after I watched Don Syme's incredible presentation and I downloaded the code from here.

It gave me a series of errors and warnings due to compatibility

issues, so I've been trying to get it working correctly.

The semi-corrected code is on a pastebin.

I'm having trouble with the code here :

1
2
3
4
5
6
7
8
9
10
11
12
13
14

  let drawSurf f (device:Device) =
  let m,n = meshDims !mesh in 
  let data = Array.init (n*m) (fun k ->
                                 let i,j = k2ij !mesh k in
                                 let x,y = meshGet !mesh (i,j) in
                                 let z = f (x,y) in // single precision f 
                                 (x,y,z))
  in
  let strips = triangleRows n m |> map (map (blendPlace !mesh data)) in
  List.iter (fun strip -> drawTriangeStrip strip device) strips;
  let m,n = meshDims !mesh in 
  let lines = gridLines n m in
  let lines = lines |> map (colorPlace !mesh data Color.Black) in
  drawLineList lines device

which gives me the following error in F# interactive.

1
2
3
4

motion-sample.fs(438,53): error FS0001: Type mismatch. Expecting a


    ((('a * 'b) list -> 'c) * (('a * 'b) list -> 'd)) ref

but given a

1
2
3

    (float [,] * float [,]) ref.

The type '('a * 'b) list -> 'c' does not match the type 'float [,]'

Thanks for any help!

.

See followup here: [link:stackoverflow.com]

By on 7/19/2009 3:06 PM ()

Thanks, that solved my question!

By on 7/19/2009 3:22 PM ()

    Topic tags

    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