feat: add Sprite example

Author: matthunz

.gitattributes

@@ -0,0 +1,3 @@
+* text=auto
+*.hs text eol=lf
+*.jpg binary

assets/logo.jpg

@@ -22,23 +22,33 @@ executable ecs
     ghc-options:      -Wall
     build-depends:
         base,
-        aztecs >=0.17 && <0.18
+        aztecs >=0.17.1 && <0.18
+
+executable sprite
+    main-is:          src/Sprite.hs
+    default-language: Haskell2010
+    ghc-options:      -Wall
+    build-depends:
+        base,
+        aztecs >=0.17.1 && <0.18,
+        aztecs-gl >=0.1 && <0.2,
+        aztecs-glfw >=0.2 && <0.3
 
 executable lifecycle
     main-is:          src/Lifecycle.hs
     default-language: Haskell2010
     ghc-options:      -Wall
     build-depends:
         base,
-        aztecs >=0.17 && <0.18
+        aztecs >=0.17.1 && <0.18
 
 executable observers
     main-is:          src/Observers.hs
     default-language: Haskell2010
     ghc-options:      -Wall
     build-depends:
         base,
-        aztecs >=0.17 && <0.18
+        aztecs >=0.17.1 && <0.18
 
 executable pong
     main-is:          src/Pong.hs

aztecs-examples.cabal

@@ -0,0 +1,3 @@
+packages:
+  .
+  ../aztecs-gl

cabal.project

@@ -26,39 +26,39 @@ main = runAccess_ $ do
     spawn $
       bundle (Rectangle 100 80)
         <> bundle (transform2d {transformTranslation = V2 200 150} :: Transform2D)
-        <> bundle (Color 1 0 0 1)
+        <> bundle (color 1 0 0 1)
         <> bundle (Parent windowEntity)
 
   -- Spawn a green circle
   _ <-
     spawn $
       bundle (Circle 50 32)
         <> bundle (transform2d {transformTranslation = V2 400 300} :: Transform2D)
-        <> bundle (Color 0 1 0 1)
+        <> bundle (color 0 1 0 1)
         <> bundle (Parent windowEntity)
 
   -- Spawn a blue triangle
   _ <-
     spawn $
       bundle (Triangle (-40) 40 40 40 0 (-40))
         <> bundle (transform2d {transformTranslation = V2 600 200} :: Transform2D)
-        <> bundle (Color 0 0 1 1)
+        <> bundle (color 0 0 1 1)
         <> bundle (Parent windowEntity)
 
   -- Spawn a yellow rectangle (rotated)
   _ <-
     spawn $
       bundle (Rectangle 60 60)
         <> bundle (transform2d {transformTranslation = V2 300 450, transformRotation = 45} :: Transform2D)
-        <> bundle (Color 1 1 0 1)
+        <> bundle (color 1 1 0 1)
         <> bundle (Parent windowEntity)
 
   -- Spawn a magenta circle (scaled)
   _ <-
     spawn $
       bundle (Circle 30 24)
         <> bundle (transform2d {transformTranslation = V2 550 450, transformScale = V2 1.5 1.5} :: Transform2D)
-        <> bundle (Color 1 0 1 1)
+        <> bundle (color 1 0 1 1)
         <> bundle (Parent windowEntity)
 
   runAccessGLFW $ do

src/2D.hs

@@ -82,15 +82,15 @@ setupAndRun = do
     spawn $
       bundle (Rectangle 4 (fromIntegral windowH))
         <> bundle (transform2d {transformTranslation = V2 (round centerX) (round centerY)} :: Transform2D)
-        <> bundle (Color 0.2 0.2 0.2 1)
+        <> bundle (color 0.2 0.2 0.2 1)
         <> bundle (Parent windowEntity)
 
   -- Spawn paddles
   let spawnPaddle pos =
         spawn $
           bundle (Rectangle paddleW paddleH)
             <> bundle (transform2d {transformTranslation = pos} :: Transform2D)
-            <> bundle (Color 1 1 1 1)
+            <> bundle (color 1 1 1 1)
             <> bundle (Parent windowEntity)
             <> bundle (Paddle 0)
 
@@ -102,7 +102,7 @@ setupAndRun = do
     spawn $
       bundle (Circle ballR 16)
         <> bundle (transform2d {transformTranslation = V2 (round centerX) (round centerY)} :: Transform2D)
-        <> bundle (Color 1 1 0 1)
+        <> bundle (color 1 1 0 1)
         <> bundle (Parent windowEntity)
         <> bundle (Ball ballInitSpeedX ballInitSpeedY)
 

src/Pong.hs

@@ -0,0 +1,43 @@
+{-# LANGUAGE TypeApplications #-}
+
+module Main where
+
+import Aztecs
+import Aztecs.GL
+import Aztecs.GLFW
+import Control.Monad.IO.Class
+import System.IO
+import Prelude hiding (lookup)
+
+main :: IO ()
+main = runAccess_ $ do
+  -- Create the window
+  windowEntity <-
+    spawn . bundle $
+      Window
+        { windowTitle = "Aztecs GL",
+          windowWidth = 800,
+          windowHeight = 600
+        }
+
+  img <- liftIO $ loadImage "assets/logo.jpg"
+  imgEntity <- spawn $ bundle img
+  _ <-
+    spawn $
+      bundle (sprite imgEntity)
+        <> bundle (transform2d {transformTranslation = V2 200 150} :: Transform2D)
+        <> bundle (Parent windowEntity)
+
+  runAccessGLFW $ do
+    render
+    mKeys <- lookup @_ @Keys windowEntity
+    case mKeys of
+      Just keys ->
+        if keyJustPressed Key'Escape keys
+          then do
+            liftIO $ do
+              putStrLn "Escape key just pressed, exiting..."
+              hFlush stdout
+            return True
+          else return False
+      Nothing -> return False