CoolBasic Forums

Code: Select all

#Include "SDL/SDL.bi"
#Include "SDL/SDL_gfx_primitives.bi"
#Include "SDL/SDL_mixer.bi"
#Include "SDL/SDL_ttf.bi"
#Include "SDL/SDL_gfx_rotozoom.bi"


Const SW = 640, SH = 480, SD = 32


Dim result As Unsigned Integer 
Dim SDL_Screen As SDL_Surface Ptr
Dim event As SDL_Event
Dim kuva As SDL_Surface Ptr
Dim nappi As Uint8 Ptr
Dim Looping As Integer 

Declare Sub DrawImage( img As SDL_Surface ptr, buffer As SDL_Surface Ptr, x As Single, y As Single)
Declare Sub ClsC(ByVal buffer As SDL_Surface Ptr, ByVal r As Byte,ByVal g As Byte,Byval b As Byte)

If (SDL_Init(SDL_INIT_EVERYTHING) < 0) Then
	Print "Unable to initialize SDL!"; SDL_GetError()
	End 1 
EndIf 



SDL_Screen = SDL_SetVideoMode(SW, SH, SD, SDL_HWSURFACE or SDL_DOUBLEBUF)
SDL_WM_SetCaption("Lol", "OLO")
If (SDL_Screen = NULL) Then 
	Print "Unavaible to set the graphics mode!" 
	SDL_Quit
EndIf



Do While (Looping = 0) 
	ClsC SDL_Screen, 255, 0, 255
	nappi = SDL_GetKeyState(NULL)
	Looping = (nappi[SDLK_ESCAPE])
	
	SDL_Flip(SDL_Screen)
	
Loop 

SDL_FreeSurface(kuva)
SDL_Quit

Sub ClsC(ByVal buffer As SDL_Surface Ptr, ByVal r As Byte,ByVal g As Byte,Byval b As Byte)
	If Buffer = NULL Then Exit Sub
	Dim dst As SDL_Rect
	dst.w = buffer->w
	dst.h = buffer->h
	SDL_FillRect(buffer, @dst, SDL_MapRGB(buffer->format, r, g, b))
End Sub



Sub DrawImage( img As SDL_Surface ptr, buffer As SDL_Surface Ptr, x As Single, y As Single)
	If img = NULL Or buffer = NULL Then Exit Sub
	Dim dest As SDL_Rect  
	dest.x = x
	dest.y = y
	SDL_BlitSurface(img, 0, buffer, @dest)
End Sub