home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / commercialdemos / artstudiopro / rexx / imagetofinalwriter.asrx < prev    next >
Encoding:
Text File  |  1995-05-31  |  713 b   |  41 lines
  1. /*
  2. ** ImageToFinalWriter.asrx
  3. **
  4. ** $VER: ImageToFinalWriter V1.0.0 (29.04.95)
  5. **
  6. ** (c) by MotionStudios
  7. **        Wildermuthplatz 3
  8. **        28211 Bremen
  9. **        Tel.: 0421/249966
  10. **
  11. */
  12.  
  13. ADDRESS "FINALW.1"
  14. OPTIONS RESULTS
  15.  
  16. PARSE ARG Path
  17.  
  18. /*
  19. ** Testen ob FinalWriter schon gestartet, wenn nicht FinalWriter starten.
  20. ** 5 Sekunden warten, bis FinalWriter geladen wurde. Falls Zeit nicht reicht
  21. ** kann man beliebig Variieren.
  22. */
  23.  
  24. IF ~SHOW('P','FINALW.1') THEN
  25. DO
  26.  ADDRESS COMMAND 'run >NIL: <NIL: FinalWriter:FinalWrite'
  27.  ADDRESS COMMAND Wait 5
  28. END
  29.  
  30. /*
  31. ** Bild an FinalWriter uebergeben
  32. */
  33.  
  34. InsertImage Path POSITION 1 1 1 3 3
  35.  
  36. /*
  37. ** FinalWriter veranlassen, dass das Dokument neu gezeichnet wird.
  38. */
  39.  
  40. Redraw
  41.