home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HM02.LSP < prev    next >
Encoding:
Text File  |  1991-04-08  |  2.9 KB  |  95 lines
  1. (defun input (sl m)
  2. ;(SETVAR "CMDECHO" 0)
  3.   (MENUCMD "S=IN1")
  4.   (initget (+ 1 2 4))
  5.   (if (= sl 0)(setq l (getreal "\n╩Σ ╚δ │ñ ╢╚=: ")))
  6.   (if (= sl 1)(setq l (rtos l)))
  7.   (if (= l "t")(setq l "T"))
  8.   (if (and (= sl 1) (/= l "T"))(setq l (atof l)))
  9.   (if (= l "T")(setq l (- m xb) l (/ l s)))
  10.   (if (= l "t")(setq l (- m xb) l (/ l s)))
  11.   (setq schl 0 xchl 0)
  12.   (MENUCMD "S=IN2")
  13.   (setq yn (getstring "\n╙╨ ╣½ ▓ε ╖±(N)? "))
  14.                                  (MENUCMD "S=IN1")
  15.   (if (= yn "")(setq yn "n" schl 0 xchl 0))
  16.   (if (or (= yn "y") (= yn "Y"))(progn
  17.                                  (setq schl (getreal "\n╔╧ ╞½ ▓ε=: "))
  18.                                  (setq xchl (getreal "\n╧┬ ╞½ ▓ε=: "))
  19.                                  )
  20.   )
  21.   (setq angl 0 angr 0)
  22.   (setq dgl (getreal "\n╫≤ ╡╣ ╜╟ │ñ ╢╚=:(0) "))
  23.   (if (null dgl)(setq dgl 0))
  24.   (if (> dgl 0)(setq angl (getreal "\n╫≤ ╡╣ ╜╟=: ")))
  25.   (if (= dgl 0)(progn
  26.   (setq dgl (getreal "\n╫≤ ╡╣ ╘▓ ┴┐=:(0) "))
  27.   (if (null dgl)(setq dgl 0))
  28.   (if (/= dgl 0)(setq dgl (- 0 dgl)))
  29. ))
  30.   (setq dgr (getreal "\n╙╥ ╡╣ ╜╟ │ñ ╢╚=:(0) "))
  31.   (if (null dgr)(setq dgr 0))
  32.   (if (> dgr 0)(setq angr (getreal "\n╙╥ ╡╣ ╜╟=: ")))
  33.   (if (= dgr 0)(progn
  34.   (setq dgr (getreal "\n╙╥ ╡╣ ╘▓ ┴┐=:(0) "))
  35.   (if (null dgr)(setq dgr 0))
  36.   (if (/= dgr 0)(setq dgr (- 0 dgr)))
  37. ))
  38. (setq yn "")
  39.     (MENUCMD "S=SCREEN")
  40. )
  41. ;******************************************************
  42. ;*  The function for drawing cylinder.                *
  43. ;******************************************************
  44. (defun yzh (sl m)
  45. ;(SETVAR "CMDECHO" 0)
  46.    (MENUCMD "S=IN1")
  47.   (initget (+ 1 2 4))
  48.   (setq dr (getreal "\n╩Σ ╚δ ╓▒ ╛╢=: "))
  49.   (setq dgch " ")
  50.   (MENUCMD "S=IN2")
  51.   (setq yn (getstring "\n╙╨ ┼Σ ║╧ ╛½ ╢╚ ╖±(N)? "))
  52.   (if (null yn)(setq yn "n" dgch " "))
  53. (IF (= SL 0) (MENUCMD "S=CY1") (MENUCMD "S=CY2"))
  54.   (if (or (= yn "y") (= yn "Y"))(setq dgch (getstring "\n╩Σ ╚δ ┼Σ ║╧ ╛½ ╢╚=: ")))
  55.   (input sl m)
  56.   (setq dr1 dr dl1 dr)
  57.   (setq l1 l)
  58.   (setq dgl1 dgl)
  59.   (setq dgr1 dgr)
  60.    (if (< dgl 0)(setq dgl 0))
  61.    (if (< dgr 0)(setq dgr 0))
  62.   (setq dr (/ (* dr s) 2) dl dr)
  63.   (setq l (* l s))
  64.   (setq dgl (* dgl s))
  65.   (setq dgr (* dgr s))
  66.   (dbsa1 xb sl)
  67.      (setq fpt (list xb yb))
  68.   (attdef2)
  69.   (attdef1 "gpsz1" "G" fpt)
  70.   (attdef1 "dgch1" dgch fpt)
  71.     (MENUCMD "S=SCREEN")
  72. )
  73. (defun CUMN ()
  74. (SETVAR "CMDECHO" 0)
  75. (SETVAR "BLIPMODE" 0)
  76.   (yzh 0 0)
  77. (FN)
  78.  (if (= nol no)
  79.   (command "block" no "Y" fpt "w" (list xb (- yb dr)) (list (+ xb l) (+ yb dr)) "")
  80.   (command "block" no fpt "w" (list xb (- yb dr)) (list (+ xb l) (+ yb dr)) "")
  81.  )
  82.   (command "insert" no fpt "" "" "" "" "" "" "" "" "" "" "" "" "" "")
  83.   (setq xb (+ xb l))
  84. ;  (redraw)
  85. (MENUCMD "S=IN2")
  86. (SETQ YN (GETSTRING "\n╩╟╖±╝╠╨°╗¡═Γ▒φ├µ: "))
  87. (IF (OR (= YN "Y") (= YN "y") (= YN ""))
  88.  (PROGN(MENUCMD "I=YY")
  89.        (MENUCMD "I=*")
  90.  )
  91.                (MENUCMD "S=SCREEN")
  92. )
  93. )
  94. (CUMN)
  95.