Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement