Обработка нажатия клавиш
Создается простой прямоугольник:
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)]
каким образом сделать так, чтобы по нажатию на клавишу он, к примеру, перемещался вправо?
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)]
каким образом сделать так, чтобы по нажатию на клавишу он, к примеру, перемещался вправо?