blob: 52a22b5eb7518978d308f5bce3796833b7129e90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
"lib/ffi.ey" include
"lib/ffi/sdl.ey" include
ffi .sdl ":" via
:INIT_VIDEO :Init {
:GetError dump
"Init failed" die
} rep
"Ohai!" 0 0 800 600 0 :CreateWindow ==w
w :GetWindowSurface ==s
s 255 :Fill dump
w :UpdateWindowSurface
1 sys .out .read dump
:Quit
# vim: syn=elymas
|
