我们如何在哈斯克尔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，检查是否自由过剩(

Answer 1

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

Answer 2

我对安库尔的回答：

不在范围内："设置窗口大小">

我尝试了窗口大小 $= 大小 640 480 但没有成功：

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

我在此示例中添加了这段代码：

键盘和鼠标3DAnimation.hs

http://pastebin.com/W14KSeLj