From 57cd223bd06ff891b43fe8146f2bb9b589c88088 Mon Sep 17 00:00:00 2001 From: Camden Dixie O'Brien Date: Fri, 1 Jan 2021 00:00:40 +0000 Subject: [PATCH] Get a super simple animation working --- Main.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 63b1615..0fba1ea 100644 --- 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