home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / grafica / sviewiv / arexx-scripts / dooperation.rx < prev    next >
Text File  |  2000-01-19  |  1KB  |  69 lines
  1. /*
  2.    $VER: DoOperation.rx V9.00 (15.8.99)
  3.    © 1997-99 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates loading, proecessing and saving
  6.    a graphics by using SViewIV's ARexxPort.
  7.  
  8. */
  9.  
  10. address command
  11.  
  12. SViewIV "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  13.  
  14. say ""
  15. say "ARexx: SViewIV has been started : Waiting a moment..."
  16.  
  17. wait 5
  18.  
  19. OPTIONS RESULTS
  20. SIGNAL ON ERROR
  21. SVIIPORT = 'SViewII.rx'
  22. SVNGPORT = 'SViewNG.rx'
  23. SVPORT   = 'SuperView.rx'
  24.  
  25. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  26. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  27. IF ~SHOW('P',SVPORT) THEN DO
  28.   say "Could not locate ARexx port of SViewII !"
  29.   CALL ErrorOut 0
  30. END
  31.  
  32. ADDRESS VALUE SVPORT
  33.  
  34. say "ARexx: Loading a PCX Graphics via the LOAD command"
  35. 'LOAD=TEST.PCX'
  36.  
  37.  
  38. say "ARexx: Processing Graphics"
  39. 'SVOPERATOR=Scale50'
  40. 'ACTION'
  41.  
  42.  
  43. say "ARexx: Saving Graphics as PCX"
  44. 'SAVE_TYPE=PCX V2.5-3.0'
  45. 'SAVE=TEST-OP.PCX'
  46.  
  47. address command wait 3
  48.  
  49. say "ARexx: Load this PCX Gfx now for control"
  50. 'SHOW=TEST-OP.PCX'
  51.  
  52. say "ARexx: O.K. : Let's quit !"
  53.  
  54. address command Wait 2
  55.  
  56. 'QUIT'
  57.  
  58. CALL ErrorOut 0
  59.  
  60.  
  61. /* Errorout procedure ----------------------- */
  62.  
  63. ErrorOut:
  64.         PARSE ARG ExitCode
  65.  
  66.         EXIT ExitCode
  67.  
  68.   END
  69.