11 lines
199 B
Haskell
11 lines
199 B
Haskell
|
import Affection
|
||
|
|
import Affection.Render
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = withAllAffection $
|
||
|
|
withDefaultWindow "test" $ do
|
||
|
|
changeColor $ RGBA 255 255 255 255
|
||
|
|
clear
|
||
|
|
present
|
||
|
|
liftIO $ delaySec 2
|