Display.hs for OpenGL tutorial

module Display (display) where

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

import Cube
import Points

display :: IO()
display = do
    clear [ColorBuffer]
    scale 0.7 0.7 (0.7::GLfloat)
    mapM_ (\(x,y,z) -> preservingMatrix $ do
        color $ Color3 ((x+1.0)/2.0) ((y+1.0)/2.0) ((z+1.0)/2.0)
        translate $ Vector3 x y z
        cube (0.1::GLfloat)
        ) points 7
    flush