Get a super simple animation working

2021-01-01 00:00:40 +00:00 · 2021-01-01 00:00:40 +00:00 · 57cd223bd0
commit 57cd223bd0
parent 5c1bd5e84f
1 changed files with 9 additions and 1 deletions
--- a/Main.hs
+++ b/Main.hs
@ -3,5 +3,13 @@

 module Main (main) where

+import Graphics.Gloss
+
+window :: Display
+window = InWindow "Foo" (200, 200) (100, 100)
+
+frame :: Float -> Picture
+frame t = rotate (100 * t) $ rectangleSolid 80 80
+
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main = animate window white frame