import derelict.sdl2.sdl;
import sdlraii.except;
import sdlraii.raii;
import std.string : toStringz;

void main()
{
    // Komencas SDL bibliotekon. Escepto estas ĵetita se ĝi malsukcesas.
    DerelictSDL2.load;

    SDL_Try(SDL_Init(SDL_INIT_EVERYTHING));

    scope (exit) { SDL_Quit(); }

    {
        // Kreas fenestron kaj rendiston, kiuj estos liberigitaj de RAII.
        auto window = SDL_RAII!(SDL_Window*)(
            SDL_CreateWindow(toStringz(`Alice`), 256, 256, 256, 256, SDL_WINDOW_SHOWN));

        auto renderer = SDL_RAII!(SDL_Renderer*)(
            SDL_CreateRenderer(window.ptr, -1, SDL_RENDERER_ACCELERATED));

        // Plenigas la ekranon. Escepto estos ĵetita se ĝi malsukcesas.
        SDL_Try(SDL_SetRenderDrawColor(renderer.ptr, 0xC0, 0xBE, 0xBE, 0xEF));
        SDL_Try(SDL_RenderFillRect(renderer.ptr, null));

        SDL_RenderPresent(renderer.ptr);

        // Atendas iomete.
        SDL_Delay(5000);
    }
}