Skip to content

Instantly share code, notes, and snippets.

@7sharp9
Last active Dec 22, 2015
Embed
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 =
[<EntryPoint>]
let main args =
NSApplication.Init ()
using (new NSAutoreleasePool()) (fun n -> NSApplication.SharedApplication.Delegate <- new AppDelegate()
NSApplication.Main(args))
0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment