home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDSavers / SaveToDP4ANIM.fred < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.9 KB  |  98 lines
  1. /*
  2. ** SaveToDP4ANIM.fred
  3. **
  4. ** $VER: SaveToDP4ANIM.fred 1.1.0 (24.10.93)
  5. **
  6. ** This program can be run from an InvokeADPro list to save images directly to
  7. ** DPaint IV AGA's ANIM buffer.
  8. **
  9. ** Clips Imported:
  10. **    FREDDP4ANIMOverwrite        -    ~0 if the current ANIM should be overwritten
  11. **                        0 if it should be appended to
  12. **    FREDDP4ANIMFrameNum        -    Current DPaint frame number
  13. **
  14. ** NOTE: Clip names are case sensitive.
  15. **
  16. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  17. ** ADPro v2.5.0 (or higher).
  18. **
  19. ** Copyright © 1993 ASDG, Incorporated
  20. ** All Rights Reserved
  21. */
  22.  
  23.  
  24. ADDRESS "ADPro"
  25. OPTIONS RESULTS
  26.  
  27. PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell
  28.  
  29. NL = '0A'X
  30. SQ = '27'X
  31. DQ = '22'X
  32. TRUE  = 1
  33. FALSE = 0
  34.  
  35.  
  36. /*
  37. ** Get the required clips.  Error if any are missing.
  38. */
  39.  
  40. Overwrite = GETCLIP( "FREDDP4ANIMOverwrite" )
  41. IF (Overwrite = "") THEN DO
  42.     ADPRO_TO_FRONT
  43.     OKAY1 "Required clip, FREDDP4ANIMOverwrite," || NL ||,
  44.         "is not specified."
  45.     SCREEN_TO_FRONT "FRED"
  46.     EXIT 10
  47. END
  48.  
  49. CurrDP4FrameNum = GETCLIP( "FREDDP4ANIMFrameNum" )
  50. IF (CurrDP4FrameNum = "") THEN DO
  51.     ADPRO_TO_FRONT
  52.     OKAY1 "Required clip, FREDDP4ANIMFrameNum," || NL ||,
  53.         "is not specified."
  54.     SCREEN_TO_FRONT "FRED"
  55.     EXIT 10
  56. END
  57.  
  58.  
  59. /*
  60. ** See what type of data is loaded in ADPro/MorphPlus.
  61. */
  62.  
  63. CALL "FREDSCRIPTS:FREDFunctions/CheckForRenderedImageData" TRUE
  64. IF (RESULT ~= 0) THEN
  65.     EXIT 10
  66.  
  67.  
  68. /*
  69. ** Do the save.
  70. */
  71.  
  72. DO LoopCounter = 1 TO Length
  73. /*    IF (Overwrite ~= 0) THEN
  74.         SAVER "DPAINT" "XXX" "IMAGE" "FRAME" CurrDP4FrameNum "CHANGE"
  75.     ELSE*/
  76.         SAVER "DPAINT" "XXX" "IMAGE" "APPEND" "CHANGE"
  77.  
  78.     Why = ADPRO_RESULT
  79.     IF (RC ~= 0) THEN DO
  80.         ADPRO_TO_FRONT
  81.         OKAY1 "DPaint ANIM save failed:" || NL || Why || NL ||,
  82.             "Argument Information:" || NL ||,
  83.             "Filename = " || FrameFName || NL ||,
  84.             "ImageType = " || "IMAGE"
  85.         SCREEN_TO_FRONT "FRED"
  86.         EXIT 10
  87.     END
  88. END
  89.  
  90.  
  91. /*
  92. ** Update the clips.
  93. */
  94.  
  95. SETCLIP( "FREDDP4ANIMFrameNum", CurrDP4FrameNum + 1 )
  96.  
  97. EXIT 0
  98.