home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / math / mathscript.lha / MathScript / Rexx / Post_Preview.ms < prev   
Encoding:
Text File  |  1994-10-09  |  925 b   |  31 lines
  1. /* This script is for previewing formulas with Post. 
  2. It saves the current formula as a temporary PS-file, which is then showed by Post.
  3.  
  4. *** ATTENTION: This script needs the PS-interpreter POST by Adrian Aylward ***/
  5.  
  6. post="dh1:text/post/"
  7. /*** This variable has to be modified to the path of Post on your system !!! ***/
  8.  
  9. ADDRESS "MathScript"
  10.  
  11. GetPrefs PS_FONTSIZE          /* Change the font's size for better visability */
  12.  
  13. size=result
  14.  
  15. SetPrefs PS_FONTSIZE 30
  16.  
  17.  
  18. EXPORT EPS "T:preview.ps" FORCE 
  19. /* saves the current formula as a PS-file */
  20.  
  21. SetPrefs PS_FONTSIZE size
  22.  
  23. ADDRESS COMMAND post||"post" post||"init.ps T:preview.ps screen"
  24. /* start Post 
  25. This will invoke a requester on the screen of Post. Just click on OK.
  26. Your formula will show up after some time. If not, move the window's 
  27. scroller gadget up so that the upper side of the page is shown. */
  28.  
  29. ADDRESS COMMAND "delete >NIL: T:preview.ps#?"
  30. /* delete file */
  31.