(language is FreeBasic.)
Code:
'$INCLUDE: "SDL/SDL.BI"
'init:def
const SCR_WIDTH = "640"
const SCR_HEIGHT = "480"
dim bitmap AS SDL_Surface ptr
dim video AS SDL_Surface ptr
'init:act
SDL_Init ( SDL_INIT_VIDEO )
video = SDL_SetVideoMode( 640, 480, 32, 0 ) 'sets the video mode to 640x480x32
'Init ended
MenuScreen = SDL_LoadBMP("bitmap.bmp")
SUB BlitImage(x as integer, y as integer, image as sdl_surface ptr)
DIM Rectangle as SDL_Rect
DIM Rectangle2 as SDL_Rect
Rectangle.x = 0
Rectangle.y = 0
Rectangle.w = image->w
Rectangle.h = image->h
Rectangle2.x = x
Rectangle2.y = y
SDL_BlitSurface image, @Rectangle, ScreenSurface, @Rectangle2
END SUB
SLEEP 1000
SDL: SDL_Quit ()