Add global systems and bounce boosting

samples/bounce.scm

@@ -51,8 +51,6 @@
 	      '(<rigidbody-2d>)
 	      (lambda (body)
 		(let ((rbody (find rigidbody-2d? body)))
-		  (display (get-fps))
-		  (newline)
 		  (set-rigidbody-2d-velocity! rbody
 					      (vector-+ (rigidbody-2d-velocity rbody)
 							(vector-*
@@ -110,6 +108,40 @@
 				 (vector-+ (rigidbody-2d-velocity rbody)
 					   (position transform)))))))
 
+(define-record-type <key-press>
+  (make-key-press key)
+  key-press?
+  (key key-press-key))
+
+(add-system
+ (make-system 'input
+	      0
+	      'global
+	      '()
+	      (lambda ()
+		(when (key-pressed? KEY_SPACE)
+		  (push-event 'input 'boost (make-key-press 'space))))))
+
+(add-system
+ (make-system 'boost-rigidbody
+	      2
+	      'entity
+	      '(<rigidbody-2d>)
+	      (lambda (ball)
+		(let ((rbody (find rigidbody-2d? ball)))
+		  (when (peek-event 'input 'boost)
+		    (set-rigidbody-2d-velocity! rbody
+						(vector-* (make-vector2 2 2)
+							  (rigidbody-2d-velocity rbody))))))))
+
+(add-system
+ (make-system 'clear-boost-input
+	      10
+	      'global
+	      '()
+	      (lambda ()
+		(pop-event 'input 'boost))))
+
 (create-entity
  (make-visual-2d
   (make-circle-2d