home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxgd101.zip / SETINT.CMD < prev   
OS/2 REXX Batch file  |  1995-09-19  |  868b  |  39 lines
  1. /* ---------------------------- */
  2. /* GD Supprot Rexx code         */
  3. /*                              */
  4. /* GI.CMD - Gif Set Interlaced  */
  5. /*          BIT                 */
  6. /*                              */
  7. /*                              */
  8. /* ---------------------------- */
  9. Call RxFuncAdd 'RxgdLoadFuncs', 'RXGDUTIL', 'RxgdLoadFuncs'
  10. Call RxgdLoadFuncs
  11.  
  12. parse ARG cl
  13.  
  14.   im = RxgdImageCreateFromGIF(cl)
  15.   IF (im == 1) THEN
  16.     DO
  17.  
  18.     clGIF = cl || '.GIF'
  19.  
  20.     im = RxgdImageCreateFromGIF(clGIF)
  21.  
  22.     IF (im == 1) THEN
  23.       DO
  24.       Say 'File --->' || cl || '<--- not found.'
  25.       RETURN
  26.       END
  27.  
  28.     cl = cl || '.GIF'
  29.  
  30.     END
  31.  
  32.   Say 'GIF Information for ' cl || ' Handle=' || im
  33.   Say ' '
  34.   rc = RxgdImageInterlace(im, 1)
  35.   rc = RxgdImageGIF(im, cl)
  36.   rc = RxgdImageDestroy(im)
  37.  
  38.   Say 'Interlaced BIT set for file ' cl
  39.