(ffi:clines "
#include <SDL2/SDL.h>

SDL_Renderer *renderer;
SDL_Window *window;
SDL_Event e;

const Uint8 *state;

int quitted;

int up_arrow, down_arrow, left_arrow, right_arrow;
")

(defun fill-rect (r g b x y w h)
(ffi:c-inline (r g b x y w h) (:int :int :int :int :int :int :int) nil
 "
 SDL_SetRenderDrawColor(renderer,#0,#1,#2,255);
 SDL_RenderFillRect(renderer,
     &(struct SDL_Rect){.x = #3, .y = #4, .w = #5, .h = #6});
 SDL_SetRenderDrawColor(renderer,0,0,0,255);
 "))

(unwind-protect
  (ffi:c-progn ()
   "

if (SDL_Init(SDL_INIT_VIDEO) < 0) {
       SDL_LogError(SDL_LOG_CATEGORY_APPLICATION,
           \"Failed to init %s\",
           SDL_GetError());
       " (error "SDL init error") "
}

if (SDL_CreateWindowAndRenderer(640,480,SDL_WINDOW_RESIZABLE,
       &window, &renderer)) {
       SDL_LogError(SDL_LOG_CATEGORY_APPLICATION,
           \"Failed to create w & r%s\",
           SDL_GetError());
       " (error "SDL create window error") "
}

quitted = 0;
for (;;) {
       while(SDL_PollEvent(&e))
           if (e.type == SDL_QUIT) quitted = 1;
           else if (e.type == SDL_KEYDOWN)
               switch (e.key.keysym.sym) {
               case SDLK_q:
                   quitted = 1;
                   break;
               }
       if (quitted) break;
       SDL_RenderClear(renderer);
       "
       (fill-rect 100 200 255 100 200 300 400)
       "
       SDL_RenderPresent(renderer);
       SDL_Delay(25);
}")
(ffi:c-inline () () nil "SDL_Quit()" :one-liner t))

(si:quit)

You are viewing proxied material from tilde.institute. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.