home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / grafica / sviewiv / arexx-scripts / exporttofxpaint.rx < prev    next >
Text File  |  2000-01-19  |  1KB  |  61 lines
  1. /*
  2.    $VER: ExportToFxPAINT.rx V9.06 (29.12.99)
  3.    © 1999 by Andreas R. Kleinert
  4.  
  5.    This exports a graphics (that is currently loaded
  6.    in SViewIV) to FxPAINT. FxPAINT must be running.
  7.  
  8.    USAGE: RX ExportToFxPAINT
  9.  
  10. */
  11.  
  12. address command
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16.  
  17. SVIIPORT = 'SViewII.rx'
  18. SVNGPORT = 'SViewNG.rx'
  19. SVPORT   = 'SuperView.rx'
  20.  
  21. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  22. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  23. IF ~SHOW('P',SVPORT) THEN DO
  24.   say "Could not locate ARexx port of SViewIV !"
  25.   CALL ErrorOut 0
  26. END
  27.  
  28. ADDRESS VALUE SVPORT
  29.  
  30. 'SAVE_TYPE=ILBM CmpByteRun1'
  31. 'SAVE='||'T:FXP_EXPORT'
  32.  
  33. address command wait 3
  34.  
  35. IF ~SHOW('P','FXPAINT.0') THEN DO
  36.   say "Could not locate ARexx port of FxPAINT !"
  37.   CALL ErrorOut 0
  38. END
  39.  
  40. address 'FXPAINT.0'
  41.  
  42. LOADIMAGE 'T:FXP_EXPORT'
  43.  
  44. address command wait 3
  45. address command
  46.  
  47. Delete 'T:FXP_EXPORT'
  48. Delete 'T:FXP_EXPORT.info'
  49.  
  50. CALL ErrorOut 0
  51.  
  52.  
  53. /* Errorout procedure ----------------------- */
  54.  
  55. ErrorOut:
  56.         PARSE ARG ExitCode
  57.  
  58.         EXIT ExitCode
  59.  
  60.   END
  61.