home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / ARexx.lzh / ClipImage.adpro < prev    next >
Encoding:
Text File  |  1995-03-18  |  2.1 KB  |  92 lines
  1. /*
  2. ** ClipImage.adpro
  3. **
  4. ** $VER: ClipImage.adpro 1.0.0 (18.03.95)
  5. **
  6. ** This ARexx script is for use with Hollywood FX.  It will take
  7. ** the images to be processed, and clip them based on the
  8. ** current settings in the Crop Visual.
  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. WIDTH  = 99
  29. HEIGHT = 45
  30. OFFX   = 23
  31. OFFY   = 29
  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. OPERATOR "CROP_IMAGE" WIDTH HEIGHT OFFX OFFY
  58. EXECUTE
  59.  
  60. SAVER "IFF" InName "RAW"
  61.  
  62. EXIT 0
  63.   
  64. /*** Locate_ADPro function provided by ASDG, Inc. ***/
  65.  
  66. Locate_ADPro:
  67.     Max_Seconds_To_Load = 60
  68.     Flag = 0
  69.     LibName = 'rexxsupport.library'
  70.  
  71.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  72.         ADDLIB( LibName, 0, -30, 0 )
  73.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  74.         RETURN 0
  75.  
  76.     IF (STATEF( 'ADPRO:' ) = "") THEN
  77.         RETURN 0
  78.  
  79.     TIME( 'R' )
  80.     DO WHILE (TIME( 'E' ) < Max_Seconds_To_Load) & (POS( 'ADPro', SHOW( 'Ports' ) ) = 0)
  81.         IF (Flag = 0) THEN DO
  82.             /* Set whatever command line arguments you want. */
  83.             ADDRESS COMMAND 'Run < NIL: > NIL: ADPRO:ADPro MINIMIZED'
  84.             Flag = 1
  85.         END
  86.         ADDRESS COMMAND 'Wait 1'
  87.     END
  88.     IF (POS( 'ADPro', SHOW( 'Ports' ) ) = 0) THEN
  89.         RETURN 0
  90.     ELSE
  91.         RETURN 1
  92.