home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p039 / h91 / 1.ddi / LISP.PAK / HY15.LSP < prev    next >
Encoding:
Text File  |  1989-05-30  |  461 b   |  15 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq w1 (getreal "\n╩Σ╚δ╛╪╨╬╦«╞╜╖╜╧≥╡─┐φ╢╚: "))
  4. (while(/= w1 nil)
  5.  (setq w2 (getreal "\n╩Σ╚δ╛╪╨╬┤╣╓▒╖╜╧≥╡─┐φ╢╚: "))
  6.  (setq pt1 (getpoint "\n╩Σ╚δ╛╪╨╬╡─╫≤╧┬╡π: "))
  7.  (setq pt2 (list (+ (car pt1) w1) (+ (cadr pt1) w2)))
  8.  (setq pt3 (list (car pt1) (cadr pt2)))
  9.  (setq pt4 (list (car pt2) (cadr pt1)))
  10.  (command "line" pt1 pt3 pt2 pt4 "c")
  11.  (setq w1 (getreal "\n╝╠╨°╩Σ╚δ╛╪╨╬X╖╜╧≥╡─┐φ╢╚, ╗≥╗╪│╡╜ß╩°: "))
  12.  )
  13. )
  14. (hj01)
  15.