The Shining Source

'$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 ()