anchor.diff:      [<Literal>]
       let baseText = "Aardvark rocks \\o/ - OpenGL GameWindow"
   
  -type GameWindow(runtime : Runtime, enableDebug : bool, samples : int) as this =
  +type GameWindow(runtime : Runtime, enableDebug : bool, samples : int, graphicsMode : Graphics.GraphicsMode) as this =
       inherit OpenTK.GameWindow(
           1024,
           768,
  -        Graphics.GraphicsMode(
  -            OpenTK.Graphics.ColorFormat(Config.BitsPerPixel), 
  -            Config.DepthBits, 
  -            Config.StencilBits, 
  -            samples, 
  -            OpenTK.Graphics.ColorFormat.Empty,
  -            Config.Buffers, 
  -            false
  -        ),
  +        graphicsMode,
           DefaultText.baseText,
           GameWindowFlags.Default,
           DisplayDevice.Default,
  
positive.code:                 if size <> sizes.Value then
                      transact (fun () -> Mod.change sizes size)
  
                  defaultFramebuffer.Size <- V2i(x.ClientSize.Width, x.ClientSize.Height)
                  defaultOutput <- { defaultOutput with viewport = Box2i(V2i.OO, defaultFramebuffer.Size - V2i.II) }
  
                  GL.ColorMask(true, true, true, true)
                  GL.DepthMask(true)
                  GL.Viewport(0,0,x.ClientSize.Width, x.ClientSize.Height)
                  GL.ClearColor(0.0f, 0.0f, 0.0f, 1.0f)
                  GL.ClearDepth(1.0)
                  GL.Clear(ClearBufferMask.ColorBufferBit ||| ClearBufferMask.DepthBufferBit ||| ClearBufferMask.StencilBufferBit)
  
                  let desc = OutputDescription.ofFramebuffer defaultFramebuffer
                  task.Run(AdaptiveToken.Top, RenderToken.Empty, defaultOutput)
                          
  
                  x.SwapBuffers()
  
negative.code:             | _ -> failwith "invalid depth-stencil mode"
  
      let fboSignature =
          let set =
              if graphicsMode.Stereo then 
                  Set.ofList [
                      "ProjTrafo"; 
                      "ViewTrafo"; 
                      "ModelViewTrafo"; 
                      "ViewProjTrafo"; 
                      "ModelViewProjTrafo"
                         
                      "ProjTrafoInv"; 
                      "ViewTrafoInv"; 
                      "ModelViewTrafoInv"; 
                      "ViewProjTrafoInv"; 
                      "ModelViewProjTrafoInv"
                  ]
              else Set.empty
          FramebufferSignature(
              runtime,
              Map.ofList [0, (DefaultSemantic.Colors, { format = RenderbufferFormat.Rgba8; samples = samples })],
              Map.empty,
              depthSignature,
              None,
              (if graphicsMode.Stereo then 2 else 1),
              set
          )
  
  
  