anchor.diff:              File.ReadAllText(textFileName)
           else
               File.ReadAllText(Path.Combine(__SOURCE_DIRECTORY__, textFileName))
  -
       
   
   module Main = 
  
positive.code:     let vao = [|0u|]
      
      let gl = OpenGL()
      gl.Create(SharpGL.Version.OpenGLVersion.OpenGL3_1, 
                SharpGL.RenderContextType.FBO, 
                800, 600, 32, 
                System.IntPtr.Zero) |> printfn "gl.Create %b"
  
      let vertexShaderCode =
          [| "#version 310"
             "layout(location = 0) in vec4 Position;"
             "void main()"
             "{"
             "	gl_Position = Position;"
             "}" |] |> Array.reduce (fun x y -> sprintf "%s\n%s" x y) 
  
      let fragmentShaderCode =
          """
  
negative.code:         printfn "#6"
          Display()
  
          w |> app.Run |> ignore
          
  
  Main.Run()