SFML community forums
General => SFML projects => Topic started by: MetalCoder on July 17, 2019, 05:03:03 am
-
Hello,
I have updated my wrapper for SFML for the Euphoria programming langyage to 2.5 for SFML.
--Graphic Window Example
without warning
without type_check
include std
/machine.
einclude EuSys2.
ewinclude EuGfx2.
ewinclude sfFlags.
eatom win
= sfRenderWindow_create
(800,600,32,"My Window",sfClose
,0)if win
= -1 then
puts(1,"Could not create render window!\n") abort(0)end
ifconstant event
= allocate
(4 * 6)while sfRenderWindow_isOpen
(win
) do while sfRenderWindow_pollEvent
(win
,event
) do atom eventType
= peek4s
(event
) atom code
= peek4s
(event
+4) atom alt
= peek4s
(event
+8) atom control
= peek4s
(event
+13) atom shift
= peek4s
(event
+16) atom
system = peek4s
(event
+20) if eventType
= sfEvtClosed then
sfRenderWindow_close
(win
) end
if end
while sfRenderWindow_clear
(win
,sfBlack
) sfRenderWindow_display
(win
)end
whilesfRenderWindow_destroy
(win
)
-Icy_Viking