home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / gfx / conv / agaiff / rexx / saverawandcopper.agaiff < prev    next >
Text File  |  1995-04-23  |  521b  |  30 lines
  1. /* SaveRawAndCopper.agaiff */
  2.  
  3. address "AGAIFF_REXX"
  4. options results
  5.  
  6. SHOWGUI
  7.  
  8. STATUS 0
  9. filename = result
  10. if (filename = "") then do
  11.       TYPETEXT "No picture loaded..."
  12.       exit
  13.    end
  14.  
  15. NOSHOW
  16.  
  17. REQUESTFILE "Filename w/o suffix"
  18. if RC ~= 0 then exit
  19. filename = result
  20.  
  21. SETPRESET "RAW, no colors"
  22. TYPETEXT "Saving RAW-NORM picture:" filename || ".rawn"
  23. SAVE filename || ".rawn"
  24.  
  25. SETPRESET "Copperlist 12 Bit dc."
  26. TYPETEXT "Saving 12 Bit Copperlist:" filename || ".cop"
  27. SAVE filename || ".cop"
  28.  
  29. TYPETEXT "Saving done !"
  30.