home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HOLE.LSP < prev    next >
Encoding:
Text File  |  1980-01-29  |  629 b   |  21 lines
  1. (defun c:HOLE()
  2. (setq fpt (getpoint "Enter point of insert:"))
  3. (setq r (getint "Enter value of M:"))
  4. (setq p1 (polar fpt pi (+ r 4)))
  5. (setq p2 (polar fpt 0.0 (+ r 4)))
  6. (setq p3 (polar fpt (/ pi 2.0) (+ r 4)))
  7. (setq p4 (polar fpt (- (/ pi 2.0) pi) (+ r 4)))
  8. (setq p5 (polar fpt (* (/ pi 2.0) 1.2) (+ r 2)))
  9. (setq p6 (polar fpt (* pi 1.1) (+ r 2)))
  10. (command "layer" "s" "1" "")
  11. (command "line" p1 p2 "")
  12. (command "line" p3 p4 "")
  13. (command "layer" "s" "0" "")
  14. (command "circle" fpt r "")
  15. (command "circle" fpt (+ r 0.3) "")
  16. (command "circle" fpt (- r 0.3) "")
  17. (command "arc" p6 "c" fpt p5 "")
  18. )
  19. (redraw)
  20. (quit)
  21.