From b9f9e8138157872d482b5b9e73bf2cc7478f7dc9 Mon Sep 17 00:00:00 2001 From: David Thompson 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_ViM7gGYMuml$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;%^&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{IsQl(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%ryHqH&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}hEQiQdQGyj3q- zo|bc?cTelu^A-}oMe`|+2%Ccs`uFh226pkaepNn(i*HSxi;Eu7FW3`0oCMSb7a8Uv z0%B~19LaVa4QD5{>i6Y+{7?#%FW4dpy6Q!jS~~Mq(_ZJ*liPW0tg@*7%FU*YF z{YJ1Az@HTWj zXKAZZ;~Iu^jLsh>I`t(-I2eSL0PFhMH+^Lxo`_dIb0l`u8!AlmnyP2d1m)11CfZDb?Sx^Qa1t_$epmr3?Y4K7PR%(APz{O|{!Zz~qsp`2 zyAJ6`1+yI+(N{U&r+kgD-RInpwDTNkIqsmK;2r?XeTkebS1QL|2K40?Cd39yO^@>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))