Commits

Anonymous committed fa7f3bb

Adapt tennis to doodle v0.2

Comments (0)

Files changed (1)

 ;; OF THE POSSIBILITY OF SUCH DAMAGE.
 
 
-(use doodle miscmacros extras cairo sdl)
+(use doodle clojurian-syntax extras cairo sdl)
 
 (define width 640)
 (define height 480)
 (define (update-ball dt)
   (move-ball! b dt)
   (update-sprite! (ball->sprite 'ball b))
-  (circle (ball-x b)
-          (ball-y b)
-          (ball-d b)
-          solid-white)
+  (filled-circle (ball-x b)
+                 (ball-y b)
+                 (ball-d b)
+                 solid-white)
   (when *draw-sprite-boundaries*
     (rectangle (ball-x b) (ball-y b) 1 1 '(1 0 0 1))))