1 #include <irrlicht/irrlicht.h>
9 SCM register_generator(SCM name, SCM proc)
11 printf ("Register: %s\n", scm_to_locale_string(name));
12 scm_call_1(proc, scm_from_int(-1));
13 return SCM_UNSPECIFIED;
16 void init_dungeon_master_module(void *unused)
18 scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
19 scm_c_export("register-generator", NULL);
22 void scm_init_dungeon_master_module()
24 scm_c_define_module("dungeon-master", init_dungeon_master_module, NULL);
30 scm_init_dungeon_master_module();
31 scm_primitive_load(scm_from_locale_string("mods/default/main.scm"));
33 IrrlichtDevice* device =
34 createDevice(EDT_OPENGL,
35 dimension2d<u32>(640, 480), 16,
36 false, false, false, 0);
40 device->setWindowCaption(L"Dungeon Master");
42 IVideoDriver* driver = device->getVideoDriver();
43 IGUIEnvironment* env = device->getGUIEnvironment();
45 env->addStaticText(L"Dungeon Master", rect<s32>(150,20,350,40), true);
47 IGUITabControl* tab = env->addTabControl(rect<s32>(50, 60, 850, 600));
48 tab->addTab(L"First");
49 tab->addTab(L"Second");
50 tab->addTab(L"Third");
54 driver->beginScene(true, true, SColor(0, 200, 200, 200));