[clinton/guile-figl.git] / examples / glut / demo.scm

#!/usr/bin/env guile
!#

(use-modules (figl glut low-level)
             (figl glut)
             (figl gl)
             (system foreign))

(define (render-scene)
  (gl-clear (clear-buffer-mask color-buffer depth-buffer))
  (gl-begin (begin-mode triangles)
    (gl-vertex -0.5 -0.5 0.0)
    (gl-vertex 0.5 0.0 0.0)
    (gl-vertex 0.0 0.5 0.0))
  (swap-buffers))

(set-initial-window-size 320 200)
(set-initial-display-mode (display-mode rgb double depth))

(glut-init (program-arguments))

(define main-window (make-window "glut"))

(glutDisplayFunc (procedure->pointer void render-scene (list)))
(glut-main-loop)
Commit	Line	Data
216f9972 AW	1	#!/usr/bin/env guile
	2	!#
	3
ea80f801	4	(use-modules (figl glut low-level)
216f9972	5	(figl glut)
ea80f801	6	(figl gl)
216f9972 AW	7	(system foreign))
216f9972 AW	8
216f9972	9	(define (render-scene)
ea80f801 DH	10	(gl-clear (clear-buffer-mask color-buffer depth-buffer))
	11	(gl-begin (begin-mode triangles)
	12	(gl-vertex -0.5 -0.5 0.0)
	13	(gl-vertex 0.5 0.0 0.0)
	14	(gl-vertex 0.0 0.5 0.0))
7100c070	15	(swap-buffers))
216f9972	16
7100c070 DH	17	(set-initial-window-size 320 200)
7100c070 DH	18	(set-initial-display-mode (display-mode rgb double depth))
216f9972 AW	19
	20	(glut-init (program-arguments))
	21
7100c070	22	(define main-window (make-window "glut"))
216f9972 AW	23
216f9972 AW	24	(glutDisplayFunc (procedure->pointer void render-scene (list)))
7100c070	25	(glut-main-loop)