My tiny program

[cchien@gmuvax2.gmu.edu (Chang-Hong Chien)]

The source code should be :

;;; "Drop a ball"

(defparameter *w* (make-instance 'window))
(defvar *v* 1)(defvar *h* 1)(defvar *height* 20)
(defun visiable() (set-fore-color *w* *red-color*))
(defun invisiable() (set-fore-color *w* *blue-color*))

(while (< *height* 120)
(If (oddp *h*) (visiable) (invisiable))
(rlet((r :rect :top (+ 20 *V*) :left (+ 20 *h*):bottom (+ 30 *V*)
         :right (+ 30 *h*)))
          (with-focused-view *w*
            (#_paintroundrect r 130 130)))
(setf *v* (+ *v* 31) *h* (+ *h* 51) init-height (+ init-height *v*)))
(setf init-height 20)


								-Chien