home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP2 / HM31.LSP < prev    next >
Encoding:
Text File  |  1990-03-10  |  1.2 KB  |  40 lines
  1. (defun CIR ()
  2. (setvar "cmdecho" 0)
  3. (setvar "blipmode" 0)
  4. (MENUCMD "S=IN1")
  5. (SETQ D (GETREAL "\n╟δ╩Σ╚δ╘▓╡─╓▒╛╢: "))
  6. (SETQ D (* D S))
  7. (WHILE(/= D NIL)
  8.  (SETQ D1 (+ D 0.6))
  9.  (SETQ PT1 (GETPOINT "\n╟δ╩Σ╚δ╘▓╨─╡─╬╗╓├: "))
  10.  (SETQ PTT (LIST (CAR PT1) (+ (CADR PT1) (/ D 2) 2)))
  11.  (SETQ PTB (LIST (CAR PT1) (- (CADR PT1) (/ D 2) 2)))
  12.  (SETQ PTL (LIST (- (CAR PT1) (/ D 2) 2) (CADR PT1)))
  13.  (SETQ PTR (LIST (+ (CAR PT1) (/ D 2) 2) (CADR PT1)))
  14.  (COMMAND "LAYER" "S" 1 "")
  15.  (COMMAND "LINE" PTT PTB "")
  16.  (COMMAND "LINE" PTL PTR "")
  17.  (COMMAND "LAYER" "S" 0 "")
  18.  (COMMAND "DOUGHNUT" D D1 PT1 "")
  19.  (COMMAND "OSNAP" "NEAREST")
  20.  (SETQ PT2 (GETPOINT "\n╟δ╩Σ│▀╧▀╡─╬╗╓├: "))
  21.  (SETQ DB (RTOS (/ D S) 2 0))
  22.  (SETQ BZ (STRCAT "%%C" DB))
  23.  (COMMAND "DIM" "DIMTXT" 0.2 "DIAM" PT2 BZ "EXIT")
  24.  (COMMAND "OSNAP" "NONE")
  25.  (SETQ HD (GETREAL "\n╟δ╩Σ╚δ░σ╡─║±╢╚: "))
  26.  (COND ((/= HD NIL)
  27.   (SETQ PT6 (GETPOINT "\n╟δ╩Σ╚δ░σ║±▒Ω╫ó╡π1: "))
  28.   (SETQ PT7 (GETPOINT "\n╟δ╩Σ╚δ░σ║±▒Ω╫ó╡π2: "))
  29.   (COMMAND "LINE" PT6 PT7 "")
  30.   (COMMAND "STYLE" "HZ" "" "" "" "" "" "")
  31.   (SETQ BJ (STRCAT "%%U" "░σ║±=" (RTOS HD 2 0)))
  32.   (COMMAND "TEXT" PT7 7 0 BJ)
  33.   (COMMAND "STYLE" "STANDARD" "" "" "" "" "" "" "")
  34.  ))
  35.  (SETQ D (GETREAL "\n╝╠╨°╩Σ╚δ╘▓╡─╓▒╛╢, ╗≥╗╪│╡╜ß╩°: "))
  36.  )
  37. (MENUCMD "S=BAN")
  38. )
  39. (CIR)
  40.