home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma57.dms / ma57.adf / AGAiff / REXX / SaveRawAndCopper.agaiff < prev    next >
Encoding:
Text File  |  1995-04-24  |  521 b   |  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.