main :: IO ()
main =
  do win <- W.makeWindow "Line Plot" (640, 640)
     canvas <- W.initGLFW win

     lineNode <- lineInit $ LineSpec lineVerts (L.V3 0.2 0.5 1)

     let cam = panZoomCamera { panZoomCenter = L.V2 1 2
                             , panZoomWidth  = 10
                             , panZoomHeight = 7 }
         camNode = transNode (cameraTrans cam) lineNode
         scene = sceneRoot canvas camNode

     W.mainLoop' win (drawGraph scene)
main :: IO ()
main =
  do win <- W.makeWindow "Line Plot" (640, 640)
     canvas <- W.initGLFW win

     lineNode <- lineInit $ LineSpec lineVerts (L.V3 0.2 0.5 1)

     let cam = panZoomCamera { panZoomCenter = L.V2 1 2
                             , panZoomWidth  = 10
                             , panZoomHeight = 7 }
         camNode = transNode (cameraTrans cam) lineNode
         scene = sceneRoot canvas camNode

     W.mainLoop' win (drawGraph scene)
main =
  do win <- W.makeWindow "Line Plot" (640, 640)
     canvas <- W.initGLFW win

     lineNode <- lineInit $ LineSpec lineVerts (L.V3 0.2 0.5 1)

     let cam = panZoomCamera { panZoomCenter = L.V2 1 2
                             , panZoomWidth  = 10
                             , panZoomHeight = 7 }
         camNode = transNode (cameraTrans cam) lineNode
         scene = sceneRoot canvas camNode

     W.mainLoop' win (drawGraph scene)