Alright, if anyone's interested, here's a set of headers for use with FreeBASIC. They're based off the CSFML version, and I've included the mingw import libs and dll's from the CSFML windows package (I left out the -s and -s-d versions because FB spit out a bunch of linker errors when I tried to use them)
http://freefile.kristopherw.us/uploads/merick/sfml.rarTo use these with FB, you will need to copy the SFML folder into FreeBASIC\inc, the *.a libs into FreeBASIC\lib\win32, and the dlls to wherever your compiled programs can find them.
Here is the example from the CFSML docs converted to FB syntax:
#include once "SFML/Audio.bi"
#include once "SFML/Graphics.bi"
dim as sfWindowSettings Settings => (24, 8, 0)
dim as sfVideoMode Mode => (800, 600, 32)
dim as sfRenderWindow ptr App
dim as sfImage ptr Image
dim as sfSprite ptr Sprite
dim as sfFont ptr Font
dim as sfString ptr Text
dim as sfMusic ptr Music
dim as sfEvent Event
/' Create the main window '/
App = sfRenderWindow_Create(Mode, @"SFML window", sfResize or sfClose, Settings)
if App = NULL then goto fail
/' Load a sprite to display '/
Image = sfImage_CreateFromFile("image.jpg")
if Image = NULL then goto fail
Sprite = sfSprite_Create()
sfSprite_SetImage(Sprite, Image)
/' Create a graphical string to display '/
Font = sfFont_CreateFromFile("arial.ttf", 50, cast(wchar_t ptr, @""))
if Font = NULL then goto fail
Text = sfString_Create()
sfString_SetText(Text, "Hello SFML")
sfString_SetFont(Text, Font)
sfString_SetSize(Text, 50)
/' Load a music to play '/
Music = sfMusic_CreateFromFile("music.ogg")
if Music = NULL then goto fail
/' Play the music '/
sfMusic_Play(Music)
/' Start the game loop '/
while sfRenderWindow_IsOpened(App) = sfTrue
/' Process events '/
if sfRenderWindow_GetEvent(App, @Event) = sfTrue then
/' Close window : exit '/
if Event.Type_ = sfEvtClosed then
sfRenderWindow_Close(App)
endif
endif
/' Draw the sprite '/
sfRenderWindow_DrawSprite(App, Sprite)
/' Draw the string '/
sfRenderWindow_DrawString(App, Text)
/' Update the window '/
sfRenderWindow_Display(App)
wend
fail:
/' Cleanup resources '/
sfMusic_Destroy(Music)
sfString_Destroy(Text)
sfFont_Destroy(Font)
sfSprite_Destroy(Sprite)
sfImage_Destroy(Image)
sfRenderWindow_Destroy(App)
