suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ported example from pretty-big to racket/gui

Browse Source 
(Why? sgl is in mr dist, pretty-big is in plt dist)
This commit is contained in:
Ryan Culpepper 2010-08-31 16:14:10 -06:00
parent a436df02f4
commit 4f41e3f79d
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/sgl/examples/gl-frame.rkt
View File

@ -1,6 +1,5 @@
;; By Brendan Burns, with modifications by Scott Owens ;; By Brendan Burns, with modifications by Scott Owens
(module gl-frame racket/gui
(module gl-frame lang/plt-pretty-big
(require sgl/gl (require sgl/gl
sgl/gl-vectors) sgl/gl-vectors)
(provide set-gl-draw-fn (provide set-gl-draw-fn
@ -110,7 +109,7 @@
(letrec (letrec
([loop ([loop
(lambda () (lambda ()
(if (< i pixels) (when (< i pixels)
(begin (begin
(gl-vector-set! vec (* i 3) (gl-vector-set! vec (* i 3)
(bytes-ref data (+ (* i 4) 1))) (bytes-ref data (+ (* i 4) 1)))
@ -147,6 +146,3 @@
(lambda (ix) (lambda (ix)
(gl-vector-ref *textures* ix))) (gl-vector-ref *textures* ix)))
) )