home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HCUMN.LSP < prev    next >
Encoding:
Text File  |  1989-09-23  |  633 b   |  21 lines
  1. ;*******************************************
  2. ;*  The program for drawing inner cylinder.*
  3. ;*******************************************
  4.   (yzh 1 m)
  5.   (setq fpt (list xb yb) no (+ no 1))
  6.   (attdef1 "dir1" "H" fpt)
  7.   (command "block" no fpt "w" (list xb (- yb dr)) (list (+ xb l) (+ yb dr)) "")
  8.   (command "insert" no fpt "" "" "" "" "" "" "" "" "" "" "" "" "" "" "")
  9.   (setq xb (+ xb l))
  10.   (command "layer" "s" "" "l" "hidden" "" "")
  11.   (redraw)
  12.  
  13. (MENUCMD "S=IN2")
  14. (SETQ YN (GETSTRING "\n╩╟╖±╝╠╨°╗¡─┌▒φ├µ: "))
  15. (IF (OR (= YN "Y") (= YN "y"))
  16.  (PROGN(MENUCMD "I=nn")
  17.        (MENUCMD "I=*")
  18.  )
  19.  (MENUCMD "S=SCREEN")
  20. )
  21.