anchor.diff:  
                       | FileTexture(info, file) ->
                           let t = newTexture ()
  -                        if file = null then 
  +                        if isNull file then 
                               t
                           else
  -                            let pi = PixImage.Create(file, PixLoadOptions.UseDevil)
  -                            let mm = PixImageMipMap [|pi|]
  -                            uploadTexture2D t info mm |> ignore
  +                            Devil.uploadTexture2D t file info
  +//                            let pi = PixImage.Create(file, PixLoadOptions.UseDevil)
  +//                            let mm = PixImageMipMap [|pi|]
  +//                            uploadTexture2D t info mm |> ignore
                               t
   
                       | PixTexture2D(wantMipMaps, data) -> 
  
positive.code:         ]
  
  
      [<AutoOpen>]
      module private Uploads =
  
  
negative.code:                         uploadTexture3D t info image
  
                      | FileTexture(info, file) ->
                          Devil.uploadTexture2D t file info
  //                        let pi = PixImage.Create(file, PixLoadOptions.UseDevil)
  //                        let mm = PixImageMipMap [|pi|]
  //                        uploadTexture2D t info mm |> ignore
  
                      | :? NullTexture -> failwith "cannot update texture with null texture"
  
  