12 SDL_Init (SDL_INIT_EVERYTHING);
14 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
16 flags = SDL_OPENGL | SDL_GL_DOUBLEBUFFER | SDL_HWPALETTE | SDL_RESIZABLE | SDL_SWSURFACE;
17 SDL_SetVideoMode (200, 200, 32, flags);
19 glShadeModel (GL_SMOOTH);
20 glClearColor (0, 0, 0, 0);
21 glHint (GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
22 glViewport (0, 0, 200, 200);
23 glMatrixMode (GL_PROJECTION);
25 glOrtho (-200, 200, -200, 200, 0, 1);
26 glMatrixMode (GL_MODELVIEW);
29 return SCM_UNSPECIFIED;
34 contador = contador + incremento;
35 if (contador > 1000) incremento = -1;
36 else if (contador < 0) incremento = 1;
44 pthread_create(&t, NULL, bucle, NULL);
45 return SCM_UNSPECIFIED;
49 return scm_from_int(contador);
53 register_functions (void* data)
55 scm_c_define_gsubr ("prueba", 0, 0, 0, &prueba);
56 scm_c_define_gsubr ("ver-contador", 0, 0, 0, &ver_contador);
57 scm_c_define_gsubr ("lanzar-bucle", 0, 0, 0, &lanzar_bucle);
62 int main (int argc, char *argv[]) {
63 /* GSCM_status status;
64 GSCM_top_level toplev;
66 status = gscm_eval_str(NULL, toplev, "(use-modules (ice-9 readline))");
67 status = gscm_eval_str(NULL, toplev, "(activate-readline)");
69 scm_with_guile (®ister_functions, NULL);
70 scm_c_eval_string("(set-repl-prompt! \"gacela>\")");
71 scm_c_eval_string("(use-modules (ice-9 readline))");
72 scm_c_eval_string("(activate-readline)");
73 scm_shell (argc, argv);