You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.3 KiB
45 lines
1.3 KiB
11 years ago
|
#include "../jade.h"
|
||
|
#include "sdl2.inc"
|
||
|
|
||
|
// SCREEN DIMENSIONS
|
||
|
CONSTANT INT SCREEN_WIDTH = 640;
|
||
|
CONSTANT INT SCREEN_HEIGHT = 480;
|
||
|
|
||
|
MAIN
|
||
|
DIM AS SDL_Window* window = NULL;
|
||
|
DIM AS SDL_Surface* screenSurface = NULL;
|
||
|
|
||
|
IF ( SDL_Init( SDL_INIT_VIDEO ) < 0 ) THEN
|
||
|
PRINT( SDL_GetError() );
|
||
|
ELSE
|
||
|
//Create Window
|
||
|
window = SDL_CreateWindow( "SDL Simple Window",
|
||
|
SDL_WINDOWPOS_UNDEFINED,
|
||
|
SDL_WINDOWPOS_UNDEFINED,
|
||
|
SCREEN_WIDTH,
|
||
|
SCREEN_HEIGHT,
|
||
|
SDL_WINDOW_SHOWN);
|
||
|
|
||
|
IF ( window == NULL ) THEN
|
||
|
PRINT( SDL_GetError() );
|
||
|
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 );
|
||
|
ENDIF
|
||
|
ENDIF
|
||
|
|
||
|
//Destroy Window
|
||
|
SDL_DestroyWindow( window );
|
||
|
|
||
|
// Shutdown SDL
|
||
|
SDL_Quit();
|
||
|
|
||
|
RETURN 0;
|
||
|
|
||
|
END
|