home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / ms95 / disk23 / dir02 / f008850.res < prev    next >
Text File  |  1996-04-02  |  913b  |  37 lines
  1.         ;  DIGZ.UCM
  2.         ;
  3.         ; Allows active Z to be changed for digitizer
  4.         ; set-up region by key-in or data point. 
  5.         ; NOTE: this user command is only used for 
  6.         ; 3-D digitizing.
  7.         
  8.                 tst NDICES NE 3, TWOD
  9.                 msg 'CFSet New Z for digitizer'
  10. GETPNT:  
  11.                 msg 'PRKey in new Z value or data point'
  12.                 get k,GOTKEY,p,GOTPNT,r,GOTRST
  13.                 msg 'ER INVALID INPUT- RESET TO CONTINUE'
  14.         get
  15.         go GETPNT
  16. GOTKEY:         
  17.         cvt a2=key
  18.         set a2=a2+gozuor ; This line added by MKP 09-17-90
  19.                 GO DOIT
  20. GOTPNT:         
  21.         set a2=zur  
  22. DOIT:           
  23.         set DIGTRN(12) = a2
  24.         MSG 'CF '
  25.             MSG 'PRDigitizer Z value modified'
  26.         GO EXITUC
  27. TWOD:           
  28.         MSG 'ER NOT A 3D FILE - RESET TO EXIT'
  29.                 GET
  30.         GO EXITUC
  31. GOTRST:
  32.         MSG 'CF '
  33.         MSG 'PR '
  34. EXITUC:
  35.             msg 'STChange Digitizer Z Exited'
  36.         end
  37.