faxcover.ps
上传用户:weiyuanprp
上传日期:2020-05-20
资源大小:1169k
文件大小:7k
源码类别:

传真(Fax)编程

开发平台:

C/C++

  1. %!PS-Adobe-2.0 EPSF-2.0
  2. % Edit /orig-line1 - /orig-line10 to suit your needs.
  3. % text goes inside of the ()
  4. %%EndComments
  5. /orig-line1 () def
  6. /orig-line2 () def
  7. /orig-line3 () def
  8. /orig-line4 () def
  9. /orig-line5 () def
  10. /orig-line6 () def
  11. /orig-line7 () def
  12. /orig-line8 () def
  13. /orig-line9 () def
  14. /orig-line10 () def
  15. %%EndProlog
  16. %%Trailer
  17. %!PS-Adobe-2.0 EPSF-2.0
  18. %%BoundingBox: 21 3 588 788
  19. %%Title: 
  20. %%CreationDate: 11:05 AM January  4, 1993
  21. %%Pages: 1 +1
  22. %%EndComments
  23. % $Id: faxcover.ps,v 1.1.1.1 2005/11/11 21:32:02 faxguy Exp $
  24. %
  25. % HylaFAX Facsimile Software
  26. %
  27. % Copyright (c) 1990-1996 Sam Leffler
  28. % Copyright (c) 1991-1996 Silicon Graphics, Inc.
  29. % HylaFAX is a trademark of Silicon Graphics
  30. % Permission to use, copy, modify, distribute, and sell this software and 
  31. % its documentation for any purpose is hereby granted without fee, provided
  32. % that (i) the above copyright notices and this permission notice appear in
  33. % all copies of the software and related documentation, and (ii) the names of
  34. % Sam Leffler and Silicon Graphics may not be used in any advertising or
  35. % publicity relating to the software without the specific, prior written
  36. % permission of Sam Leffler and Silicon Graphics.
  37. % THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
  38. % EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
  39. % WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
  40. % IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
  41. % ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
  42. % OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  43. % WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
  44. % LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
  45. % OF THIS SOFTWARE.
  46. %
  47. 1 setlinejoin
  48. /nullstring () def
  49. /IS {
  50.     dup where {
  51. pop
  52. load dup nullstring ne {S} {pop} ifelse
  53.     } {pop} ifelse
  54. } bind def
  55. /AL {
  56.     dup where {
  57. pop
  58. load dup nullstring ne {S 0 -20 translate} {pop} ifelse
  59.     } {pop} ifelse
  60. } bind def
  61. /M  { moveto } bind def /S { show  } bind def
  62. /R { rmoveto } bind def /L { lineto } bind def
  63. /B { newpath 0 0 M 0 1 L 1 1 L 1 0 L closepath } bind def
  64. /CS { closepath stroke } bind def
  65. /showcaseisoencoding [
  66. /.notdef /.notdef /.notdef /.notdef
  67. /.notdef /.notdef /.notdef /.notdef
  68. /.notdef /.notdef /.notdef /.notdef
  69. /.notdef /.notdef /.notdef /.notdef
  70. /.notdef /.notdef /.notdef /.notdef
  71. /.notdef /.notdef /.notdef /.notdef
  72. /.notdef /.notdef /.notdef /.notdef
  73. /.notdef /.notdef /.notdef /.notdef
  74. /space /exclam /quotedbl /numbersign
  75. /dollar /percent /ampersand /quoteright
  76. /parenleft /parenright /asterisk /plus
  77. /comma /minus /period /slash
  78. /zero /one /two /three /four /five /six /seven
  79. /eight /nine /colon /semicolon
  80. /less /equal /greater /question
  81. /at /A /B /C /D /E /F /G
  82. /H /I /J /K /L /M /N /O
  83. /P /Q /R /S /T /U /V /W
  84. /X /Y /Z /bracketleft
  85. /backslash /bracketright /asciicircum /underscore
  86. /quoteleft /a /b /c /d /e /f /g
  87. /h /i /j /k /l /m /n /o
  88. /p /q /r /s /t /u /v /w
  89. /x /y /z /braceleft
  90. /bar /braceright /asciitilde /guilsinglright
  91. /fraction /florin /quotesingle /quotedblleft
  92. /guilsinglleft /fi /fl /endash
  93. /dagger /daggerdbl /bullet /quotesinglbase
  94. /quotedblbase /quotedblright /ellipsis /trademark
  95. /dotlessi /grave /acute /circumflex
  96. /tilde /macron /breve /dotaccent
  97. /dieresis /perthousand /ring /cedilla
  98. /Ydieresis /hungarumlaut /ogonek /caron
  99. /emdash /exclamdown /cent /sterling
  100. /currency /yen /brokenbar /section
  101. /dieresis /copyright /ordfeminine /guillemotleft
  102. /logicalnot /hyphen /registered /macron
  103. /degree /plusminus /twosuperior /threesuperior
  104. /acute /mu /paragraph /periodcentered
  105. /cedilla /onesuperior /ordmasculine /guillemotright
  106. /onequarter /onehalf /threequarters /questiondown
  107. /Agrave /Aacute /Acircumflex /Atilde
  108. /Adieresis /Aring /AE /Ccedilla
  109. /Egrave /Eacute /Ecircumflex /Edieresis
  110. /Igrave /Iacute /Icircumflex /Idieresis
  111. /Eth /Ntilde /Ograve /Oacute
  112. /Ocircumflex /Otilde /Odieresis /multiply
  113. /Oslash /Ugrave /Uacute /Ucircumflex
  114. /Udieresis /Yacute /Thorn /germandbls
  115. /agrave /aacute /acircumflex /atilde
  116. /adieresis /aring /ae /ccedilla
  117. /egrave /eacute /ecircumflex /edieresis
  118. /igrave /iacute /icircumflex /idieresis
  119. /eth /ntilde /ograve /oacute
  120. /ocircumflex /otilde /odieresis /divide
  121. /oslash /ugrave /uacute /ucircumflex
  122. /udieresis /yacute /thorn /ydieresis ] def
  123. /Helvetica-Bold findfont
  124. dup length dict begin
  125.   {1 index /FID ne {def} {pop pop} ifelse} forall
  126.   /Encoding showcaseisoencoding def
  127.   currentdict
  128. end
  129. /Helvetica-Bold-SHOWISO exch definefont pop
  130. /Helvetica findfont
  131. dup length dict begin
  132.   {1 index /FID ne {def} {pop pop} ifelse} forall
  133.   /Encoding showcaseisoencoding def
  134.   currentdict
  135. end
  136. /Helvetica-SHOWISO exch definefont pop
  137. /Courier findfont
  138. dup length dict begin
  139.   {1 index /FID ne {def} {pop pop} ifelse} forall
  140.   /Encoding showcaseisoencoding def
  141.   currentdict
  142. end
  143. /Courier-SHOWISO exch definefont pop
  144. /Times-Bold findfont
  145. dup length dict begin
  146.   {1 index /FID ne {def} {pop pop} ifelse} forall
  147.   /Encoding showcaseisoencoding def
  148.   currentdict
  149. end
  150. /Times-Bold-SHOWISO exch definefont pop
  151. %%EndProlog
  152. %%Page: label 1
  153. newpath clippath pathbbox
  154. /URy exch def
  155. /URx exch def
  156. /LLy exch def
  157. /LLx exch def
  158. /Width  URx LLx sub 0.005 sub def
  159. /Height URy LLy sub 0.005 sub def
  160. LLx LLy translate
  161. Width 612 div Height 792 div gt
  162.     { /Y_size Height def
  163.       /X_size 612 792 div Y_size mul def
  164.       /Scale Height 792 div def }
  165.     { /X_size Width def
  166.       /Y_size 792 612 div X_size mul def
  167.       /Scale Width 612 div def } ifelse
  168. Width  X_size sub 2 div
  169. Height Y_size sub 2 div translate
  170. Scale Scale scale
  171. gsave
  172. 0 0 0 setrgbcolor
  173. gsave
  174. newpath
  175. 11.9999 3.00039 M -8.00007 787 L 618 787 L 618 3.00039 L
  176. closepath clip newpath
  177. /Helvetica-SHOWISO findfont 14 scalefont setfont
  178. /drawtext {
  179. gsave
  180.  /Helvetica-Bold-SHOWISO findfont 18 scalefont setfont
  181.  10 765 translate
  182.  0 0 M /orig-line1 AL
  183.  0 0 M /orig-line2 AL
  184.  0 0 M /orig-line3 AL
  185.  0 0 M /orig-line4 AL
  186.  0 0 M /orig-line5 AL
  187.  0 0 M /orig-line6 AL
  188.  0 0 M /orig-line7 AL
  189.  0 0 M /orig-line8 AL
  190.  0 0 M /orig-line9 AL
  191.  0 0 M /orig-line10 AL
  192. grestore
  193. } def
  194. drawtext
  195. 0 0 0 setrgbcolor
  196. /Helvetica-Bold-SHOWISO findfont 24 scalefont setfont
  197. %164.063 644 M 168.356 644 M (Applications Consulting) S
  198. %gsave 164.063 642 M 442 642 L stroke grestore
  199. 210.875 586 M (Fax Cover Sheet) S
  200. 176.222 499 M (To:) S
  201. 226.744 499 M (________________________) S 226.744 499 M /to IS
  202. 58.3641 457 M (Fax Number:) S
  203. %108.837 457 M (Number:) S
  204. 225.744 457 M (________________________) S 225.744 457 M /to-fax-number IS
  205. /Times-Bold-SHOWISO findfont 10 scalefont setfont
  206. /Helvetica-Bold-SHOWISO findfont 24 scalefont setfont
  207. 95.5068 415 M (Company:) S
  208. 225.744 415 M (________________________) S 225.744 415 M /to-company IS
  209. 146.199 373 M (From:) S
  210. 227.744 373 M (________________________) S 227.744 373 M /from IS
  211. 176.823 331 M (Re:) S
  212. 228.744 331 M (________________________) S 228.744 331 M /regarding IS
  213. 59.3601 289 M (Today's Date:) S
  214. 231.744 289 M (________________________) S 231.744 289 M /todays-date IS
  215. 31 247 M (# of pages to follow this sheet:) S
  216. 403.216 247 M (___________) S 403.216 247 M /page-count IS
  217. /Helvetica-Bold-SHOWISO findfont 14 scalefont setfont
  218. 31 189 M (Comments:) S
  219. /Helvetica-Bold-SHOWISO findfont 24 scalefont setfont
  220. /rule (_______________________________) def
  221. /y 189 def /x 141.336 def
  222. y -29 73 { x exch M rule S } for
  223. rule stringwidth pop 29 x y comments BreakIntoLines
  224. grestore
  225. grestore
  226. showpage