7. Framebuffer

7.1. Set Size

The global framebuffer dimensions can be size using the function monolith:gfx-setsize.

{"monolith:gfx-setsize", pp_setsize, 2, 2, {INT,INT,___}},

static cell pp_setsize(cell p)
{
    monolith_d *m;
    monolith_framebuffer *fb;
    int w;
    int h;
    char *name = "monolith:gfx-setsize";
    m = monolith_data_get();
    w = integer_value(name, car(p));
    p = cdr(p);
    h = integer_value(name, car(p));
    m = monolith_data_get();
    fb = monolith_fb_get(m);
    monolith_framebuffer_setsize(fb, w, h);
    return UNSPECIFIC;
}

{
"monolith/gfx-setsize",
j_gfx_setsize,
"(monolith/gfx-setsize w h)\n"
"Sets size of framebuffer.\n"
},

static Janet j_gfx_setsize(int32_t argc, Janet *argv)
{
    monolith_d *m;
    monolith_framebuffer *fb;
    int w, h;

    janet_fixarity(argc, 2);
    m = monolith_data_get();
    fb = monolith_fb_get(m);

    w = janet_unwrap_integer(argv[0]);
    h = janet_unwrap_integer(argv[1]);

    monolith_framebuffer_setsize(fb, w, h);

    return janet_wrap_nil();
}

7.2. Get Width/Height

The Janet functions monolith/gfx-width and monolith/gfx-height returns the width and height of the current framebuffer.

{
"monolith/gfx-width",
j_gfx_width,
"(monolith/gfx-width)\n"
"Gets framebuffer width.\n"
},
{
"monolith/gfx-height",
j_gfx_height,
"(monolith/gfx-height)\n"
"Gets framebuffer height.\n"
},

static Janet j_gfx_width(int32_t argc, Janet *argv)
{
    monolith_d *m;
    monolith_framebuffer *fb;
    int w;

    janet_fixarity(argc, 0);

    m = monolith_data_get();
    fb = monolith_fb_get(m);

    w = monolith_gfx_width(fb);

    return janet_wrap_integer(w);
}

static Janet j_gfx_height(int32_t argc, Janet *argv)
{
    monolith_d *m;
    monolith_framebuffer *fb;
    int h;

    janet_fixarity(argc, 0);

    m = monolith_data_get();
    fb = monolith_fb_get(m);

    h = monolith_gfx_height(fb);

    return janet_wrap_integer(h);
}

7.3. Zoom

This scheme function can be set using the function monolith:gfx-zoom.

{"monolith:gfx-zoom", pp_zoom, 1, 1, {INT,___,___}},

static cell pp_zoom(cell p)
{
    int zoom;
    monolith_framebuffer *fb;
    monolith_d *m;
    char name[] = "monolith:gfx-zoom";

    zoom = integer_value(name, car(p));
    m = monolith_data_get();
    fb = monolith_fb_get(m);
    if(fb != NULL) {
        monolith_framebuffer_zoom(fb, zoom);
    }
    return UNSPECIFIC;
}

static Janet j_gfx_zoom(int32_t argc, Janet *argv)
{
    monolith_d *m;
    monolith_framebuffer *fb;
    int zoom;

    janet_fixarity(argc, 1);
    m = monolith_data_get();
    fb = monolith_fb_get(m);

    zoom = janet_unwrap_integer(argv[0]);

    if (fb != NULL) monolith_framebuffer_zoom(fb, zoom);

    return janet_wrap_nil();
}

{
"monolith/gfx-zoom",
j_gfx_zoom,
"(monolith/gfx-zoom zoom)\n"
"Sets zoom factor of framebuffer.\n"
},

---

prev | home | next