Font and texture resource loading

samples/textures.scm

@@ -0,0 +1,50 @@
+(module (textures) ()
+(import scheme
+	raylib
+	(chicken base)
+	(engine core)
+	(engine resource)
+	(engine scene)
+	(engine math)
+	(engine drawing))
+
+(define draw-smiley
+  (make-system
+   'draw-smiley
+   0
+   'global
+   '()
+   (lambda ()
+     (push-render-object 'screen
+			 0
+			 (lambda ()
+			   (draw-texture-2d
+			    (vec 0 0)
+			    (texture "../samples/resources/smiley.png")
+			    (make-color 1 1 1 1)))))))
+
+(define draw-smiley-text
+  (make-system
+   'draw-text
+   0
+   'global
+   '()
+   (lambda ()
+     (push-render-object 'screen
+			 1
+			 (lambda ()
+			   (draw-font-text-2d
+			    (vec 100 500)
+			    "Hello there..."
+			    64
+			    (make-color 0 0 0 1)
+			    (font "../samples/resources/NothingYouCouldDo.ttf")))))))
+
+(define (demo)
+  (scene
+   draw-smiley
+   draw-smiley-text))
+
+((demo))
+(create-window)
+)