mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-29 09:24:36 +00:00
27 lines
554 B
Nim
Executable File
27 lines
554 B
Nim
Executable File
# Test the SDL interface:
|
|
|
|
import
|
|
SDL
|
|
|
|
var
|
|
screen, greeting: PSurface
|
|
r: TRect
|
|
|
|
if Init(INIT_VIDEO) == 0:
|
|
screen = SetVideoMode(640, 480, 16, SWSURFACE or ANYFORMAT)
|
|
if screen == nil:
|
|
write(stdout, "screen is nil!\n")
|
|
else:
|
|
greeting = LoadBmp("backgrnd.bmp")
|
|
if greeting == nil:
|
|
write(stdout, "greeting is nil!")
|
|
r.x = 0'i16
|
|
r.y = 0'i16
|
|
discard blitSurface(greeting, nil, screen, addr(r))
|
|
discard flip(screen)
|
|
Delay(3000)
|
|
else:
|
|
write(stdout, "SDL_Init failed!\n")
|
|
|
|
sdl.Quit()
|