module FWGL.Backend.GLFW.GL20 (createCanvas') where
import FWGL.Backend.IO
import FWGL.Backend.OpenGL.GL20
import qualified FWGL.Backend.GLFW.Common as C
createCanvas' :: String
-> Int
-> Int
-> BackendState
-> IO (C.Canvas, Int, Int)
createCanvas' = C.createCanvas C.ClientAPI'OpenGL 2 0
instance BackendIO where
type Canvas = C.Canvas
type BackendState = C.BackendState
loadImage = C.loadImage
loadTextFile = C.loadTextFile
initBackend = C.initBackend
createCanvas _ = createCanvas' "" 640 480
setCanvasSize = C.setCanvasSize
setCanvasTitle = C.setCanvasTitle
setCanvasResizeCallback = C.setCanvasResizeCallback
setCanvasRefreshCallback = C.setCanvasRefreshCallback
popInput = C.popInput
getInput = C.getInput
drawCanvas = C.drawCanvas
safeFork = C.safeFork
refreshLoop = C.refreshLoop
getTime = C.getTime
terminateBackend = C.terminateBackend