home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 2: PC
/
frozenfish_august_1995.bin
/
bbs
/
d09xx
/
d0985.lha
/
AGAiff
/
REXX
/
SaveRawAndCopper.agaiff
< prev
next >
Wrap
Text File
|
1994-04-04
|
520b
|
30 lines
/* SaveRawAndCopper.agaiff */
address "AGAIFF_REXX"
options results
SHOWGUI
STATUS 0
filename = result
if (filename = "") then do
TYPETEXT "No picture loaded..."
exit
end
NOSHOW
REQUESTFILE "Filename w/ suffix"
if RC ~= 0 then exit
filename = result
SETPRESET "RAW, no colors"
TYPETEXT "Saving RAW-NORM picture:" filename || ".rawn"
SAVE filename || ".rawn"
SETPRESET "Copperlist 12 Bit dc."
TYPETEXT "Saving 12 Bit Copperlist:" filename || ".cop"
SAVE filename || ".cop"
TYPETEXT "Saving done !"