OpenEuphoria

Help Solving SDL2 Wrapper Example [SOLVED]

• Posted by Icy_Viking Sep 23, 2017
• 1848 views

Hello,

I have updated the EuSDL2 Wrapper for SDL 2.0.6 http://www.rapideuphoria.com/uploads/eusdl2.zip

I am still having a problem with the SDL_CreateRenderer() function however. The error I get is a machine-level exception. Bad routine number (-1).

-Wrapper Code

xSDL_CreateRenderer = define_c_func(sdl2,"SDL_CreateRender",{C_POINTER,C_INT,C_UINT},C_POINTER) 
 
public function SDL_CreateRenderer(atom win,integer idx,SDL_RENDERERFLAGS flags) 
 
 return c_func(xSDL_CreateRenderer,{win,idx,flags}) 
	 
end function 

-Example

include std/get.e 
include std/io.e 
include std/machine.e 
include EuSDL2.ew 
include flags.e 
 
if SDL_Init(SDL_INIT_EVERYTHING) = -1 then 
	puts(1,"Failed to init SDL2!\n") 
	abort(0) 
end if 
 
atom win = SDL_CreateWindow("Render Demo",SDL_WINDOWPOS_CENTERED,SDL_WINDOWPOS_CENTERED,640,480,SDL_WINDOW_SHOWN) 
atom ren = SDL_CreateRenderer(win,-1,SDL_RENDERER_ACCELERATED) 
 
 
atom gfx,tex 
 
gfx = SDL_LoadBMP("SDL.bmp") 
tex = SDL_CreateTextureFromSurface(ren,gfx) 
 
if win = -1 then 
	puts(1,"Failed to create window!\n") 
	abort(0) 
end if 
 
atom key = 0 
integer running = 1 
 
while running = 1 do 
	 
	SDL_PumpEvents() 
	 
	key = SDL_GetKeyboardState(key) 
	 
	if (peek(key+SDL_SCANCODE_ESCAPE) > 0) then 
			running = 0 
	end if 
	 
	--SDL_SetRenderDrawColor(ren,0,0,0,0) 
	 
	if SDL_RenderClear(ren) < 0 then 
		puts(1,"Failed to clear window!\n") 
		abort(0) 
	end if 
	 
	if SDL_RenderCopy(ren,tex,0,0) < 0 then 
		puts(1,"Failed to render image!\n") 
		abort(0) 
	end if 
	 
	SDL_RenderPresent(ren) 
 
end while 
 
SDL_FreeSurface(gfx) 
SDL_DestroyTexture(tex) 
SDL_DestroyRenderer(ren) 
SDL_DestroyWindow(win) 
 
SDL_Quit()