home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 6
/
AACD06.ISO
/
AACD
/
Graphics
/
SViewIV
/
ARexx-Scripts
/
ExportToPPaint.rx
< prev
next >
Wrap
Text File
|
2000-01-19
|
1KB
|
60 lines
/*
$VER: ExportToPPaint.rx V9.00 (9.9.99)
© 1999 by Andreas R. Kleinert
This exports a graphics (that is currently loaded
in SViewIV) to PPaint as BRUSH. PPaint must be running.
USAGE: RX ExportToPPaint
*/
address command
OPTIONS RESULTS
SIGNAL ON ERROR
SVIIPORT = 'SViewII.rx'
SVNGPORT = 'SViewNG.rx'
SVPORT = 'SuperView.rx'
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
IF ~SHOW('P',SVPORT) THEN DO
say "Could not locate ARexx port of SViewIV !"
CALL ErrorOut 0
END
ADDRESS VALUE SVPORT
'SAVE_TYPE=ILBM CmpByteRun1'
'SAVE='||'T:PP_EXPORT'
address command wait 3
IF ~SHOW('P','PPAINT') THEN DO
say "Could not locate ARexx port of PPaint !"
CALL ErrorOut 0
END
address 'PPAINT'
LoadBrush 'T:PP_EXPORT' 'QUIET NOPROGRESS'
address command wait 3
address command
Delete 'T:PP_EXPORT'
Delete 'T:PP_EXPORT.info'
CALL ErrorOut 0
/* Errorout procedure ----------------------- */
ErrorOut:
PARSE ARG ExitCode
EXIT ExitCode
END