home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!olivea!apple!cambridge.apple.com!cchien@gmuvax2.gmu.edu
- From: cchien@gmuvax2.gmu.edu (Chang-Hong Chien)
- Newsgroups: comp.lang.lisp.mcl
- Subject: My tiny program
- Message-ID: <9207250931.AA14950@gmuvax2.gmu.edu>
- Date: 25 Jul 92 09:31:50 GMT
- Sender: info-mcl-request@cambridge.apple.com
- Lines: 20
- Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
- Original-To: info-mcl@cambridge.apple.com
- Original-Cc: jipan@gmuvax2.gmu.edu
-
- 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
-