mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-11 16:12:20 +00:00
14 lines
386 B
Haskell
Executable file
14 lines
386 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Builtin.Documentation
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ sceneAnimation $ do
|
|
s1 <- newSpriteSVG $ withFillOpacity 1 $ withFillColor "blue" $ mkCircle 3
|
|
_ <- newSpriteSVG $ withFillOpacity 1 $ withFillColor "red" $ mkRect 8 3
|
|
wait 1
|
|
spriteZ s1 1
|
|
wait 1
|