import GL
import GLU
import GLUT
import System(ExitCode(..), exitWith)
import Lines

display :: DisplayAction
display = do
    clear [ ColorBufferBit ]
    loadIdentity
    color (Color3 1.0 0.0 (0.0::GLfloat))
    translate $ Vector3 1 1 (0::GLfloat)
    drawLine
    translate $ Vector3 1 0 (0::GLfloat)
    drawLine'
    flush

myInit :: IO ()
myInit = do
    clearColor (Color4 0 0 0 0)
    matrixMode Projection
    loadIdentity
    ortho 0 3 0 4 (-1) 1
    matrixMode Modelview

keyboard :: KeyboardAction
keyboard '\27' _ = exitWith ExitSuccess
keyboard 'q'   _ = exitWith ExitSuccess

main :: IO ()
main = do
    GLUT.init Nothing
    createWindow "mine test" (return ()) [ GLUT.Single, GLUT.Rgb ] 
		 Nothing
		 (Just (WindowSize 320 240))
    myInit
    keyboardFunc (Just keyboard)
    displayFunc display
    mainLoop