home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / hfx / dbc / GETIMG.REXX next >
Encoding:
OS/2 REXX Batch file  |  1995-04-12  |  2.8 KB  |  125 lines
  1. /*
  2. ** DBC/GETIMG.REXX
  3. **
  4. ** $VER: DBC/GETIMG.REXX 1.0.0 (17.03.95)
  5. **
  6. ** This ARexx script is for use with Hollywood FX.  
  7. ** It will extract the first frame from a Digital Broadcaster
  8. ** J-Stream file.
  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. /* User Definitions                                   */
  26. /******************************************************/
  27.  
  28. Extracter = "Producer:Tools/ExtractJPEG"
  29.  
  30. /******************************************************/
  31. /* Start of Script                                    */
  32. /******************************************************/
  33.  
  34. /*** Parse arguments sent from Hollywood FX ***/
  35.  
  36. PARSE ARG stream ',' frame ',' outname
  37.  
  38.  
  39. /*** Check if ADPro is loaded, if not try to load ***/
  40.  
  41. CALL Locate_ADPro
  42.  
  43. /*** Could not load ADPro, exit script ***/
  44.  
  45. IF (RESULT = 0) THEN
  46.   EXIT 10
  47.  
  48. /******************************************************************************/
  49.  
  50. /*** Get names of each field of stream ***/
  51.  
  52. Field0 = LEFT(stream, LENGTH(stream) - 4) || ".JF0"
  53. Field1 = LEFT(stream, LENGTH(stream) - 4) || ".JF1"
  54.  
  55. /*** Extract first frame to get frame size ***/
  56.  
  57. ADDRESS "COMMAND"
  58. Extracter stream 0
  59.  
  60. /*** Set all values for JPEG Loader in ADPro ***/
  61.  
  62. ADDRESS "ADPro"
  63. LOADER "JPEG" Field0
  64.  
  65. XSIZE
  66. Horz = ADPRO_RESULT
  67. IF (Horz ~= 720) THEN DO
  68.   TempField = Field0
  69.   Field0 = Field1
  70.   Field1 = TempField
  71.   END
  72.   
  73. YSIZE
  74. Vert = ADPRO_RESULT
  75. Vert = Vert * 2
  76.  
  77. /*** Extract the frame as a JPEG image ***/
  78.  
  79. ADDRESS "COMMAND"
  80. Extracter stream 0
  81.  
  82. /*** Now use ADPro to convert it to an IFF24 image ***/
  83.  
  84. ADDRESS "ADPro"
  85. LOAD_TYPE REPLACE
  86. LOADER "BACKDROP" "XXX" WIDTH Horz HEIGHT Vert "COLOR"
  87. LOAD_TYPE COMPOSE
  88. LOADER "JPEG" Field1 0 0
  89. LOADER "JPEG" Field0 0 (Vert / 2)
  90. OPERATOR "INTERLACE"
  91. SAVER "IFF" outname "RAW"
  92.  
  93. EXIT (0)
  94.  
  95. /******************************************************************************/
  96.   
  97. /*** Locate_ADPro function provided by ASDG, Inc. ***/
  98.  
  99. Locate_ADPro:
  100.     Max_Seconds_To_Load = 60
  101.     Flag = 0
  102.     LibName = 'rexxsupport.library'
  103.  
  104.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  105.         ADDLIB( LibName, 0, -30, 0 )
  106.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  107.         RETURN 0
  108.  
  109.     IF (STATEF( 'ADPRO:' ) = "") THEN
  110.         RETURN 0
  111.  
  112.     TIME( 'R' )
  113.     DO WHILE (TIME( 'E' ) < Max_Seconds_To_Load) & (POS( 'ADPro', SHOW( 'Ports' ) ) = 0)
  114.         IF (Flag = 0) THEN DO
  115.             /* Set whatever command line arguments you want. */
  116.             ADDRESS COMMAND 'Run < NIL: > NIL: ADPRO:ADPro MINIMIZED'
  117.             Flag = 1
  118.         END
  119.         ADDRESS COMMAND 'Wait 1'
  120.     END
  121.     IF (POS( 'ADPro', SHOW( 'Ports' ) ) = 0) THEN
  122.         RETURN 0
  123.     ELSE
  124.         RETURN 1
  125.