Skip to content

Instantly share code, notes, and snippets.

Last active Dec 22, 2015
What would you like to do?
An Blank screen Xna App
namespace BasicExample
open Microsoft.Xna.Framework
type Basic() as x =
inherit Game()
let graphics = new GraphicsDeviceManager(x)
override x.Draw (gameTime) = x.GraphicsDevice.Clear(Color.CornflowerBlue)
namespace Basic
open MonoMac.AppKit
open MonoMac.Foundation
type AppDelegate() =
inherit NSApplicationDelegate()
override x.FinishedLaunching(notification) = let game = new Basic() in game.Run()
override x.ApplicationShouldTerminateAfterLastWindowClosed(sender) = true
module main =
let main args =
NSApplication.Init ()
using (new NSAutoreleasePool()) (fun n -> NSApplication.SharedApplication.Delegate <- new AppDelegate()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment