使用 lwjgl 从 Clojure REPL 创建 OpenGL 窗口答案

【问题标题】：Creating an OpenGL window from the Clojure REPL with lwjgl使用 lwjgl 从 Clojure REPL 创建 OpenGL 窗口
【发布时间】：2016-07-11 04:15:19
【问题描述】：

我正在尝试将 lwjgl 与 clojure 一起用于游戏开发。

我的第一步是尝试从 REPL 在 OpenGL 屏幕上显示一些东西。使用 lein repl 启动 repl 后，这是我到目前为止所做的：

(import org.lwjgl.opengl GL11 Display DisplayMode
(Display/setDisplayMode (DisplayMode. 800 600))
(Display/create) ; This shows a black 800x600 window as expected
(GL11/glClearColor 1.0 0.0 0.0 1.0) 
(GL11/glClear (bit-or GL11/GL_COLOR_BUFFER_BIT GL11/GL_DEPTH_BUFFER_BIT))
(Display/update)

请注意，如果做得足够快，这将有效。但过了一会儿（即使我只是等待）我开始收到有关当前 OpenGL 上下文未绑定到当前线程的错误。

(Display/update)
IllegalStateException No context is current  org.lwjgl.opengl.LinuxContextImplementation.swapBuffers (LinuxContextImplementation.java:72)

(GL11/glClear ...) 
RuntimeException No OpenGL context found in the current thread.  org.lwjgl.opengl.GLContext.getCapabilities (GLContext.java:124)

但也许最有趣的错误发生在我尝试调用 Display/destroy 时

(Display/destroy)
IllegalStateException From thread Thread[nREPL-worker-4,5,main]: Thread[nREPL-worker-0,5,] already has the context current  org.lwjgl.opengl.ContextGL.checkAccess (ContextGL.java:184)

看起来好像 repl 在一段时间不活动后随机生成了另一个线程。正如我所读到的，LWJGL 只允许您从最初创建它的线程进行 OpenGL 调用，所以我敢打赌这是导致这些错误的原因。

但是 REPL 怎么会随机切换线程呢？尤其是如果我什么都不做，只是等待。

【问题讨论】：

标签： opengl clojure lwjgl read-eval-print-loop nrepl

【解决方案1】：

这是一个已知问题already reported against nREPL project（和discussed on Clojure Google Group）。似乎 nREPL 使用终止空闲线程的线程池（可能根据keepalive 设置）。

在修复之前，您可以使用解决方法（我承认有点尴尬）：

(import '(java.util.concurrent Executors))

(def opengl-executor (Executors/newSingleThreadExecutor))

(defmacro with-executor [executor & body]
  `(.submit ~executor (fn [] ~@body)))

(on-executor opengl-executor
  (println (.getId (Thread/currentThread))))

通过使用您自己的执行器，所有包裹在on-executor 中的代码都将在其线程中执行。 newSingleThreadExecutor 创建一个单线程，根据doc，仅当当前线程因异常而失败时才会替换它。当您尝试以长时间延迟执行最后一个表达式时，打印的线程 ID 应该保持不变。

请记住，停止应用程序时您应该shutdown 执行程序。

【讨论】：