-#include <pthread.h>
-
-SCM prueba () {
- int flags;
-
- SDL_Init (SDL_INIT_EVERYTHING);
-
- SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
-
- flags = SDL_OPENGL | SDL_GL_DOUBLEBUFFER | SDL_HWPALETTE | SDL_RESIZABLE | SDL_SWSURFACE;
- SDL_SetVideoMode (200, 200, 32, flags);
-
- glShadeModel (GL_SMOOTH);
- glClearColor (0, 0, 0, 0);
- glHint (GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
- glViewport (0, 0, 200, 200);
- glMatrixMode (GL_PROJECTION);
- glLoadIdentity ();
- glOrtho (-200, 200, -200, 200, 0, 1);
- glMatrixMode (GL_MODELVIEW);
- glLoadIdentity ();
-
- return SCM_UNSPECIFIED;
-}
-
-void *bucle () {
- while (1) {
- scm_c_eval_string("(define contador (+ contador incremento))");
- scm_c_eval_string("(if (> contador 1000) (define incremento -1))");
- scm_c_eval_string("(if (< contador 0) (define incremento 1))");
- }
- pthread_exit(NULL);
-}
-
-void *bucle2 () {
- char *argv[0];
-
- argv[0] = malloc(10);
- strcpy(argv[0], "./gacela");
- scm_shell(1, argv);
-}
-
-int lanzar_bucle2 () {
- pthread_t t;
-
- pthread_create(&t, NULL, bucle2, NULL);
- return 0;
-}
-
-SCM lanzar_bucle () {
- pthread_t t;
-
- pthread_create(&t, NULL, bucle, NULL);
- return SCM_UNSPECIFIED;
-}
-
-/*SCM ver_contador () {
- return scm_from_int(contador);
-}*/