gistfile1.scm

(define
  color-attachment
  (texture-create
   #:target 'texture-2d
   #:num-channels 4
   #:format 'fixedpoint
   #:width 640
   #:height 360))

(define
  depth-attachment
  (texture-create
   #:target 'texture-2d
   #:num-channels 1
   #:format 'depth
   #:width 640
   #:height 360))

(define fb (framebuffer-create))

(define show-frame
  (lambda ()
	(framebuffer-attach-texture fb color-attachment)
	(framebuffer-attach-texture fb depth-attachment)
	(framebuffer-bind fb)
	(gl-clear-color 0.0 1.0 0.0 1.0)
	(gl-clear)
	(framebuffer-flip fb)))