home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ADProScripts.lha / Make-HAME.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.4 KB  |  143 lines
  1. /*
  2. ** Make-HAME.adpro
  3. **
  4. ** $VER: Make-HAME.adpro 1.2.0 (26.10.93)
  5. **
  6. ** This Arexx program is supplied for your convenience.  It can be used to
  7. ** create rendered data suitable for turning into HAM-E mode displayable
  8. ** (and savable) data.
  9. **
  10. ** This script requires ADPro v2.5.0 (or higher).
  11. **
  12. ** Copyright © 1991-1993 ASDG, Incorporated
  13. ** All Rights Reserved
  14. */
  15.  
  16.  
  17. ADDRESS "ADPro"
  18. OPTIONS RESULTS
  19.  
  20. NL = '0A'X
  21. SQ = '27'X
  22. DQ = '22'X
  23. TRUE  = 1
  24. FALSE = 0
  25. TempDefaults = "T:TempADProDefaults"
  26.  
  27.  
  28. /*
  29. ** Save the current environment.
  30. */
  31.  
  32. SAVE_DEFAULTS TempDefaults
  33.  
  34.  
  35. /* Let user decide which mode we should work in */
  36.  
  37. ADPRO_TO_FRONT
  38.  
  39. OKAYN '"Make-HAME"' '"Select palette mode."' '"Enhanced|Normal|Cancel"'
  40. IF (RC = 0) THEN DO
  41.     CALL ErrorOut 10
  42. END
  43. ELSE IF (RC = 1) THEN DO
  44.     PWIDTH "ENHANCED"
  45.     IF (RC ~= 0) THEN DO
  46.         ADPRO_TO_FRONT
  47.         OKAY1 "Cannot switch to enhanced mode."
  48.         CALL ErrorOut 10
  49.     END
  50. END
  51. ELSE IF (RC = 2) THEN
  52.     PWIDTH "NORMAL"
  53.  
  54.  
  55. /*
  56. ** Let user decide between HAM and HAM8
  57. */
  58.  
  59. ADPRO_TO_FRONT
  60.  
  61. OKAYN '"Make-HAME"' '"Choose render mode."' '"HAM|HAM8|Cancel"'
  62. IF (RC = 0) THEN DO
  63.     CALL ErrorOut 10
  64. END
  65. ELSE IF (RC = 1) THEN DO
  66.     rendering_mode = "HAM"
  67.     colors_used = 16
  68. END
  69. ELSE IF (RC = 2) THEN DO
  70.     rendering_mode = "HAM8"
  71.     colors_used = 60
  72. END
  73.  
  74.  
  75. /*
  76. ** Set up the user's wishes.
  77. */
  78.  
  79. RENDER_TYPE "CUST"
  80. IF (RC ~= 0) THEN DO
  81.     ADPRO_TO_FRONT
  82.     OKAY1 "RENDER_TYPE failed:" || NL || RC ADPRO_RESULT
  83.     CALL ErrorOut 10
  84. END
  85.  
  86. POFFSET 0
  87. IF (RC ~= 0) THEN DO
  88.     ADPRO_TO_FRONT
  89.     OKAY1 "POFFSET failed:" || NL || RC ADPRO_RESULT
  90.     CALL ErrorOut 10
  91. END
  92.  
  93. PTOTAL rendering_mode
  94. IF (RC ~= 0) THEN DO
  95.     ADPRO_TO_FRONT
  96.     OKAY1 "PTOTAL failed:" || NL || RC ADPRO_RESULT 
  97.     CALL ErrorOut 10
  98. END
  99.  
  100. PUSED colors_used
  101. IF (RC ~= 0) THEN DO
  102.     ADPRO_TO_FRONT
  103.     OKAY1 "PUSED failed:" || NL || RC ADPRO_RESULT
  104.     CALL ErrorOut 10
  105. END
  106.  
  107. EXECUTE
  108. IF (RC ~= 0) THEN DO
  109.     ADPRO_TO_FRONT
  110.     OKAY1 "EXECUTE failed:" || NL || RC ADPRO_RESULT
  111.     CALL ErrorOut 10
  112. END
  113.  
  114.  
  115. /* Display image for 4 seconds, you can change 
  116. ** the delay to what you want.
  117. */
  118.  
  119. SAVER "HAME" "DONTCARE" "IMAGE" "DISPLAY" 200
  120. IF (RC ~= 0) THEN DO
  121.     ADPRO_TO_FRONT
  122.     OKAY1 "HAME save failed." || NL || RC ADPRO_RESULT
  123.     CALL ErrorOut 10
  124. END
  125.  
  126. CALL ErrorOut 0
  127.  
  128.  
  129. ErrorOut:
  130.     PARSE ARG ExitCode
  131.  
  132.     IF (EXISTS( TempDefaults )) THEN DO
  133.         LOAD_DEFAULTS TempDefaults
  134.         IF (RC ~= 0) THEN DO
  135.             ADPRO_TO_FRONT
  136.             OKAY1 "Error restoring settings."
  137.         END
  138.  
  139.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  140.     END
  141.  
  142.     EXIT ExitCode
  143.