Beispiel #1
0
int do_main(VM* vm, VAL* oldbase) {
    INITFRAME;
    RESERVE(2);
    ADDTOP(2);

    LOC(0) = MKCON(vm, 0, 0);
    LOC(0) = MKCON(vm, 1, 1, LOC(0));
    LOC(0) = MKCON(vm, 1, 1, LOC(0));

    dumpVal(LOC(0));
    printf("\n");

    LOC(1) = MKCON(vm, 0, 0);
    LOC(1) = MKCON(vm, 1, 1, LOC(1));
    LOC(1) = MKCON(vm, 1, 1, LOC(1));

    RESERVE(2);
    TOP(0) = LOC(0);
    TOP(1) = LOC(1);

    STOREOLD;
    BASETOP(0);
    ADDTOP(2);
    CALL(plus);
    LOC(0) = RVAL;    

    RESERVE(1);
    TOP(0) = LOC(0);
    SLIDE(vm, 1);
    TOPBASE(1);
    TAILCALL(natToInt);
/*    STOREOLD;
    BASETOP(0);
    ADDTOP(1);
    CALL(natToInt);
    TOPBASE(0);
    REBASE; */
}
Beispiel #2
0
#define SLIDE(name, param) {name##_render, name##_init, name##_deinit, param}

DECLARE_SLIDE(pong);
DECLARE_SLIDE(videotracer);
DECLARE_SLIDE(cubes);
DECLARE_SLIDE(metaballs);
DECLARE_SLIDE(showilda);
DECLARE_SLIDE(paintilda);
DECLARE_SLIDE(diag);
DECLARE_SLIDE(urls);
DECLARE_SLIDE(libol);
DECLARE_SLIDE(circlescope);

slide_t slides[] = {
	SLIDE(paintilda, "openlase-logo.ild"),
	SLIDE(diag, NULL),
	SLIDE(showilda, "jack-logo.ild"),
	SLIDE(showilda, "output.ild"),
	SLIDE(libol, NULL),
	SLIDE(cubes, NULL),
	SLIDE(pong, NULL),
	SLIDE(circlescope, "/home/marcansoft/media/midi/smb1.mp3"),
	SLIDE(metaballs, NULL),
	SLIDE(videotracer, &vparms),
	SLIDE(showilda, "27c3-logo.ild"),
	SLIDE(urls, NULL),
};

OLRenderParams master_params;