Help Solving SDL2 Wrapper Example [SOLVED]
- Posted by Icy_Viking Sep 23, 2017
- 1852 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()