home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / IMAFX26.lha / imagefx2 / rexx / ScanFax.ifx < prev    next >
Encoding:
Text File  |  1994-10-20  |  1.0 KB  |  65 lines
  1. /*
  2.  * $VER: ScanFax 2.0.0 (8.6.93)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Updated for ImageFX 2.0.
  8.  *
  9.  * Scan multiple monochrome pages from an Epson ES800C with a
  10.  * document feeder attachment, save as FAXX files for PhonePak.
  11.  * You must enable the document feeder before running this macro.
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. RequestFile '"Output Fax File:"'
  18. IF rc ~= 0 THEN EXIT
  19. faxfile = result
  20.  
  21. RequestThree '"Fax Resolution:"' 'Normal' 'Fine' 'Cancel'
  22. IF rc ~= 0 THEN EXIT
  23. res = result
  24.  
  25. Menu Scanner
  26.  
  27. SetRender Foreign
  28. IF rc ~= 0 THEN EXIT
  29.  
  30. Render Mode Hires Lace
  31. Render Colors 2
  32.  
  33. Undo Off
  34. Redraw Off
  35.  
  36. pagenum = 1
  37.  
  38. DO FOREVER
  39.  
  40.    Message 'Scanning Page' pagenum
  41.  
  42.    /* requires 2.0 */
  43.    Scanner DetailScan LENGTH 11 Mono Dpi 200 ADF
  44.    IF rc ~= 0 THEN LEAVE
  45.  
  46.    IF res = 'Normal' THEN DO
  47.       Scale 100 50 PERCENT FAST
  48.       END
  49.  
  50.    Render Go
  51.    SaveRenderedAs FAXX '"'faxfile'"' Keep res
  52.  
  53.    pagenum = pagenum + 1
  54.  
  55.    END
  56.  
  57. SaveRenderedAs FAXX '"'faxfile'"' Close
  58.  
  59. KillBuffer Force
  60.  
  61. Redraw On
  62. Undo On
  63.  
  64. EXIT
  65.