home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CopyPRGS / SC172.DMS / in.adf / Rexx / JpegToIff.adpro < prev   
Encoding:
Text File  |  1994-10-10  |  826 b   |  50 lines
  1. /*
  2. ** JpegToIff.adpro
  3. **
  4. ** $VER: JpegToIff.adpro 1.0.1 (14.08.94)
  5. **
  6. ** Umwandlung von Jpeg-Graphiken nach Iff-Format.
  7. **
  8. ** Copyright © 1992-1994 Siegfried-Soft All Rights Reserved
  9. */
  10.  
  11. /*Aufruf Adpro*/
  12. options results
  13.  
  14. CALL "adproscripts:Locate-ADPro.adpro"
  15.  
  16. arg INPUT   /*argument vom cli oder task holen*/
  17. SAY "Loading" INPUT
  18.  
  19. address "ADPro"
  20. TempDefaults = "T:TempADProDefaults"
  21. SAVE_DEFAULTS TempDefaults
  22.  
  23. lformat "JPEG"
  24. sformat "IFF"
  25.  
  26. if INPUT ~= "" then do
  27.    load INPUT 'SMOOTHING'
  28.  
  29. if RC ~= 0 then do
  30.         exit
  31.         end
  32. END
  33.  
  34. OUTPUT = INPUT || ".Iff"
  35. say "Saving" OUTPUT
  36. SAVE OUTPUT "Raw"
  37.  
  38.  
  39.     IF (EXISTS( TempDefaults )) THEN DO
  40.         LOAD_DEFAULTS TempDefaults
  41.         IF (RC ~= 0) THEN DO
  42.             ADPRO_TO_FRONT
  43.             OKAY1 "Error restoring settings."
  44.             ADPRO_TO_BACK
  45.         END
  46.  
  47.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  48.     END
  49.  
  50.