home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / d / dots151.zip / GRAPHSRC.ZIP / GPS.H < prev    next >
Text File  |  1989-11-29  |  2KB  |  76 lines
  1. /*
  2.     gps.h - prelude text for GRAPH output to PostScript printer
  3. */
  4.     
  5. char *prelude1[]=
  6. {
  7. "%!PS-Adobe-2.0\n",
  8. "%%Creator: James R. Van Zandt\n",
  9. "%%Title:   GRAPH PostScript Output\n",
  10. "%%BoundingBox: 0 0 612 792\n",
  11. "%%Pages: 1\n",
  12. "%%EndComments\n",
  13. "%\n",
  14. "% GRAPH PostScript driver version ", VERSION, "\n",
  15. "%\n",
  16. "% This file is a printout from GRAPH intended for a PostScript printer. \n",
  17. "% The PostScript code is largely due to Thomas B. Passin.  \n",
  18. "% The adaptation for GRAPH was written by James R. Van Zandt.  \n",
  19. "% Thanks are also due to David Paul Feldman.  His program GLOPS,\n",
  20. "% which converts an HPGL file into PostScript, inspired the\n",
  21. "% original PostScript version of GRAPH.\n",
  22. "%\n",
  23. "% This file includes structure comments required by Tom Passin's POSTOGRF, \n",
  24. "% which can be used to add labels.\n",
  25. "%\n",
  26. "% ------------------------ Prologue  -------------------------------\n",
  27. "%   DVIALW by Nelson H. F. Beebe (Beebe@Science.Utah.Edu)\n",
  28. "%   is a program to convert a TeX DVI file into PostScript for the \n",
  29. "%   Apple LaserWriter.  This structure comment tells DVIALW which \n",
  30. "%   part of a GRAPHPS plot to incorporate into a TeX document...\n",
  31. "%begin(plot)\n",
  32. "\n",
  33. "%Abbreviations\n",
  34. "/cpt  /currentpoint   load   def\n",
  35. "/l    /lineto         load   def\n",
  36. "/m    /moveto         load   def\n",
  37. "/sd   /setdash        load   def\n",
  38. "/sf   /setfont        load   def\n",
  39. "/sg   /setgray        load   def\n",
  40. "/st   /stroke         load   def\n",
  41. "\n",
  42. "/inch { 72 mul } def\n",
  43. "/linethick 10 def     %default line thickness\n",
  44. "\n",
  45. 0
  46. };
  47.  
  48. /*
  49.     setorigin definition goes here
  50. */
  51.  
  52. char *prelude2[] =
  53. {
  54. "\n",
  55. "%FontDefinitions\n",
  56. "/font0 /Helvetica-Bold findfont 181 scalefont def\n",
  57. "%EndFonts\n",
  58. "%%EndProlog\n",
  59. "%%BeginSetup\n",
  60. "gsave\n",
  61. "statusdict /jobname (GRAPH) put\n",
  62. "statusdict /waittimeout 30 put\n",
  63. "newpath\n",
  64. "setorigin\n",
  65. "0.072 0.072 scale                % set scale to 1/1000 inch\n",
  66. "linethick setlinewidth\n",
  67. "%%EndSetup\n",
  68. "%StartLabels\n",
  69. "%EndLabels\n",
  70. "\n",
  71. "%StartGraph\n",
  72. "[] 0 sd \n",
  73. "0 sg \n",
  74. 0
  75. };
  76.