Skip to content

Instantly share code, notes, and snippets.

@funrep

funrep/sdl.hs

Created November 13, 2013 15:48
Show Gist options
  • Save funrep/7451267 to your computer and use it in GitHub Desktop.
Save funrep/7451267 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sdl.hs
import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Primitives as SDL
main = do
SDL.init [SDL.InitEverything]
SDL.setVideoMode 640 480 32 [] >>= loop
loop screen = do
SDL.rectangle screen (SDL.Rect 50 50 100 100) (SDL.Pixel 101)
SDL.flip screen
loop screen
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment