home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY13.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  578 b   |  20 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq m (getint "╩Σ╚δ╨╨╩²: "))
  4. (setq n (getint "╩Σ╚δ┴╨╩²: "))
  5. (setq pt1 (getpoint "╩Σ╚δ┐≥╝▄╫≤╧┬╜╟: "))
  6. (setq pt2 (getpoint "╩Σ╚δ┐≥╝▄╙╥╔╧╜╟: "))
  7. (setq pt3 (list (car pt1) (cadr pt2)))
  8. (setq pt4 (list (car pt2) (cadr pt1)))
  9. (setq a (car pt1)) (setq b (cadr pt1))
  10. (setq x2 (car pt2)) (setq y2 (cadr pt2))
  11. (setq q1 (/ (- x2 a) (- n 1)))
  12. (setq q2 (/ (- y2 b) (- m 1)))
  13. (command "line" pt1 pt3 "")
  14. (command "array" "l" "" "r" 1 n q1)
  15. (command "line" pt1 pt4 "")
  16. (command "array" "l" "" "r" m 1 q2)
  17. (setq x2 nil y2 nil)
  18. )
  19. (hj01)
  20.