home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / ARexx.lzh / CvtToAnim.adpro < prev    next >
Encoding:
Text File  |  1995-03-16  |  3.0 KB  |  121 lines
  1. /*
  2. ** CvtToAnim.adpro
  3. **
  4. ** $VER: CvtToAnim.adpro 1.0.0 (19.06.94)
  5. **
  6. ** This ARexx script is for use with Hollywood FX.  It will take
  7. ** the images to be processed, and add them to an animation file.
  8. ** For this version of the script, you will need to set the 
  9. ** OutputFile variable below, as well as set any rendering options
  10. **
  11. ** This script requires ADPro v2.5.0 (or higher).
  12. **
  13. ** Copyright © 1994 Synergy International, Incorporated
  14. ** All Rights Reserved
  15. ** 
  16. ** The following copyright notice applies to the Locate-ADPro
  17. ** code included in this script:
  18. **
  19. ** Copyright © 1991-1993 ASDG, Incorporated
  20. ** All Rights Reserved
  21. */
  22.  
  23. OPTIONS RESULTS
  24.  
  25. /******************************************************/
  26. /* Definitions                                        */
  27. /******************************************************/
  28.  
  29.  
  30. /******************************************************/
  31. /* User Settings                                      */
  32. /******************************************************/
  33.  
  34. RTYPE = 32    /* May be 2, 4, 8, 16, 32, 64, 128, */
  35.                /* 256, EHB, HAM, HAM8              */
  36.  
  37. STYPE = 0    /* See screen type in ADPro manual    */
  38.  
  39. DITH = 1     /* May be 0 through 8                 */
  40.  
  41. WIDTH = 320    /* Define width of animation        */
  42.  
  43. HEIGHT = 200   /* Define height of animation       */
  44.  
  45. OUTNAME = "T:OUT_ANIM" /* The animation filename   */
  46.  
  47. COMPQUAL = "SMALLER" /* May be FASTER or SMALLER    */
  48.  
  49. COMPTYP  = "BYTE" /* May be BYTE, WORD or LONG      */
  50.  
  51. COMPLETE = "WRAPUP" /* May be WRAPUP or QUIT        */
  52.  
  53. /******************************************************/
  54. /* Start of Script                                    */
  55. /******************************************************/
  56.  
  57. /*** Parse arguments sent from Hollywood FX ***/
  58.  
  59. PARSE ARG InName ',' frame ',' first ',' last ',' total ',' format ',' resolution ',' alpha
  60.  
  61.  
  62. /*** Check if ADPro is loaded, if not try to load ***/
  63.  
  64. CALL Locate_ADPro
  65.  
  66. /*** Could not load ADPro, exit script ***/
  67.  
  68. IF (RESULT = 0) THEN
  69.   EXIT 10
  70.  
  71. ADDRESS "ADPro"
  72.  
  73. /*** Load the image to be processed ***/
  74.  
  75. LOADER "UNIVERSAL" InName
  76.  
  77. SAVER "ANIM" 
  78.  
  79. RENDER_TYPE RTYPE
  80. SCREEN_TYPE STYPE
  81. DITHER DITH
  82.  
  83. OPERATOR ABS_SCALE WIDTH HEIGHT
  84. EXECUTE
  85.  
  86. SAVER "ANIM" OUTNAME "IMAGE" "APPEND" COMPQUAL COMPTYP
  87.  
  88. IF (FRAME = LAST) THEN
  89.   SAVER "ANIM" OUTNAME "IMAGE" COMPLETE
  90.  
  91. EXIT 0
  92.   
  93. /*** Locate_ADPro function provided by ASDG, Inc. ***/
  94.  
  95. Locate_ADPro:
  96.     Max_Seconds_To_Load = 60
  97.     Flag = 0
  98.     LibName = 'rexxsupport.library'
  99.  
  100.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  101.         ADDLIB( LibName, 0, -30, 0 )
  102.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  103.         RETURN 0
  104.  
  105.     IF (STATEF( 'ADPRO:' ) = "") THEN
  106.         RETURN 0
  107.  
  108.     TIME( 'R' )
  109.     DO WHILE (TIME( 'E' ) < Max_Seconds_To_Load) & (POS( 'ADPro', SHOW( 'Ports' ) ) = 0)
  110.         IF (Flag = 0) THEN DO
  111.             /* Set whatever command line arguments you want. */
  112.             ADDRESS COMMAND 'Run < NIL: > NIL: ADPRO:ADPro MINIMIZED'
  113.             Flag = 1
  114.         END
  115.         ADDRESS COMMAND 'Wait 1'
  116.     END
  117.     IF (POS( 'ADPro', SHOW( 'Ports' ) ) = 0) THEN
  118.         RETURN 0
  119.     ELSE
  120.         RETURN 1
  121.