Reshape.hs

{-# OPTIONS_HADDOCK hide #-}

module Brillo.Internals.Interface.ViewState.Reshape (callback_viewState_reshape, viewState_reshape)
where

import Brillo.Internals.Interface.Backend
import Graphics.Rendering.OpenGL (($=))
import Graphics.Rendering.OpenGL.GL qualified as GL


{-| Callback to handle keyboard and mouse button events
     for controlling the viewport.
-}
callback_viewState_reshape :: Callback
callback_viewState_reshape =
  Reshape (viewState_reshape)


viewState_reshape :: ReshapeCallback
viewState_reshape stateRef (width, height) =
  do
    -- Setup the viewport
    --      This controls what part of the window openGL renders to.
    --      We'll use the whole window.
    --
    GL.viewport
      $= ( GL.Position 0 0
         , GL.Size (fromIntegral width) (fromIntegral height)
         )
    postRedisplay stateRef