AIR/jade
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replaced Delay with proper Event Loop

Browse Source
This commit is contained in:
Armando Rivera 2013-11-08 16:09:11 -05:00
parent a2eece5ed6
commit 93b70abd8e
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
SDL2/simplewindow.cpp
View File

@ -8,6 +8,8 @@ CONSTANT INT SCREEN_HEIGHT = 480;
MAIN
DIM AS PWINDOW window = NULL;
DIM AS PSURFACE screenSurface = NULL;
DIM AS BOOL quit = false;
DIM AS SDL_Event e;
IF ( SDL_Init( SDL_INIT_VIDEO ) < 0 ) THEN
PRINT( SDL_GetError() );
@ -25,12 +27,22 @@ MAIN
ELSE
// Get Window Surface
screenSurface = SDL_GetWindowSurface( window );
// Fill the surface with White
SDL_FillRect( screenSurface, NULL, SDL_MapRGB( screenSurface->format, 255, 255, 255 ) );
// Update the Surface
SDL_UpdateWindowSurface( window );
// Wait 5 seconds
SDL_Delay( 5000 );
WHILE (NOT quit) BEGIN
WHILE ( SDL_PollEvent( ADDR e) != 0 ) BEGIN
SELECT (e.type) BEGIN
CASE SDL_QUIT:
quit = true;
ENDCASE
ENDSELECT
WEND
// Fill the surface with White
SDL_FillRect( screenSurface, NULL, SDL_MapRGB( screenSurface->format, 255, 255, 255 ) );
// Update the Surface
SDL_UpdateWindowSurface( window );
WEND
ENDIF
ENDIF