diff options
Diffstat (limited to 'examples/sdlex.nim')
-rw-r--r-- | examples/sdlex.nim | 104 |
1 files changed, 52 insertions, 52 deletions
diff --git a/examples/sdlex.nim b/examples/sdlex.nim index 3dd474d8e..7a4ebf3db 100644 --- a/examples/sdlex.nim +++ b/examples/sdlex.nim @@ -1,52 +1,52 @@ -# Test the SDL interface: - -import - sdl, sdl_image, colors - -var - screen, greeting: PSurface - r: TRect - event: TEvent - bgColor = colChocolate.int32 - -if init(INIT_VIDEO) != 0: - quit "SDL failed to initialize!" - -screen = setVideoMode(640, 480, 16, SWSURFACE or ANYFORMAT) -if screen.isNil: - quit($sdl.getError()) - -greeting = imgLoad("tux.png") -if greeting.isNil: - echo "Failed to load tux.png" -else: - ## convert the image to alpha and free the old one - var s = greeting.displayFormatAlpha() - swap(greeting, s) - s.freeSurface() - -r.x = 0 -r.y = 0 - -block game_loop: - while true: - - while pollEvent(addr event) > 0: - case event.kind - of QUITEV: - break game_loop - of KEYDOWN: - if evKeyboard(addr event).keysym.sym == K_ESCAPE: - break game_loop - else: - discard - - discard fillRect(screen, nil, bgColor) - discard blitSurface(greeting, nil, screen, addr r) - discard flip(screen) - -greeting.freeSurface() -screen.freeSurface() -sdl.quit() - -## fowl wuz here 10/2012 \ No newline at end of file +# Test the SDL interface: + +import + sdl, sdl_image, colors + +var + screen, greeting: PSurface + r: TRect + event: TEvent + bgColor = colChocolate.int32 + +if init(INIT_VIDEO) != 0: + quit "SDL failed to initialize!" + +screen = setVideoMode(640, 480, 16, SWSURFACE or ANYFORMAT) +if screen.isNil: + quit($sdl.getError()) + +greeting = imgLoad("tux.png") +if greeting.isNil: + echo "Failed to load tux.png" +else: + ## convert the image to alpha and free the old one + var s = greeting.displayFormatAlpha() + swap(greeting, s) + s.freeSurface() + +r.x = 0 +r.y = 0 + +block game_loop: + while true: + + while pollEvent(addr event) > 0: + case event.kind + of QUITEV: + break game_loop + of KEYDOWN: + if evKeyboard(addr event).keysym.sym == K_ESCAPE: + break game_loop + else: + discard + + discard fillRect(screen, nil, bgColor) + discard blitSurface(greeting, nil, screen, addr r) + discard flip(screen) + +greeting.freeSurface() +screen.freeSurface() +sdl.quit() + +## fowl wuz here 10/2012 |