Skip to content

Instantly share code, notes, and snippets.

@metacritical

metacritical/core-import.clj

Last active July 29, 2019 18:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save metacritical/bed233c07da6c5ab2ba800b91264cef1 to your computer and use it in GitHub Desktop.
Save metacritical/bed233c07da6c5ab2ba800b91264cef1 to your computer and use it in GitHub Desktop.
Download ZIP
Creating The Game window.
Raw
core-import.clj
(ns core
(:gen-class))
(assembly-load-from "./extern/OpenTK/lib/net20/OpenTK.dll")
(defn -main[]
(Console/WriteLine "Starting OpenTK Window."))
Raw
core-import_1.clj
(ns core
(:gen-class))
(assembly-load-from "./extern/OpenTK/lib/net20/OpenTK.dll")
(import [System]
[System.IO]
[System.Console]
[System.Drawing]
[OpenTK]
[OpenTK.Graphics.ES30 ClearBufferMask]
[OpenTK.Graphics.OpenGL GL]
[OpenTK.Input]
[clojure.lang])
(defn -main []
(Console/WriteLine "Starting OpenTK Window."))
Raw
core-import_2.clj
(ns core
(:gen-class))
(assembly-load-from "./extern/OpenTK/lib/net20/OpenTK.dll")
(import [System]
[System.IO]
[System.Console]
[System.Drawing]
[OpenTK]
[OpenTK.Graphics.ES30 ClearBufferMask]
[OpenTK.Graphics.OpenGL GL]
[OpenTK.Input]
[clojure.lang])
(defonce game (new GameWindow 800 600))
(def CornflowerBlue Color/CornflowerBlue)
(defn -main []
(Console/WriteLine "Starting OpenTK Window.")
(GL/ClearColor CornflowerBlue)
(GL/Clear ClearBufferMask/ColorBufferBit)
(.SwapBuffers game)
(.Run game 30.0))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment