home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDSavers / SaveToFC24.fred.pre < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.9 KB  |  176 lines
  1. /*
  2. ** SaveToFC24.fred.pre
  3. **
  4. ** $VER: SaveToFC24.fred.pre 1.0.0 (31.10.93)
  5. **
  6. ** If the SaveToFC24.fred script appears in the InvokeADPro list,
  7. ** this program will ask the user to select the FC24 settings to use.
  8. **
  9. ** Clips Exported:
  10. **    FREDFC24AmigaDisplay    -    1 for on, 0 for off
  11. **    FREDFC24BoardDisplay    -    1 for on, 0 for off
  12. **    FREDFC24BoardNum    -    Number of board to use
  13. **    FREDFC24Resolution    -    Display resolution to use
  14. **    FREDFC24DisplayFrom    -    Which FC24 buffer to display from
  15. **    FREDFC24ImageTo        -    Which FC24 buffer will be written
  16. **    FREDFC24SrcXOff        -    X Offset into source image
  17. **    FREDFC24SrcYOff        -    Y Offset into source image
  18. **    FREDFC24DestXOff    -    X Offset into destination buffer
  19. **    FREDFC24DestYOff    -    Y Offset into destination buffer
  20. **    FREDFC24DestWidth    -    Width in destination buffer
  21. **    FREDFC24DestHeight    -    Height in destination buffer
  22. **
  23. ** NOTE: Clip names are case sensitive.
  24. **
  25. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  26. ** ADPro v2.5.0 (or higher).
  27. **
  28. ** Copyright © 1993 ASDG, Incorporated
  29. ** All Rights Reserved
  30. */
  31.  
  32.  
  33. ADDRESS "ADPro"
  34. OPTIONS RESULTS
  35.  
  36. PARSE ARG NumberOfCells NumberOfFrames
  37.  
  38. NL = '0A'X
  39. SQ = '27'X
  40. DQ = '22'X
  41. TRUE  = 1
  42. FALSE = 0
  43.  
  44.  
  45. /*
  46. ** Ask the user which board and resolution to use.
  47. */
  48.  
  49. ADPRO_TO_FRONT
  50.  
  51. OKAYN '"SaveToFC24.fred"' '"Enable Amiga display?"' '"On|Off|Cancel"'
  52. IF (RC = 0) THEN DO
  53.     SCREEN_TO_FRONT "FRED"
  54.     EXIT 10
  55. END
  56. ELSE IF (RC = 1) THEN
  57.     AmigaDisplay = "ON"
  58. ELSE IF (RC = 2) THEN
  59.     AmigaDisplay = "OFF"
  60.  
  61. ADPRO_TO_FRONT
  62.  
  63. OKAYN '"SaveToFC24.fred"' '"Enable Board display?"' '"On|Off|Cancel"'
  64. IF (RC = 0) THEN DO
  65.     SCREEN_TO_FRONT "FRED"
  66.     EXIT 10
  67. END
  68. ELSE IF (RC = 1) THEN
  69.     BoardDisplay = "ON"
  70. ELSE IF (RC = 2) THEN
  71.     BoardDisplay = "OFF"
  72.  
  73. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Board number"' 1 1 5 TRUE
  74. IF (RESULT = (1-1)) THEN
  75.     EXIT 10
  76. BoardNum = RESULT
  77.  
  78. ResID.1 = 384
  79. ResID.2 = 512
  80. ResID.3 = 768
  81. ResID.4 = 1024
  82.  
  83. ADPRO_TO_FRONT
  84.  
  85. OKAYN '"SaveToFC24.fred"' '"Select display resolution"' '"384|512|768|1024|Cancel"'
  86. IF (RC = 0) THEN DO
  87.     SCREEN_TO_FRONT "FRED"
  88.     EXIT 10
  89. END
  90. ELSE
  91.     Res = ResID.RC
  92.  
  93. ADPRO_TO_FRONT
  94.  
  95. OKAYN '"SaveToFC24.fred"' '"Display from which buffer?"' '"A|B|Cancel"'
  96. IF (RC = 0) THEN DO
  97.     SCREEN_TO_FRONT "FRED"
  98.     EXIT 10
  99. END
  100. ELSE IF (RC = 1) THEN
  101.     DisplayFrom = "A"
  102. ELSE IF (RC = 2) THEN
  103.     DisplayFrom = "B"
  104.  
  105. ADPRO_TO_FRONT
  106.  
  107. OKAYN '"SaveToFC24.fred"' '"Image to which buffer?"' '"A|B|Cancel"'
  108. IF (RC = 0) THEN DO
  109.     SCREEN_TO_FRONT "FRED"
  110.     EXIT 10
  111. END
  112. ELSE IF (RC = 1) THEN
  113.     ImageTo = "A"
  114. ELSE IF (RC = 2) THEN
  115.     ImageTo = "B"
  116.  
  117.  
  118. /*
  119. ** Ask the user for the source image specifications.
  120. */
  121.  
  122. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Source X Offset"' 0 0 99999 TRUE
  123. IF (RESULT = (0-1)) THEN
  124.     EXIT 10
  125. SrcXOff = RESULT
  126.  
  127. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Source Y Offset"' 0 0 99999 TRUE
  128. IF (RESULT = (0-1)) THEN
  129.     EXIT 10
  130. SrcYOff = RESULT
  131.  
  132.  
  133. /*
  134. ** Ask the user for the destination area specifications.
  135. */
  136.  
  137. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Destination X Offset"' 0 0 99999 TRUE
  138. IF (RESULT = (0-1)) THEN
  139.     EXIT 10
  140. DestXOff = RESULT
  141.  
  142. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Destination Y Offset"' 0 0 99999 TRUE
  143. IF (RESULT = (0-1)) THEN
  144.     EXIT 10
  145. DestYOff = RESULT
  146.  
  147. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Destination Width"' 1 1 99999 TRUE
  148. IF (RESULT = (1-1)) THEN
  149.     EXIT 10
  150. DestWidth = RESULT
  151.  
  152. CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Destination Height"' 1 1 99999 TRUE
  153. IF (RESULT = (1-1)) THEN
  154.     EXIT 10
  155. DestHeight = RESULT
  156.  
  157.  
  158. /*
  159. ** Update the clips.
  160. */
  161.  
  162. SETCLIP( "FREDFC24AmigaDisplay", AmigaDisplay )
  163. SETCLIP( "FREDFC24BoardDisplay", BoardDisplay )
  164. SETCLIP( "FREDFC24BoardNum", BoardNum )
  165. SETCLIP( "FREDFC24Resolution", Res )
  166. SETCLIP( "FREDFC24DisplayFrom", DisplayFrom )
  167. SETCLIP( "FREDFC24ImageTo", ImageTo )
  168. SETCLIP( "FREDFC24SrcXOff", SrcXOff )
  169. SETCLIP( "FREDFC24SrcYOff", SrcYOff )
  170. SETCLIP( "FREDFC24DestXOff", DestXOff )
  171. SETCLIP( "FREDFC24DestYOff", DestYOff )
  172. SETCLIP( "FREDFC24DestWidth", DestWidth )
  173. SETCLIP( "FREDFC24DestHeight", DestHeight )
  174.  
  175. EXIT 0
  176.