opengl - 我们如何在 Haskell OpenGL 中离开全屏模式？

Question

在 HOpenGL 中，我可以使用 fullScreen 函数进入全屏模式：

http://hackage.haskell.org/package/GLUT-2.1.1.2/docs/Graphics-UI-GLUT-Window.html#v%3AfullScreen

但是，我们怎样才能离开全屏模式呢？有退出全屏模式的功能吗？我使用了 fullScreenToogle 函数，但出现运行时错误：

用户错误（未知 GLUT 调用 glutFullScreenToggle，检查 freeglut）

Answer 1

您将需要调用setWindowSize :: Size -> IO ()以退出全屏。此函数在内部调用glutReshapeWindow，导致退出全屏。看到这个答案。

Answer 2

我对 Ankur 的回答：

不在范围内：`setWindowSize'

我试过 windowSize $= Size 640 480 没有成功：

case key of
 ...
 Char 'F' ->
  fullScreen
 Char 'W' ->
  windowSize $= Size 640 480
 _ -> return ()

我在这个例子中添加了这段代码：

KeyboardAndMouse3DAnimation.hs

http://pastebin.com/W14KSeLj