%!PS-Adobe-2.0 EPSF-2.0 %%BoundingBox: 21 3 588 788 %%Title: %%CreationDate: 11:05 AM January 4, 1993 %%Pages: 1 +1 %%EndComments % $Id: cover.templ,v 1.1.1.1 2005/11/11 21:32:03 faxguy Exp $ % % HylaFAX Facsimile Software % % Copyright (c) 1990-1996 Sam Leffler % Copyright (c) 1991-1996 Silicon Graphics, Inc. % HylaFAX is a trademark of Silicon Graphics, Inc. % % Permission to use, copy, modify, distribute, and sell this software and % its documentation for any purpose is hereby granted without fee, provided % that (i) the above copyright notices and this permission notice appear in % all copies of the software and related documentation, and (ii) the names of % Sam Leffler and Silicon Graphics may not be used in any advertising or % publicity relating to the software without the specific, prior written % permission of Sam Leffler and Silicon Graphics. % % THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, % EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY % WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. % % IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR % ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, % OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, % WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF % LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE % OF THIS SOFTWARE. % 1 setlinejoin /nullstring () def /IS { dup where { pop load dup nullstring ne {S} {pop} ifelse } {pop} ifelse } bind def /M { moveto } bind def /S { show } bind def /R { rmoveto } bind def /L { lineto } bind def /B { newpath 0 0 M 0 1 L 1 1 L 1 0 L closepath } bind def /CS { closepath stroke } bind def /showcaseisoencoding [ /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /guilsinglright /fraction /florin /quotesingle /quotedblleft /guilsinglleft /fi /fl /endash /dagger /daggerdbl /bullet /quotesinglbase /quotedblbase /quotedblright /ellipsis /trademark /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /perthousand /ring /cedilla /Ydieresis /hungarumlaut /ogonek /caron /emdash /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis ] def /Helvetica-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding showcaseisoencoding def currentdict end /Helvetica-Bold-SHOWISO exch definefont pop /Helvetica findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding showcaseisoencoding def currentdict end /Helvetica-SHOWISO exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding showcaseisoencoding def currentdict end /Courier-SHOWISO exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding showcaseisoencoding def currentdict end /Times-Bold-SHOWISO exch definefont pop %%EndProlog %%Page: label 1 newpath clippath pathbbox /URy exch def /URx exch def /LLy exch def /LLx exch def /Width URx LLx sub 0.005 sub def /Height URy LLy sub 0.005 sub def LLx LLy translate Width 612 div Height 792 div gt { /Y_size Height def /X_size 612 792 div Y_size mul def /Scale Height 792 div def } { /X_size Width def /Y_size 792 612 div X_size mul def /Scale Width 612 div def } ifelse Width X_size sub 2 div Height Y_size sub 2 div translate Scale Scale scale gsave 0 0 0 setrgbcolor gsave newpath 11.9999 3.00039 M -8.00007 787 L 618 787 L 618 3.00039 L closepath clip newpath /Helvetica-SHOWISO findfont 14 scalefont setfont % tom-baby's logo stuff: /inch {72 mul} def /width {.375 inch} def /r {.3 inch} def /d {r 30 cos mul neg} def /R {2 inch} def 1 setlinejoin /pnta { r 30 cos mul r 30 sin mul } def /pntb { R 90 cos mul d 90 sin mul sub R 90 sin mul d 90 cos mul add } def /pntc { R 30 cos mul d 30 sin mul add R 30 sin mul d 30 cos mul sub } def /pntd { r 90 cos mul r 90 sin mul } def /pnte { R 150 cos mul d 150 sin mul sub R 150 sin mul d 150 cos mul add } def /pntf { R 90 cos mul d 90 sin mul add R 90 sin mul d 90 cos mul sub } def /pntg { r 150 cos mul r 150 sin mul } def /pnth { R 210 cos mul d 210 sin mul sub R 210 sin mul d 210 cos mul add } def /pnti { R 150 cos mul d 150 sin mul add R 150 sin mul d 150 cos mul sub } def /pntj { r 210 cos mul r 210 sin mul } def /pntk { R 270 cos mul d 270 sin mul sub R 270 sin mul d 270 cos mul add } def /pntl { R 210 cos mul d 210 sin mul add R 210 sin mul d 210 cos mul sub } def /pntm { r 270 cos mul r 270 sin mul } def /pntn { R 330 cos mul d 330 sin mul sub R 330 sin mul d 330 cos mul add } def /pnto { R 270 cos mul d 270 sin mul add R 270 sin mul d 270 cos mul sub } def /pntp { r 330 cos mul r 330 sin mul } def /pntq { R 30 cos mul d 30 sin mul sub R 30 sin mul d 30 cos mul add } def /pntr { R 330 cos mul d 330 sin mul add R 330 sin mul d 330 cos mul sub } def /logo { newpath pnta moveto pntb lineto pntc lineto pntd lineto pnte lineto pntf lineto pntg lineto pnth lineto pnti lineto pntj lineto pntk lineto pntl lineto pntm lineto pntn lineto pnto lineto pntp lineto pntq lineto pntr lineto closepath } def /drawlogo { gsave .8 inch 10.2 inch translate .2 .2 scale width setlinewidth logo stroke width 1.13 mul setlinewidth 1 setgray newpath pntc moveto pntd lineto pnte lineto stroke newpath pnti moveto pntj lineto pntk lineto stroke newpath pnto moveto pntp lineto pntq lineto stroke width setlinewidth 0 setgray newpath pntb moveto pntc lineto pntd lineto pnte lineto pntf lineto stroke newpath pnth moveto pnti lineto pntj lineto pntk lineto pntl lineto stroke newpath pntn moveto pnto lineto pntp lineto pntq lineto pntr lineto stroke grestore } def /drawtext { gsave 1.4 inch 10.2 inch moveto /Helvetica-BoldOblique findfont 23 scalefont setfont (SiliconGraphics) show 1.42 inch 9.95 inch moveto /Helvetica-Bold findfont 14 scalefont setfont (Computer Systems) show grestore } def /BreakIntoLines { 30 dict begin /proc exch def /linewidth exch def /text exch def /wordbreak ( ) def /breakwidth wordbreak stringwidth pop def /breakLines { /textstring exch def /curwidth 0 def /lastwordbreak 0 def /startchar 0 def /restoftext textstring def { restoftext wordbreak search % post match pre bool exch /nextword exch def % post match bool /wordwidth nextword stringwidth pop def % post match bool { pop % post /restoftext exch def % - curwidth wordwidth add linewidth gt { textstring startchar lastwordbreak startchar sub getinterval proc /startchar lastwordbreak def /curwidth wordwidth breakwidth add def } { /curwidth curwidth wordwidth add breakwidth add def } ifelse /lastwordbreak lastwordbreak nextword length add 1 add def } { exit } ifelse } loop curwidth wordwidth add linewidth gt { textstring startchar lastwordbreak startchar sub getinterval proc /startchar lastwordbreak def } if /lastchar textstring length def textstring startchar lastchar startchar sub getinterval proc } def { text (\n) search % post match pre bool { breakLines % post match pop % post /text exch def % - } { exit } ifelse % string } loop breakLines end } def drawlogo drawtext 0 0 0 setrgbcolor /Helvetica-Bold-SHOWISO findfont 24 scalefont setfont %164.063 644 M 168.356 644 M (Applications Consulting) S %gsave 164.063 642 M 442 642 L stroke grestore 210.875 586 M (Fax Cover Sheet) S 176.222 499 M (To:) S 226.744 499 M (________________________) S 226.744 499 M /to IS 58.3641 457 M (Fax Number:) S %108.837 457 M (Number:) S 225.744 457 M (________________________) S 225.744 457 M /to-fax-number IS /Times-Bold-SHOWISO findfont 10 scalefont setfont /Helvetica-Bold-SHOWISO findfont 24 scalefont setfont 95.5068 415 M (Company:) S 225.744 415 M (________________________) S 225.744 415 M /to-company IS 146.199 373 M (From:) S 227.744 373 M (________________________) S 227.744 373 M /from IS 176.823 331 M (Re:) S 228.744 331 M (________________________) S 228.744 331 M /regarding IS 59.3601 289 M (Today's Date:) S 231.744 289 M (________________________) S 231.744 289 M /todays-date IS 31 247 M (# of pages to follow this sheet:) S 403.216 247 M (___________) S 403.216 247 M /page-count IS /Helvetica-Bold-SHOWISO findfont 14 scalefont setfont 31 189 M (Comments:) S /Helvetica-Bold-SHOWISO findfont 24 scalefont setfont /rule (_______________________________) def /y 189 def /x 141.336 def y -29 73 { x exch M rule S } for comments rule stringwidth pop { x y M S /y y 29 sub def } BreakIntoLines grestore grestore showpage