home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / math / mathscript / rexx / openmathscript.ms < prev   
Encoding:
Text File  |  1995-05-09  |  596 b   |  33 lines
  1. /* This script is for use with FinalWriter®. See the file 
  2. FinalWriter.guide in the Docs directory */
  3.  
  4. options results
  5.  
  6. IF ~SHOW('p',"MATHSCRIPT.1") THEN
  7. DO
  8. /* If MathScript is not already running, start it ! */
  9.  
  10.         ADDRESS COMMAND "run MathScript:MathScript"
  11.         ADDRESS COMMAND "WaitForPort MATHSCRIPT.1"
  12. END
  13.  
  14. ADDRESS "FINALW.1"
  15.  
  16. CURRENTOBJECT
  17. id=result
  18. IF id~=0 THEN
  19. COPY
  20. /* if selected object is EPS, copy it into the clipboard */
  21.  
  22. ADDRESS "MATHSCRIPT.1"
  23.  
  24. SCREENTOFRONT
  25.  
  26. CLEAR
  27.  
  28. IF id~=0 THEN IMPORT "Clips:0" FORCE
  29. /* Import graphics file from clipboard and search for formula */
  30.  
  31.  
  32.  
  33.