home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1445 / una.card < prev    next >
Encoding:
Text File  |  1990-12-28  |  1.6 KB  |  64 lines
  1. % @(#) $Header: una.card,v 1.1 90/06/11 02:56:24 jef Exp $
  2. %
  3. % una.card - USENET News Agency ID
  4. %
  5. % Copyright (C) 1990 by Jef Poskanzer.  All rights reserved.
  6.  
  7. /una-unasize 0.275 in def
  8. /una-infosize 0.13 in def
  9. /una-pressheight 0.6 in def
  10. /una-infowidth cardwidth cardmargin 3 mul sub una-pressheight sub def
  11.  
  12. /una-logo {
  13.     gsave
  14.     /Helvetica findfont una-unasize scalefont setfont
  15.     cardmargin  cardheight cardmargin sub  translate
  16.     1 1.3 scale
  17.     0  una-unasize 0.72 mul neg  moveto
  18.     (USENET) show
  19.     0  una-unasize 1.72 mul neg  moveto
  20.     (NEWS) show
  21.     0  una-unasize 2.72 mul neg  moveto
  22.     (AGENCY) show
  23.     grestore
  24.     gsave
  25.     cardwidth cardmargin sub  cardmargin  translate
  26.     90 rotate
  27.     0 0 moveto
  28.     /Times-Bold findfont 0.50 in scalefont setfont
  29.     cardheight cardmargin 2 mul sub una-pressheight (PRESS) showboxed
  30.     grestore
  31. } def
  32.  
  33. /una-text {
  34.     gsave
  35.     /Helvetica findfont una-infosize scalefont setfont
  36.     cardmargin  cardmargin  translate
  37.     0  una-infosize 3 mul  moveto
  38.     una-infowidth  FirstName: ( ) LastName: strcat strcat  showlimited
  39.     0  una-infosize 2 mul  moveto
  40.     una-infowidth  Address1:
  41.     Address2: length 0 gt { (, ) Address2: strcat strcat } if
  42.     showlimited
  43.     0  una-infosize  moveto
  44.     una-infowidth  CityStateZip:  showlimited
  45.     0  0  moveto
  46.     una-infowidth  E-mail:  showlimited
  47.     grestore
  48. } def
  49.  
  50. /una-card {
  51.     cardstart
  52.     black setgray
  53.     0 setlinewidth
  54.     cardticks
  55.     cardwidth cardmargin 4 mul sub una-pressheight sub photowidth sub
  56.       cardheight cardmargin sub photoheight sub  moveto
  57.     photowidth photoheight photo
  58.     una-logo
  59.     una-text
  60.     cardend
  61. } def
  62.  
  63. una-card
  64.