samples/bounce.scm

@@ -23,7 +23,7 @@
 		    (push-render-object 'screen
 					(visual-2d-layer vis-2d)
 					(lambda ()
-					  (let ((draw-pos (+ (position transform)
+					  (let ((draw-pos (v+ (position transform)
 							      (circle-2d-center circle))))
 					    ((if (circle-2d-filled? circle)
 						 draw-circle
@@ -49,8 +49,8 @@
 	      '(<rigidbody-2d>)
 	      (lambda (_ rbody)
 		(set-rigidbody-2d-velocity! rbody
-					    (+ (rigidbody-2d-velocity rbody)
-					       (* (get-frame-time)
+					    (v+ (rigidbody-2d-velocity rbody)
+						(v* (get-frame-time)
 						    +gravity+))))))
 
 (add-system
@@ -61,7 +61,7 @@
 	      (lambda (_ rbody transform)
 		(when (> (vector-y (position transform)) (- (cdr (*window-size*)) +ball-radius+))
 		  (set-rigidbody-2d-velocity! rbody
-					      (* (rigidbody-2d-velocity rbody)
+					      (v* (rigidbody-2d-velocity rbody)
 						  (make-vector 1 -1)))))))
 
 (add-system
@@ -73,7 +73,7 @@
 		(when (or (> (vector-x (position transform)) (- (car (*window-size*)) +ball-radius+))
 			  (< (vector-x (position transform)) (+ 0 +ball-radius+)))
 		  (set-rigidbody-2d-velocity! rbody
-					      (* (rigidbody-2d-velocity rbody)
+					      (v* (rigidbody-2d-velocity rbody)
 						  (make-vector -1 1)))))))
 
 (add-system
@@ -83,8 +83,9 @@
 	      '(<rigidbody-2d>)
 	      (lambda (_ rbody)
 		(set-rigidbody-2d-velocity! rbody
-					    (+ (rigidbody-2d-velocity rbody)
-					       (* (get-frame-time) +friction+
+					    (v+ (rigidbody-2d-velocity rbody)
+						(v* (get-frame-time)
+						    +friction+
 						    (rigidbody-2d-velocity rbody)))))))
 
 (add-system
@@ -94,7 +95,7 @@
 	      '(<rigidbody-2d> <screen-transform>)
 	      (lambda (_ rbody transform)
 		(set-position! transform
-			       (+ (rigidbody-2d-velocity rbody)
+			       (v+ (rigidbody-2d-velocity rbody)
 				   (position transform))))))
 
 (register-action 'boost 'key-press KEY_SPACE)
@@ -105,19 +106,11 @@
 	      'entity
 	      '(<rigidbody-2d>)
 	      (lambda (_ rbody)
-		(when (peek-event 'input 'boost)
+		(when (pop-event 'input 'boost)
 		  (set-rigidbody-2d-velocity! rbody
-					      (* 2
+					      (v* 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