- (let ((x (xy max-x 100)) (y (xy max-y 100))
- (angle (random 360)) (dir (- (random 360) 180)))
- (show-mob (make-asteroid #:x x #:y y #:angle angle #:dir dir)))
- (init-asteroids (- n 1)))))
+ (let ((x (- (random (* max-x 2)) max-x))
+ (y (- (random (* max-y 2)) max-y)))
+ (cond ((< (distance-between-points (list x y) '(0 0)) 120)
+ (init-asteroids n))
+ (else
+ (let ((angle (random 360)) (dir (- (random 360) 180)))
+ (show-mob (make-asteroid #:x x #:y y #:angle angle #:dir dir)))
+ (init-asteroids (- n 1))))))))
+