10 lines
199 B
Haskell
10 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
|