(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)
)