diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-04-17 18:36:17 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-04-17 18:41:18 -0400 |
| commit | a79ad8c55f8e8368218a0e1f0b81bcc8fa554d9a (patch) | |
| tree | 9a63e58407618960390b63ea796d0dffabeab1e4 /GLWidget.hs | |
| parent | d66156be74554c0a4a7e29676b4f3b4f010608fc (diff) | |
Added depth buffer to mainObj.
Diffstat (limited to 'GLWidget.hs')
| -rw-r--r-- | GLWidget.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/GLWidget.hs b/GLWidget.hs index 50e2e64..681083f 100644 --- a/GLWidget.hs +++ b/GLWidget.hs | |||
| @@ -50,6 +50,7 @@ glmethods = WidgetMethods | |||
| 50 | newGLWidget :: (GLArea -> IO st) -> WidgetMethods st -> IO st | 50 | newGLWidget :: (GLArea -> IO st) -> WidgetMethods st -> IO st |
| 51 | newGLWidget mk w = do | 51 | newGLWidget mk w = do |
| 52 | g <- gLAreaNew | 52 | g <- gLAreaNew |
| 53 | gLAreaSetHasDepthBuffer g True | ||
| 53 | st <- mk g | 54 | st <- mk g |
| 54 | _ <- on g #render $ glRender w st | 55 | _ <- on g #render $ glRender w st |
| 55 | _ <- on g #resize $ glResize w st | 56 | _ <- on g #resize $ glResize w st |
| @@ -81,6 +82,7 @@ oopsG e = do | |||
| 81 | oops :: String -> IO () | 82 | oops :: String -> IO () |
| 82 | oops s = hPutStrLn stderr s | 83 | oops s = hPutStrLn stderr s |
| 83 | 84 | ||
| 85 | runGLApp :: IsWidget b => (GLArea -> IO b) -> WidgetMethods b -> IO () | ||
| 84 | runGLApp mk methods = do | 86 | runGLApp mk methods = do |
| 85 | _ <- Gtk.init Nothing | 87 | _ <- Gtk.init Nothing |
| 86 | 88 | ||