Browse files

Increase range of star field a bit more

  • Loading branch information...
1 parent a66a2fc commit fc4d2559fa2b887b986ee0309e6bdb6716c00f7a @dballard committed Oct 9, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 flight-sim.lisp
View
8 flight-sim.lisp
@@ -153,15 +153,15 @@
(defun populate-world ()
(setf *world*
- (make-array 101 :initial-contents
- (loop for i from 0 to 100 collecting
+ (make-array 201 :initial-contents
+ (loop for i from 0 to 200 collecting
(let ((e (make-instance 'game-object
:model (make-instance 'model
:vertices (vertices *diamond-model*)
:faces (faces *diamond-model*))
:body (make-instance 'body
- :coords (vector (- (random 75) 37) (- (random 75) 37) (- (random 200) ))
+ :coords (vector (- (random 75) 37) (- (random 75) 37) (- (random 400) ))
:angles (vector (random 360) (random 360) (random 360))))))
(setf (colors (model e)) (make-2d-array 3 3 `((,(random 255) ,(random 255) ,(random 255)) (,(random 255) ,(random 255) ,(random 255)) (,(random 255) ,(random 255) ,(random 255)))))
(setf (face-colors (model e)) (make-2d-array 8 3 '((0 1 1) (0 1 1) (0 1 1) (0 1 1) (1 2 1) (1 2 1) (1 2 1) (1 2 1))))
@@ -229,4 +229,4 @@
#+(and sbcl (not sb-thread)) (restartable
(sb-sys:serve-all-events 0))
(restartable (sim-step))))))
- ;(draw)))))
+ ;(draw)))))

0 comments on commit fc4d255

Please sign in to comment.