home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDRenderers / Redisplay.fred < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.1 KB  |  62 lines
  1. /*
  2. ** ReDisplay.fred
  3. **
  4. ** $VER: ReDisplay.fred 1.1.0 (24.10.93)
  5. **
  6. ** This program can be run from an InvokeADPro list to redisplay the
  7. ** rendered image data.  A previous script must have already created
  8. ** rendered data.
  9. **
  10. ** Clips Imported:
  11. **    FREDDisplayDuration    -    Length of time to display image
  12. **                    in seconds
  13. ** NOTE: Clip names are case sensitive.
  14. **
  15. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  16. ** ADPro v2.5.0 (or higher).
  17. **
  18. ** Copyright © 1993 ASDG, Incorporated
  19. ** All Rights Reserved
  20. */
  21.  
  22.  
  23. ADDRESS "ADPro"
  24. OPTIONS RESULTS
  25.  
  26. PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell
  27.  
  28. NL = '0A'X
  29. SQ = '27'X
  30. DQ = '22'X
  31. TRUE  = 1
  32. FALSE = 0
  33.  
  34.  
  35. /*
  36. ** Get the required clips.  Error if any are missing.
  37. */
  38.  
  39. Duration = GETCLIP( "FREDDisplayDuration" )
  40. IF (Duration = "") THEN
  41.     Duration = "-1"
  42.  
  43.  
  44. /*
  45. ** See what type of data is loaded in ADPro/MorphPlus.
  46. */
  47.  
  48. CALL "FREDSCRIPTS:FREDFunctions/CheckForRenderedImageData" TRUE
  49. IF (RESULT ~= 0) THEN
  50.     EXIT 10
  51.  
  52.  
  53. /*
  54. ** Display the rendered image.
  55. */
  56.  
  57. ADPRO_DISPLAY
  58. PAUSE (50*Duration)
  59. ADPRO_UNDISPLAY
  60.  
  61. EXIT 0
  62.