计算机绘图(资料).pdfVIP

计算机绘图 第 1 页第 1 页 计算机绘图 第 2 页第 2 页 计算机绘图 (defun rec (x0 y0 w h ang) (setq ang (* ang (/ pi 180))) (setq p1 (polar (list x0 y0) (+ ang (/ pi 2)) (/ h 2) ) ) (setq p2 (polar (list x0 y0) (- ang (/ pi 2)) (/ h 2) ) ) (setq p3 (polar p1 ang w)) (setq