conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

the opengl demos now work unmodified under both ikarus and ypsilon.

This commit is contained in:
Abdulaziz Ghuloum 2008-09-24 06:00:42 -04:00
parent c8d0baa341
commit 6a9de3e974
2 changed files with 157 additions and 151 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lab/ypsilon-ffi/glut-demo.scm
View File

@ -9,12 +9,12 @@
;; Linux: libGL.so.1 libglut.so.3 ;; Linux: libGL.so.1 libglut.so.3
(import (gl) (glut) (import
(gl) (glut)
(ypsilon-compat) (ypsilon-compat)
(rename (except (rnrs) angle display) (rename (except (rnrs) angle display) (reverse rnrs:reverse))
(reverse rnrs:reverse))
(rnrs programs)) (rnrs programs))
(begin
(define object glutSolidIcosahedron) (define object glutSolidIcosahedron)
@ -176,4 +176,4 @@
(glutAttachMenu GLUT_RIGHT_BUTTON) (glutAttachMenu GLUT_RIGHT_BUTTON)
(glutMainLoop))) (glutMainLoop)))
(run)) (run)

6
lab/ypsilon-ffi/ypsilon-compat.ypsilon.ss Normal file
View File

@ -0,0 +1,6 @@
(library (ypsilon-compat)
(export on-windows on-darwin on-linux on-freebsd on-posix
load-shared-object c-argument c-function
microsecond usleep format)
(import (core) (ffi)))