home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / ARexx.lzh / Emboss_Out.adpro < prev    next >
Encoding:
Text File  |  1994-11-29  |  2.3 KB  |  98 lines
  1. /*
  2. ** Emboss.adpro
  3. **
  4. ** $VER: Emboss.adpro 1.0.0 (19.06.94)
  5. **
  6. ** This ARexx script is for use with Hollywood FX.  
  7. ** It processes each rendered image through an operator,
  8. ** saving each image in its rendered format again.
  9. **
  10. ** This script requires ADPro v2.5.0 (or higher).
  11. **
  12. ** Copyright © 1994 Synergy International, Incorporated
  13. ** All Rights Reserved
  14. ** 
  15. ** The following copyright notice applies to the Locate-ADPro
  16. ** code included in this script:
  17. **
  18. ** Copyright © 1991-1993 ASDG, Incorporated
  19. ** All Rights Reserved
  20. */
  21.  
  22. OPTIONS RESULTS
  23.  
  24. /******************************************************/
  25. /* Definitions                                        */
  26. /******************************************************/
  27.  
  28.  
  29. /******************************************************/
  30. /* User Settings                                      */
  31. /******************************************************/
  32.  
  33. /******************************************************/
  34. /* Start of Script                                    */
  35. /******************************************************/
  36.  
  37. /*** Parse arguments sent from Hollywood FX ***/
  38.  
  39. PARSE ARG InName ',' frame ',' first ',' last ',' total ',' format ',' resolution ',' alpha
  40.  
  41.  
  42. /*** Check if ADPro is loaded, if not try to load ***/
  43.  
  44. CALL Locate_ADPro
  45.  
  46. /*** Could not load ADPro, exit script ***/
  47.  
  48. IF (RESULT = 0) THEN
  49.   EXIT 10
  50.  
  51. ADDRESS "ADPro"
  52.  
  53. /*** Load the image to be processed ***/
  54.  
  55. LOADER "UNIVERSAL" """"InName""""
  56.  
  57. CALL "HFX:ARexx/_EmbossOut"
  58.  
  59. IF (format = 0) THEN
  60.   SAVER "IFF" """"InName"""" "RAW"
  61.  
  62. IF (format = 1) THEN
  63.   SAVER "FRAMESTORE" """"InName""""
  64.  
  65. IF (frame = last) THEN
  66.   ADPRO_EXIT
  67.     
  68. EXIT 0
  69.   
  70. /*** Locate_ADPro function provided by ASDG, Inc. ***/
  71.  
  72. Locate_ADPro:
  73.     Max_Seconds_To_Load = 60
  74.     Flag = 0
  75.     LibName = 'rexxsupport.library'
  76.  
  77.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  78.         ADDLIB( LibName, 0, -30, 0 )
  79.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  80.         RETURN 0
  81.  
  82.     IF (STATEF( 'ADPRO:' ) = "") THEN
  83.         RETURN 0
  84.  
  85.     TIME( 'R' )
  86.     DO WHILE (TIME( 'E' ) < Max_Seconds_To_Load) & (POS( 'ADPro', SHOW( 'Ports' ) ) = 0)
  87.         IF (Flag = 0) THEN DO
  88.             /* Set whatever command line arguments you want. */
  89.             ADDRESS COMMAND 'Run < NIL: > NIL: ADPRO:ADPro MINIMIZED'
  90.             Flag = 1
  91.         END
  92.         ADDRESS COMMAND 'Wait 1'
  93.     END
  94.     IF (POS( 'ADPro', SHOW( 'Ports' ) ) = 0) THEN
  95.         RETURN 0
  96.     ELSE
  97.         RETURN 1
  98.