vulkan-tutorial/examples/example00.hs
2016-05-29 18:02:03 +02:00

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