home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / OperatorsPseudo.lha / _DoubleSize < prev    next >
Encoding:
Text File  |  1994-01-31  |  849 b   |  60 lines
  1. /*
  2. ** _DoubleSize
  3. **
  4. ** $VER: _DoubleSize 1.0.0 (22.11.93)
  5. **
  6. ** This ARexx program will double the size of the image in ADPro's buffer.
  7. **
  8. ** This program requires ADPro v2.5.0 (or higher) 
  9. **
  10. ** Copyright © 1990-1993 ASDG, Incorporated
  11. ** All Rights Reserved
  12. */
  13.  
  14. ADDRESS "ADPro"
  15. OPTIONS RESULTS
  16.  
  17. NL = '0A'X
  18. SQ = '27'X
  19. DQ = '22'X
  20. TRUE  = 1
  21. FALSE = 0
  22. TempDefaults = "T:TempADProDefaults"
  23.  
  24.  
  25. /*
  26. ** Save the current environment.
  27. */
  28.  
  29. SAVE_DEFAULTS TempDefaults
  30.  
  31.  
  32. /*
  33. ** Scale it up
  34. */
  35.  
  36. PCT_SCALE 200 200
  37. IF (RC ~= 0) THEN DO
  38.     ADPRO_TO_FRONT
  39.     OKAY1 "Scale failed."
  40.     CALL ErrorOut 10
  41. END
  42.  
  43. CALL ErrorOut 0
  44.  
  45.  
  46. ErrorOut:
  47.     PARSE ARG ExitCode
  48.  
  49.     IF (EXISTS( TempDefaults )) THEN DO
  50.         LOAD_DEFAULTS TempDefaults
  51.         IF (RC ~= 0) THEN DO
  52.             ADPRO_TO_FRONT
  53.             OKAY1 "Error restoring settings."
  54.         END
  55.  
  56.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  57.     END
  58.  
  59.     EXIT ExitCode
  60.