home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HM05.LSP < prev    next >
Encoding:
Text File  |  1991-04-08  |  1.2 KB  |  40 lines
  1. ;******************************************
  2. ;   The function for drwing undercut.     *
  3. ;******************************************
  4. (DEFUN CUT ()
  5. (SETVAR "CMDECHO" 0)
  6. (SETVAR "BLIPMODE" 0)
  7.   (MENUCMD "S=IN1")
  8.   (setq kd (getreal "\n╚⌠ ╧┬ ╢╬ ╓▒ ╛╢ ╨í,╘≥ ╩Σ ╚δ ╧┬ ╢╬ ╓▒ ╛╢ (╖± ╘≥ ╗╪ │╡) "))
  9.   (if (null kd)(setq kd dr))
  10.   (if (/= kd dr)(setq kd (* (/ kd 2) s)))
  11.  (initget (+ 1 2 4))
  12.   (setq l (getreal "\n╩Σ ╚δ ┐╒ ╡╢ ▓█ ┐φ ╢╚: "))
  13.  (initget (+ 1 2 4))
  14.   (setq m (getreal "\n╩Σ ╚δ ┐╒ ╡╢ ▓█ ╔ε ╢╚: "))
  15.   (setq z m l1 l m (* m s) l (* l s))
  16.   (setq dr (- kd m) dl dr dgl 0 dgr 0)
  17.   (dbsa1 xb 0)
  18. (FN)
  19.   (attdef1 "l1" l1 fpt)
  20.   (attdef1 "ll1" z fpt)
  21.   (attdef1 "gpsz1" "K" fpt)
  22.  (if (= nol no)
  23.   (command "block" no "Y" fpt "w" (list xb (- yb dr)) (list (+ xb l) (+ yb dr)) "")
  24.   (command "block" no fpt "w" (list xb (- yb dr)) (list (+ xb l) (+ yb dr)) "")
  25.   )
  26.   (command "insert" no fpt "" "" "" "" "" "")
  27. (XB1)
  28.   (redraw)
  29.     (MENUCMD "S=SCREEN")
  30. (MENUCMD "S=IN2")
  31. (SETQ YN (GETSTRING "\n╩╟╖±╝╠╨°╗¡═Γ▒φ├µ: "))
  32. (IF (OR (= YN "Y") (= YN "y") (= YN ""))
  33.  (PROGN(MENUCMD "I=YY")
  34.        (MENUCMD "I=*")
  35.  )
  36.                (MENUCMD "S=SCREEN")
  37. )
  38. )
  39. (CUT)
  40.