~jack/misc

8e0fd69de4f6e4e409e878077fdd06e4e06e339a — Jack Kelly 7 months ago fb9ba93
Remove dead code
1 files changed, 2 insertions(+), 12 deletions(-)

M consengine/src/App.hs
M consengine/src/App.hs => consengine/src/App.hs +2 -12
@@ 124,16 124,6 @@ guest window manager = do
      , [ V3 3.5 0 0, V3 8 0 0, V3 8 (-0.5) 0, V3 4 (-0.5) 0 ]
      ]

  let dPoints = constDyn
        ( StaticDraw
        , [ V3 10 10 0
          , V3 10 (-10) 0
          , V3 (-10) (-10) 0
          , V3 (-10) 10 0
          ] :: [Vec3]
        )
  performEvent_ $ liftIO . print <$> updated dPoints

  vertexBuffers <- for haskellLogo $ \points -> do
    vbo <- bufferObject ArrayBufferTarget $ constDyn (StaticDraw, points)
    pure (vbo, genericLength points)


@@ 174,7 164,7 @@ setupGL = do
     , GLFW.WindowHint'OpenGLProfile GLFW.OpenGLProfile'Core
     ] :: [GLFW.WindowHint])

  win <- GLFW.createWindow 640 480 "Hello Compose!" Nothing Nothing >>= \case
  win <- GLFW.createWindow 800 600 "Hello Compose!" Nothing Nothing >>= \case
    Nothing ->
      putStrLn "GLFW createWindow failed" *> GLFW.terminate *> exitFailure
    Just win -> GLFW.makeContextCurrent (Just win) $> win


@@ 185,7 175,7 @@ setupGL = do
  pure win

pumpInput
  :: (MonadIO m)
  :: MonadIO m
  => GLFW.Window
  -> (() -> IO ()) -- ^ Fire quit event
  -> (NonEmpty (GLFW.Key, GLFW.KeyState) -> IO ()) -- ^ Fire input event