home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1445 / net23.card < prev    next >
Encoding:
Text File  |  1990-12-28  |  3.3 KB  |  96 lines
  1. % @(#) $Header: net23.card,v 1.1 90/06/11 02:56:09 jef Exp $
  2. %
  3. % net23.card - Network 23 ID
  4. %
  5. % Copyright (C) 1990 by Jef Poskanzer.  All rights reserved.
  6.  
  7. /net23-netxxiiisize 0.15 in def
  8. /net23-logowidth photowidth def
  9. /net23-logoheight photoheight def
  10. /net23-logolinewidth 0.05 in def
  11. /net23-logolinemargin net23-logolinewidth 2 div def
  12. /net23-boxheight cardheight cardmargin 2 mul sub photoheight sub 2 div def
  13. /net23-numwidth net23-boxheight diagoffsetfactor mul net23-logowidth add def
  14. /net23-namewidth cardwidth cardmargin 3 mul sub net23-numwidth sub def
  15.  
  16. /net23-logo {
  17.     gsave
  18.     net23-logolinewidth setlinewidth
  19.     cardwidth cardmargin sub net23-logowidth sub
  20.       cardheight cardmargin sub net23-logolinewidth 2 div sub  translate
  21.     0 0 moveto  net23-logowidth 0 rlineto  stroke
  22.     0  net23-logolinewidth 2 div net23-logolinemargin add net23-netxxiiisize add neg  translate
  23.     /Helvetica-Bold findfont 0.25 in scalefont setfont
  24.     0 0 moveto  net23-logowidth net23-netxxiiisize (NETWORK) showboxed
  25.     0  net23-logolinemargin net23-logolinewidth 2 div add neg  translate
  26.     0 0 moveto  net23-logowidth 0 rlineto  stroke
  27.     /Times-Bold findfont 0.25 in scalefont setfont
  28.     /23size
  29.         net23-logoheight net23-logolinewidth 4 mul sub net23-logolinemargin 6 mul sub
  30.         net23-netxxiiisize 2 mul sub
  31.     def
  32.     0  net23-logolinewidth 2 div net23-logolinemargin add 23size add neg  translate
  33.     0 0 moveto  net23-logowidth 23size (23) showboxed
  34.     0  net23-logolinemargin net23-logolinewidth 2 div add neg  translate
  35.     0 0 moveto  net23-logowidth 0 rlineto  stroke
  36.     0  net23-logolinewidth 2 div net23-logolinemargin add net23-netxxiiisize add neg  translate
  37.     0 0 moveto  net23-logowidth net23-netxxiiisize (XXIII) showboxed
  38.     0  net23-logolinemargin net23-logolinewidth 2 div add neg  translate
  39.     0 0 moveto  net23-logowidth 0 rlineto  stroke
  40.     grestore
  41. } def
  42.  
  43. /net23-info {
  44.     cardmargin  cardmargin net23-boxheight add  moveto
  45.     net23-namewidth net23-boxheight (NAME)
  46.     FirstName: ( ) LastName: strcat strcat diagbox
  47.     cardmargin  cardmargin  moveto
  48.     net23-namewidth net23-boxheight (SIGNATURE) ()  diagbox
  49.     cardwidth cardmargin sub net23-numwidth sub
  50.       cardmargin net23-boxheight add  moveto
  51.     net23-numwidth net23-boxheight (EMPLOYEE NO.)
  52.       4 randdigs  diagbox
  53.     cardwidth cardmargin sub net23-numwidth sub cardmargin  moveto
  54.     net23-numwidth net23-boxheight (CREDIT RATING)
  55.     (ABC) randchar (123) randchar strcat diagbox
  56. } def
  57.  
  58. /net23-asseenontv {
  59.     gsave
  60.     newpath
  61.     0.5 0 moveto
  62.     0.05 0  0 0.05  0 0.5  curveto
  63.     0 0.95  0.05 1  0.5 1  curveto
  64.     0.95 1  1 0.95  1 0.5  curveto
  65.     1 0.05  0.95 0  0.5 0  curveto
  66.     black setgray fill
  67.     white setgray
  68.     /Helvetica-Bold findfont 0.25 in scalefont setfont
  69.     0.1 0.7 moveto  0.8 0.2 (AS SEEN ON) showboxed
  70.     0.1 0.1 moveto  0.8 0.5 (TV) showboxed
  71.     grestore
  72. } def
  73.  
  74. /net23-card {
  75.     cardstart
  76.     black setgray
  77.     0 setlinewidth
  78.     cardticks
  79.     cardmargin  cardheight cardmargin sub photoheight sub  moveto
  80.     photowidth photoheight photo
  81.     net23-logo
  82.     gsave
  83.     cardmargin net23-logowidth add cardmargin 2 mul add
  84.       cardheight cardmargin sub net23-logoheight sub cardmargin 3 mul add
  85.       translate
  86.     cardwidth cardmargin 2 mul sub net23-logowidth sub cardmargin 4 mul sub photowidth sub
  87.       net23-logoheight cardmargin 6 mul sub
  88.       scale
  89.     net23-asseenontv
  90.     grestore
  91.     net23-info
  92.     cardend
  93. } def
  94.  
  95. net23-card
  96.