(require-extension bind coops) (bind-file "gl3w/include/GL/gl3w.h") (import (prefix glfw3 glfw:)) (glfw:key-callback (lambda (window key scancode action mods) (cond [(and (eq? key glfw:+key-escape+) (eq? action glfw:+press+)) (glfw:set-window-should-close window #t)]))) (glfw:with-window (640 480 "Recad" resizable: #t) (let loop () Press (glfw:swap-buffers (glfw:window)) (glfw:poll-events) (unless (glfw:window-should-close (glfw:window)) (gl3wInit) (glClearColor 0.18 0.2033 0.25 1.0) (glClear GL_COLOR_BUFFER_BIT) (loop) )))