[Haskell] Обработка нажатия клавиш в GLUT

 
0
 
Functional languages
ava
Zambidis | 12.01.2011, 12:41
Создается простой прямоугольник:

import Graphics.UI.GLUT
import Graphics.Rendering.OpenGL

main = do
    (progName, _) <-getArgsAndInitialize
    createAWindow progName
    mainLoop

createAWindow windowName = do
    createWindow windowName
    displayCallback $= displayPoints

displayPoints = do
    clear [ColorBuffer]
    renderPrimitive Polygon
        $ mapM_ (\(x, y, z)->vertex $ Vertex3 x y z) myPoints

myPoints :: [(GLfloat,GLfloat,GLfloat)]
myPoints =
    [(-0.5, 0.5, 0.0)
    ,(0.5, 0.5, 0.0)
    ,(0.5, -0.5, 0.0)
    ,((-0.5), -0.5, 0.0)]


каким образом сделать так, чтобы по нажатию на клавишу он, к примеру, перемещался вправо?
Comments (0)

Comments are not added

Please register or login to write.
Firm of day
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Contributors
advanced
Submit