HCoop
/
clinton
/
guile-figl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add high-level glut bindings for init., windows
[clinton/guile-figl.git]
/
examples
/
glut
/
demo.scm
diff --git
a/examples/glut/demo.scm
b/examples/glut/demo.scm
index
6038f90
..
064d8d6
100644
(file)
--- a/
examples/glut/demo.scm
+++ b/
examples/glut/demo.scm
@@
-12,14
+12,14
@@
(gl-vertex -0.5 -0.5 0.0)
(gl-vertex 0.5 0.0 0.0)
(gl-vertex 0.0 0.5 0.0))
(gl-vertex -0.5 -0.5 0.0)
(gl-vertex 0.5 0.0 0.0)
(gl-vertex 0.0 0.5 0.0))
- (
glutSwapB
uffers))
+ (
swap-b
uffers))
-(
glutInitWindowS
ize 320 200)
-(
glutInitDisplayM
ode (display-mode rgb double depth))
+(
set-initial-window-s
ize 320 200)
+(
set-initial-display-m
ode (display-mode rgb double depth))
(glut-init (program-arguments))
(glut-init (program-arguments))
-(define main-window (
glutCreateW
indow "glut"))
+(define main-window (
make-w
indow "glut"))
(glutDisplayFunc (procedure->pointer void render-scene (list)))
(glutDisplayFunc (procedure->pointer void render-scene (list)))
-(glut
MainL
oop)
+(glut
-main-l
oop)