Author Topic: Play it Ball  (Read 803 times)

0 Members and 1 Guest are viewing this topic.

Adesu

  • Guest
Play it Ball
« on: October 09, 2007, 12:47:20 AM »
If you bore in your work, play this ball.
Code: [Select]
; 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