16 lines
315 B
Haskell
16 lines
315 B
Haskell
-- SPDX-License-Identifier: ISC
|
|
-- Copyright (c) 2020 Camden Dixie O'Brien
|
|
|
|
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 = animate window white frame
|