14 lines
464 B
Haskell
14 lines
464 B
Haskell
|
import Data.Monoid
|
||
|
|
import Graphics.Gloss
|
||
|
|
import Graphics.Gloss.Data.Color (makeColor, red)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = animate (InWindow "Spin around" (500,500) (100,100))
|
||
|
|
(makeColor 0.9 0.9 0.9 1)
|
||
|
|
(\time ->
|
||
|
|
Pictures [ Color red $ ThickCircle 500 1000
|
||
|
|
, Rotate (time/60*360)
|
||
|
|
$ Text
|
||
|
|
$ show (round time) <> " Seconds"
|
||
|
|
])
|