mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
24 lines
482 B
Plaintext
24 lines
482 B
Plaintext
(import gl)
|
|
|
|
^ann glfw-key-callback-type
|
|
(defn on-key [window key scancode action mods]
|
|
(if (= key-esc key)
|
|
(glfwSetWindowShouldClose window true)
|
|
(println &(str key))))
|
|
|
|
(defn draw []
|
|
(do
|
|
(glClearColor 0.1 0.1 0.1 1.0)
|
|
(glClear carp-gl-color-buffer-bit)
|
|
(glColor3f 1.0 1.0 1.0)
|
|
(let [r 0.9
|
|
t (glfwGetTime)]
|
|
(draw-line 0.0 0.0 (* r (cosf t)) (* r (sinf t))))
|
|
))
|
|
|
|
(defn game []
|
|
(glfw-app "This is a demo" draw on-key))
|
|
|
|
(bake game)
|
|
|