pituicat/examples/example00.hs

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