From b9f9e8138157872d482b5b9e73bf2cc7478f7dc9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 17 May 2024 17:58:43 -0400
Subject: [PATCH] Export tileset and test rendering a tile.

---
 assets/images/AUTHORS      |   6 ++----
 assets/images/cirkoban.png | Bin 0 -> 1650 bytes
 game.scm                   |   7 +++++++
 3 files changed, 9 insertions(+), 4 deletions(-)
 create mode 100644 assets/images/cirkoban.png

diff --git a/assets/images/AUTHORS b/assets/images/AUTHORS
index ad20298..d38e818 100644
--- a/assets/images/AUTHORS
+++ b/assets/images/AUTHORS
@@ -1,5 +1,3 @@
-All images by Kenney
+Artwork by Christine Lemmer-Webber
 
-Licensed under CC0
-
-https://kenney.nl/assets/puzzle-pack
+Licensed under ?????
diff --git a/assets/images/cirkoban.png b/assets/images/cirkoban.png
new file mode 100644
index 0000000000000000000000000000000000000000..d918d4da5dc421355887c6874c9bc14e0c62eb7c
GIT binary patch
literal 1650
zcmcJPZ8#GO6vwxSQr-2Wu9tPKNAA_ViM7gGY<QSvUKW*zEaGV+tKFHfS@hzjn-yto
zBX6M>Muml$g;L>C*svIPUK$zFY;5ex{eHjQ^WmKH;eUSr=X^Nl2FBNOi-D;D007v6
zI^ymR003Q9``HaTs~I`(6SP{e81G{qtJQqhL61F7Q4ag*Ck{(4{?eZxC2wY_zuGd#
zFnB)H?rtm^XXB5yfH^rJ5F{uz^;GOg1X~-{G1?~9Xti2)IrnOE8V-*SI^j=tOD}`L
z`U4|GNp*CFS2_Wzj^K5!dh8<k`vw43)&CWlta35{u)YB0?t1J}&a`-n$cApce#RnZ
zokn1p4{TqSM8#hd<Ye0BI$nCKZizejv_oLGE~QW}^3KH4Z==PjDHmr@;l~E3=*$Y?
ztD)?K*wM%*UUo}>;%^&Eg2<*hHmE1XwWkT(c2ORekPss&BrW132drI}+s}oX80DLc
z?Y?0w<)hu06@$t;j+k6c6&I=X26Q^qNkMmKkmgoZ5@r*1eG0j``zq+%!eGtxoUtf+
z`V>Ucjk-Jl3=OZ{gjtgKq_a0ZDGb)T-+}M2N$)+?@R6^WbIt{I<u%K<%im{h-kY$)
zY8~5xg~P`6@ONAcX(3RPk__mjebodi#g7pmkrvWy&|o?)ugcau6l(4Phmer7T)2y2
z>sQl(W_vh!%`rP+EEbDj%tFU+PJa)F-xlAO{hDJT@=Wbl+&faA4Q%1X0m;*6x{;ar
zHQ%`+{gWi%kHiu1=nN5jU<=e|Sv6TFRj^7-ha1j|?L@M=g*u$rp7byLI8&|rdk1Vo
zS%)Xk+IM8?v-zHDRq;Ttv#kXUv8>8y$&%^;r)-qSsGr!n@hhVq)B}IqY598KP*=Mb
zj@v2?ZK)wNw%r<e9Jj^`^*-7wPb^i!8i~pR<P#HCHb8_&VdOf~!Rj|@N(v*y%pn-%
z?I~5tQKJ}H*0oPqNFjaQ7sNt!bqyy_%!Tty>yHqH&MNR;b}@zI)ORKNu-UjXbRNh|
zwz8$+B@3VVuY$HY4P4=Szy-VhFq=k=t0>P~dSSfNgv4j_3d?EmPeP?bUMB-Bd-sOt
z>|@y-APbz@mm&MPB^ll|fZ=}|Y-plSfEv9GR}hEQiQdQGy<o=n&t9;18giqOlU4PA
zTXx!)c~yfZb}zPp=2OlXo0$<tDk!YsFpU6Si%Jd6Pukqo(oDhbjMv9Q2sN5CfDzbL
zvP?D^hC&_<LMx?)eSi6#fncQ+l_3L6Rf;1nyT+tvu|a<hQifH!wj+2@3@gb3N4uRL
z6w7i}3R)@HFXK9cwb5$s;vo!VIi}pNN%{GT?gTKSUSg(0noohH_YCM570vSW>j3q-
zo|bc?cTelu^A-}oMe`|+2%Ccs`uFh226pkaepNn(i*HSxi;Eu7FW3`0oCMSb7a8Uv
z0%B~19LaVa4QD5{>i6Y+{7?#%FW4dpy6Q!jS~~Mq(_ZJ<m?>*liPW0tg@*7%FU*YF
z{YJ1Az@<f(cSk`aTLT;YJ2x#(qOUJ|_)W_1E+~R8FZU8kfs<SP+lq3YeV}Zw>HTWj
zXKAZZ;~Iu^jLsh>I`t(-I2eSL0PFhMH+^Lxo`_dIb0l`u8!AlmnyP2d1m)11CfZ<v
z&N4lFYh~<;Rax%S#CFID+WZXdMEHT^2Fb9WLa0^~Kc0QQ()sWmj<-Sx)?TfKhDAP~
z`}>Db?Sx^Qa1t_$epmr3?Y4K7PR%(APz{O|{!Zz~qs<ljv$BJ0HeASFc_7-i)5_cE
zz5|o^=s;k-hmb#%NDIpVRn|^;h)g0YZ|lx*go+eydr#zUTG3PPkc1)iZ<|Tr+>p`2
zyAJ6`1+yI+(N{U&r+kgD-RInpwDTNkIqsmK;2r?XeTkebS1QL|2K40?Cd3<r4SH05
z(0p2QN$91j{Z4{Z$3rih(>9yO^@>Ws?(hBeGS^5Mn^q5+W(mB-K!L;PB7NUA$o-g{
zJdPG^Ii($6+x;8OFhi&{2}B6B`_=?1Me-Fy@2MG^)t~$Sgi4#NlW29%Apq{p`R;)7
L@O9_7VN?GB-`F_L

literal 0
HcmV?d00001

diff --git a/game.scm b/game.scm
index a742289..6ca901a 100644
--- a/game.scm
+++ b/game.scm
@@ -34,6 +34,10 @@
 
 (define game-width 320.0)
 (define game-height 240.0)
+(define tile-width 16.0)
+(define tile-height 16.0)
+
+(define image:tiles (make-image "assets/images/cirkoban.png"))
 
 (define dt (/ 1000.0 60.0)) ; aim for updating at 60Hz
 (define (update)
@@ -57,6 +61,9 @@
   (set-font! context "bold 24px monospace")
   (set-text-align! context "left")
   (fill-text context "HELLO" 16.0 36.0)
+  (draw-image context image:tiles
+              0.0 0.0 tile-width tile-height
+              100.0 100.0 tile-width tile-height)
   (request-animation-frame draw-callback))
 (define draw-callback (procedure->external draw))