1. Christian Kellermann
  2. beesteroids

Commits

Christian Kellermann  committed ae256c1

no need to scale velocity vectory anymore

  • Participants
  • Parent commits 0598b6c
  • Branches master

Comments (0)

Files changed (1)

File beesteroids.scm

View file
  • Ignore whitespace
   (when *debugging*
         (let ((pos (thing-pos thing)))
           (circle (first pos) (second pos) (* 2 (thing-bounding-radius thing)) '(1 0 0 1))
-          (line pos (map + (map (cut * 100 <>) (thing-velocity thing)) pos)))))
+          (line pos (map + (thing-velocity thing) pos)))))
 
 ;; Draw all things
 (define (draw-things . list-of-things)