[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Error in my tiny test program

Hi, Do anyone can help me to figure out what's wrong in my program.
The program use the trap _paintroundrect. 
I try to pass three variables, *height*, *v* and *h* to trap.
Is there something I miss in this program ?

The source code is :
;;; "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 (not(< *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)

Ps. IN last 5th line at the end is ":right (+ 30 *h*)))

Thanks advance for helping.