我们如何在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，从而导致全屏退出。请参阅this回答。

Answer 2

我对Ankur的回答：

不在范围内：`setWindowSize'

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

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

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

KeyboardAndMouse3DAnimation.hs

http://pastebin.com/W14KSeLj