mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-12 04:58:18 +03:00
32 lines
883 B
Plaintext
32 lines
883 B
Plaintext
(import gl)
|
|
|
|
(defn gl-demo ()
|
|
(if (glfwInit)
|
|
(let [window (glfwCreateWindow 640 480 "Yeah!" NULL NULL)]
|
|
(if (null? window)
|
|
(panic "No window.")
|
|
(do (println "Window OK.")
|
|
(glfwMakeContextCurrent window)
|
|
(while (not (glfwWindowShouldClose window))
|
|
(do
|
|
(glClearColor 0.6 0.85f 0.85f 1.0f)
|
|
(glClear carp-gl-color-buffer-bit)
|
|
(glColor3f 1.0 0.9f 0.2f)
|
|
(draw-rect -0.5f -0.5f 1.0f 1.0f)
|
|
(glfwSwapBuffers window)
|
|
(glfwPollEvents)))
|
|
(println "Time to go.")
|
|
(glfwTerminate))))
|
|
(panic "Failed to initialize glfw.")))
|
|
|
|
;;(bake draw-rect)
|
|
|
|
;(def app-ast (lambda-to-ast (code app)))
|
|
;(def app-asta (annotate-ast app-ast))
|
|
|
|
;;(bake* gl-demo '(draw-rect))
|
|
;;(bake-gl-exe)
|
|
|
|
(bake-exe gl-demo)
|
|
|