1

我正在尝试使用 OpenGL 在 Haskell 的 3D 空间中渲染一些对象。不过，我不知道如何在 Z 维度上渲染形状。调整三角形点的值会导致它不渲染。（是否有glEnable我缺少的等效项来设置深度缓冲区？）

这是代码（为简洁而编辑）：

initGL :: IO ()
initGL = do
            shadeModel $= Smooth
            clearDepth $= 1
            depthFunc $= Just Lequal
            hint PerspectiveCorrection $= Nicest

drawFrame :: WindowRefreshCallback
drawFrame = do
               clear [ ColorBuffer, DepthBuffer ]
               loadIdentity

               renderPrimitive Triangles $ foldl1' (>>) $ map vertex
                   [ Vertex3 0      1  0 -- top
                   , Vertex3 1    (-1) 0 -- bottom right
                   , Vertex3 (-1) (-1) (0 :: GLdouble) -- bottom left
                   ]   

               flush

main :: IO()
main = do
          True <- initialize
          True <- openWindow (Size 800 600) [] Window 

          ... -- Set window title, set up callbacks

          initGL
          clearColor $= toGLColor (Color4 0 175 200 0)

          doWhile (not <$> readIORef isClosed) $ drawFrame >> swapBuffers
4

1 回答 1

1

这就是我设置窗口的方法。我正在使用 GLUT 进行设置。

main = do
  (progName, _) <- getArgsAndInitialize
  initialDisplayMode $= [DoubleBuffered, WithDepthBuffer]
  createWindow progName
  windowSize $= Size 640 480
  <...code omitted...>

您可能要关注的行是设置窗口的第三行WithDepthBuffer

于 2012-05-22T05:19:50.693 回答