SHARE
TWEET

Untitled

a guest Jun 13th, 2019 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (setq d1 40)
  2. (setq d2 60)
  3. (setq d3 16)
  4. (setq l1 90)
  5. (setq l2 65)
  6. (setq l3 25)
  7. (setq n 5)
  8.  
  9. (setq p0 (getpoint "\nWskazac punkt bazowy"))
  10. (setq p1 (list (car p0) (+ (cadr p0) (-(/ d2 2) n) ) ))
  11.     (princ p1)
  12. (setq p2 (list (+ (car p0) n) (+ (cadr p0) (/ d2 2) ) ))
  13.     (princ p2)
  14. (setq p3 (list (- l1 l2) (cadr p3) ))
  15.     (princ p3)
  16. (setq p4 (list (car p3) (+ (cadr p0) (/ d2 2) ) ))
  17.     (princ p4)
  18. (setq p5 (list (+ (car p0) (- l1 n)) (cadr p4) ))
  19.     (princ p5)
  20. (setq p6 (list l1 (- (cadr p5) n) ))
  21.     (princ p6)
  22. (setq p7 (list l1 (cadr p0) ))
  23.     (princ p7)
  24. (setq p8 (list (car p6) (- (cadr p0) (- (/ d1 2) n)) ))
  25.     (princ p8)
  26. (setq p9 (list (car p5) (- (cadr p0) (/ d1 2)) ))
  27.     (princ p9)
  28. (setq p10 (list (car p4) (cadr p9) ))
  29.     (princ p10)
  30. (setq p11 (list (car p3) (- (cadr p3) d2)))
  31.     (princ p11)
  32. ;(setq p12 (list (car p2) (- (cadr p2) d2)))
  33. ;(setq p13 (list (- (car p12) n) (+ (cadr p12) n)))
  34. ;(setq p14 (list (- (car p7) 13) (cadr p7)))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top