50 lines
817 B
Scheme
50 lines
817 B
Scheme
(module (textures) ()
|
|
(import scheme
|
|
raylib
|
|
(chicken base)
|
|
(imugi core)
|
|
(imugi resource)
|
|
(imugi scene)
|
|
(imugi math)
|
|
(imugi 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)
|
|
)
|