9dabb3da15e9

More randomness!
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 04 May 2016 21:43:29 +0000
parents 7a40282385de
children fcb933aa4e5d
branches/tags (none)
files src/main.lisp

Changes

--- a/src/main.lisp	Wed May 04 21:36:46 2016 +0000
+++ b/src/main.lisp	Wed May 04 21:43:29 2016 +0000
@@ -95,7 +95,6 @@
         )
       )
 
-
     ;;
     ))
 
@@ -107,16 +106,16 @@
 (defun reset (game)
   (setf (slot-value game 'ready) nil)
   (setf (slot-value game 'p-from)
-        (make-vec 20 (random-around *center-y* 50))
+        (make-random-vec *width* *height*)
 
         (slot-value game 'p-c1)
-        (make-vec (* *width* 1/3) (random *height*))
+        (make-random-vec *width* *height*)
 
         (slot-value game 'p-c2)
-        (make-vec (* *width* 2/3) (random *height*))
+        (make-random-vec *width* *height*)
 
         (slot-value game 'p-to)
-        (make-vec (- *width* 20) (random-around *center-y* 50))
+        (make-random-vec *width* *height*)
 
         (slot-value game 'ts) 0
         )