vulkan-tutorial/examples/example01.hs

10 lines
175 B
Haskell
Raw Normal View History

2016-05-29 16:01:23 +00:00
import Affection
main :: IO ()
main = withAllAffection $
withDefaultWindow "test" $ do
changeColor $ RGBA 255 255 255 255
clear
present
liftIO $ delaySec 2