# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1462398209 0
# Node ID 9dabb3da15e9a6b55a6f5e9fb0f21ba3103c8727
# Parent  7a40282385de5068590a711b795a69f821d0c1a2
More randomness!

diff -r 7a40282385de -r 9dabb3da15e9 src/main.lisp
--- 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
         )