1

これはドキュメントで見つけることができます。

ただし、コンパイルするたびに、スコープエラーが発生します。

これが私のコードです：

import Graphics.Rendering.OpenGL as GL
import Graphics.UI.GLFW as GLFW
import Graphics.Rendering.OpenGL (($=))
import System.Environment (getArgs, getProgName)

import Control.Monad

main = do
  GLFW.initialize
  GLFW.openWindow (GL.Size 400 400) [GLFW.DisplayAlphaBits 8] GLFW.Window
  GLFW.windowTitle $= "openGL Test"

  render <- initialize'
  loop render

  GLFW.closeWindow
  GLFW.terminate


loop render = do
  render
  p <- GLFW.getKey GLFW.ESC
  unless (p == GLFW.Press) $ do
    isOpen <- GLFW.windowIsOpen
    when isOpen $ loop render

initialize' = do
  return $ do
    GL.clear [GL.ColorBuffer]
4

1 に答える 1

1

あなたが参照しているドキュメントはかなり古いようです。最新バージョンの新しいドキュメントがあります。

windowIsOpenはもう存在せず、 に置き換えられたようgetParam Openedです。

于 2012-06-05T19:45:04.870 に答える