Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module desnovro
- open Microsoft.Xna.Framework
- open Microsoft.Xna.Framework.Graphics
- type Game1 () as x =
- inherit Game()
- do x.Content.RootDirectory <- "Content"
- let graphics = new GraphicsDeviceManager(x)
- let mutable spriteBatch = Unchecked.defaultof<SpriteBatch>
- override x.Initialize() =
- do spriteBatch <- new SpriteBatch(x.GraphicsDevice)
- do base.Initialize()
- ()
- override x.LoadContent() =
- ()
- override x.Update (gameTime) =
- ()
- override x.Draw (gameTime) =
- do x.GraphicsDevice.Clear Color.CornflowerBlue
- ()
- [<EntryPoint>]
- let main argv =
- use g = new Game1()
- g.Run()
- printfn "Desnovro!!!"
- 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement