XNA + F#

 Cuando leí que al correr sobre .NET F# podía utilizar cualquier
libreria dije «ya lo veremos», y vaya hasta el momento me ha funcionado
bastante bien y para muestra me puse investigar acerca de cómo demonios
meterle XNA… y es MUY SENCILLO 😀


#light

#I @"C:Program FilesXNAv2.0ReferencesWindowsx86"

#r "Microsoft.Xna.Framework.dll"
#r "Microsoft.Xna.Framework.Game.dll"

open Microsoft.Xna.Framework
open Microsoft.Xna.Framework.Graphics
open System

type XNAGame = class
inherit Game as base

val mutable graphics : GraphicsDeviceManager

new() as this =
{
graphics = null
}
then
this.graphics <- new GraphicsDeviceManager(this)

override this.Draw(gameTime) =
let gd = this.graphics.GraphicsDevice
gd.Clear(Color.CornflowerBlue)
end

let Main() =
let game = new XNAGame()
game.Run()

[<STAThread>]
do Main()

😀 😉 🙂 xD

Lo único de deben hacer es establecer el directorio donde tienen
alojado el XNA, en este caso la versión 2.0 pero también lo probé con
la 1.0 (oh si, mi version de F# es 1.9.3.14) porque tal parece que los
assembly no estan en el GlobalAssemblyCache, otra opción es configurar
el envoriment path (bucar en google) para poder acceder hasta él desde
la linea de comandos.

Para compilarlo utilizé el siguiente batch:


@if "%_echo%"=="" echo off
setlocal

......binfsc.exe xna.fs
if ERRORLEVEL 1 goto Exit

:Exit
pause
xna.exe
endlocal

exit /b %ERRORLEVEL%

Osea un compila y ejecuta.

Ya veré más delante que más le meto…

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *