home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / OperatorsPseudo.lha / _RemapNRerender < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.1 KB  |  127 lines
  1. /*
  2. ** _RemapNRerender
  3. **
  4. ** $VER: _RemapNRerender 1.1.0 (25.10.93)
  5. **
  6. ** This program can be run from ADPro's operator list to remap and rerender
  7. ** the current loaded image using an external palette file.
  8. **
  9. ** NOTE: The palette can be left locked after the rerendering so that subsequent
  10. **       renders will use the loaded palette.
  11. **
  12. ** This script requires ADPro v2.5.0 (or higher).
  13. **
  14. ** Copyright © 1993 ASDG, Incorporated
  15. ** All Rights Reserved
  16. */
  17.  
  18.  
  19. ADDRESS "ADPro"
  20. OPTIONS RESULTS
  21.  
  22. NL = '0A'X
  23. SQ = '27'X
  24. DQ = '22'X
  25. TRUE = 1
  26. FALSE = 0
  27. TempDefaults = "T:TempADProDefaults"
  28.  
  29.  
  30. /*
  31. ** Save the current environment.
  32. */
  33.  
  34. SAVE_DEFAULTS TempDefaults
  35.  
  36.  
  37. /*
  38. ** See what type of data is loaded in ADPro/MorphPlus.
  39. */
  40.  
  41. CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  42. IF (RESULT ~= 0) THEN
  43.     CALL ErrorOut 10
  44.  
  45.  
  46. /*
  47. ** Select the palette file to use.
  48. */
  49.  
  50. CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Select palette file"' '""""' '""""' TRUE
  51. IF (RESULT = DQ||DQ) THEN DO
  52.     ADPRO_TO_FRONT
  53.     OKAY1 "Error, no palette file selected."
  54.     CALL ErrorOut 10
  55. END
  56. ELSE
  57.     PaletteFile = RESULT
  58.  
  59.  
  60. /*
  61. ** Specify whether to lock the palette after rendering
  62. */
  63.  
  64. CALL "FREDSCRIPTS:FREDFunctions/GetABool" '"Keep palette locked?"' '"to keep locked"' '"to unlock palette"' TRUE
  65. LockPalette = RESULT
  66.  
  67.  
  68. /*
  69. ** Do the rerendering.
  70. */
  71.  
  72. PSTATUS UNLOCKED
  73. IF (RC ~= 0) THEN DO
  74.     ADPRO_TO_FRONT
  75.     OKAY1 "Error unlocking palette."
  76.     CALL ErrorOut 10
  77. END
  78.  
  79. PLOAD PaletteFile
  80. IF (RC ~= 0) THEN DO
  81.     ADPRO_TO_FRONT
  82.     OKAY1 "Error loading palette file:" || NL ||,
  83.         PaletteFile
  84.     CALL ErrorOut 10
  85. END
  86.  
  87. PSTATUS LOCKED
  88. IF (RC ~= 0) THEN DO
  89.     ADPRO_TO_FRONT
  90.     OKAY1 "Error locking palette."
  91.     CALL ErrorOut 10
  92. END
  93.  
  94. EXECUTE
  95. IF (RC ~= 0) THEN DO
  96.     ADPRO_TO_FRONT
  97.     OKAY1 "Error rendering image."
  98.     CALL ErrorOut 10
  99. END
  100.  
  101. IF (LockPalette = FALSE) THEN DO
  102.     PSTATUS UNLOCKED
  103.     IF (RC ~= 0) THEN DO
  104.         ADPRO_TO_FRONT
  105.         OKAY1 "Error unlocking palette."
  106.         CALL ErrorOut 10
  107.     END
  108. END
  109.  
  110. CALL ErrorOut 0
  111.  
  112.  
  113. ErrorOut:
  114.     PARSE ARG ExitCode
  115.  
  116.     IF (EXISTS( TempDefaults )) THEN DO
  117.         LOAD_DEFAULTS TempDefaults
  118.         IF (RC ~= 0) THEN DO
  119.             ADPRO_TO_FRONT
  120.             OKAY1 "Error restoring settings."
  121.         END
  122.  
  123.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  124.     END
  125.  
  126.     EXIT ExitCode
  127.