home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 5
/
FreshFish_July-August1994.bin
/
bbs
/
gfx
/
agaiff-1.21.lha
/
AGAiff-1.21
/
REXX
/
SaveRawAndCopper.agaiff
< prev
next >
Wrap
Text File
|
1992-09-02
|
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 !"