53 lines
1.1 KiB
Scheme
53 lines
1.1 KiB
Scheme
(module (bounce) ()
|
|
(import scheme
|
|
(chicken base)
|
|
raylib
|
|
(engine core)
|
|
(engine components core)
|
|
(srfi 1))
|
|
|
|
(*window-title* "Bounce!")
|
|
(*target-fps* 60)
|
|
|
|
(add-system
|
|
(make-system 'draw-circles
|
|
0
|
|
'entity
|
|
'(<visual-2d> <screen-transform>)
|
|
(lambda (ball)
|
|
(let ((vis-2d (find visual-2d? ball))
|
|
(transform (find screen-transform? ball)))
|
|
(when (circle-2d? (visual-2d-draw vis-2d))
|
|
(let ((circle (visual-2d-draw vis-2d)))
|
|
(push-render-object 'screen
|
|
(visual-2d-layer vis-2d)
|
|
(lambda ()
|
|
((if (circle-2d-filled? circle)
|
|
draw-circle
|
|
draw-circle-lines)
|
|
(+ (vector-x (position transform))
|
|
(vector-x (circle-2d-center circle)))
|
|
(+ (vector-y (position transform))
|
|
(vector-y (circle-2d-center circle)))
|
|
(circle-2d-radius circle)
|
|
(use-color (visual-2d-color vis-2d)))))))))))
|
|
|
|
|
|
(create-entity
|
|
(make-visual-2d
|
|
(make-circle-2d
|
|
(make-vector2 0 0)
|
|
50
|
|
#t)
|
|
(make-color 0 0 1 1)
|
|
0)
|
|
(make-screen-transform
|
|
(make-vector2 100 100)
|
|
(make-vector2 0 0)
|
|
0
|
|
(make-vector2 1 1)
|
|
'center
|
|
'none))
|
|
|
|
(create-window)
|
|
)
|