HaskellでOpenGL(GLUT)を使って、三角形を描画する。

2d-triangle.hs

import Graphics.UI.GLUT

display :: DisplayCallback
display = do
    clear [ColorBuffer]
    color (Color3 0 0 0 :: Color3 GLdouble)
    renderPrimitive LineLoop $ mapM_ vertex2d [
          Vertex2 0 0
        , Vertex2 0.3 0
        , Vertex2 0.3 0.4
        ]
    flush
        where
            vertex2d = vertex :: Vertex2 GLdouble -> IO ()

main :: IO ()
main = do
    getArgsAndInitialize
    initialDisplayMode $= [RGBAMode]
    createWindow "Sample"
    clearColor $= Color4 1 1 1 1
    displayCallback $= display
    mainLoop