Play it Ball

[Adesu]

here my game for you again,play it if you bore.

; bttd is stand for Ball Top To Down
; Design by : Adesu <Ade Suharna>
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Website : http://cadesu.multiply.com
; Create : 09 October 2007
; Program no.: 0664/10/2007
; Edit by :
(defun donut (pt)
(setq irad 0.0)
(setq orad 2.5)
(command "_donut" irad orad pt "" "")
(princ)
) ; defun

(defun topdown ()
(setq cnt 0)
(repeat
10
(setq pt (list 5 (+ 10 cnt) 0))
(donut pt)
(command "_erase" "l" "")
(setq cnt (1- cnt))
) ; repeat
) ; defun

(defun downtop ()
(setq cnt 0)
(repeat
10
(setq pt (list 5 (- 0 cnt) 0))
(donut pt)
(command "_erase" "l" "")
(setq cnt (1- cnt))
) ; repeat
) ; defun


(defun c:bttd (/ irad orad cnt pt)
(repeat
10
(topdown)
(downtop)
) ; repeat
(princ)
) ; defun

[tedg]

Pretty cool.
You may want to have it zoom to the view so you can see what it's doing.
It depends on what the extents your zoomed to if you can see it.

Also, I ran it while in another drawing and it started erasing stuff.
It's best to start a "new" drawing before running it.