home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1445 / zikzak.card < prev   
Encoding:
Text File  |  1990-12-28  |  3.7 KB  |  164 lines
  1. % @(#) $Header: zikzak.card,v 1.1 90/06/11 02:56:27 jef Exp $
  2. %
  3. % zikzak.card - Zik Zak employee ID
  4. %
  5. % Copyright (C) 1990 by Jef Poskanzer and Ilsa Van Hook.  All rights reserved.
  6.  
  7. /zikzak-boxheight cardheight cardmargin 2 mul sub photoheight sub 2 div def
  8. /zikzak-numwidth 0.9 in def
  9. /zikzak-namewidth cardwidth cardmargin 3 mul sub zikzak-numwidth sub def
  10.  
  11. /zikzak-logowidth cardwidth cardmargin 2 mul sub photowidth sub def
  12. /zikzak-logoheight photoheight def
  13. /zikzak-kfsize 0.15 in def
  14.  
  15. /zikzak-logo {
  16.     gsave
  17.     cardwidth cardmargin sub zikzak-logowidth sub
  18.       cardheight cardmargin sub zikzak-logoheight sub  translate
  19.  
  20.     zikzak-logowidth cardmargin 2 div moveto
  21.     /Helvetica-Bold findfont zikzak-kfsize scalefont setfont
  22.     (KNOW FUTURE) showright
  23.  
  24.     newpath  0 0 moveto
  25.     zikzak-logowidth 1.1 mul 0 rlineto
  26.     0 zikzak-logoheight rlineto
  27.     zikzak-logowidth 1.1 mul neg 0 rlineto
  28.     closepath clip newpath
  29.  
  30.     0.35 in 0 translate
  31.     12 dup scale
  32.     15 rotate
  33.  
  34.     /leftedge -5 def
  35.     /rightedge 15 def
  36.  
  37.     % the line leading into zik
  38.     leftedge 5.7 moveto  
  39.     0.9 5.7 lineto  .4 4.8 lineto  leftedge 4.8 lineto
  40.     closepath fill
  41.     % the line away from zik:
  42.     rightedge 3.5 moveto  
  43.     7.4 3.5 lineto  
  44.     7.4 2.6 lineto  
  45.     rightedge 2.6 lineto
  46.     closepath fill
  47.     % the line into zak:
  48.     leftedge 2.5 moveto  
  49.     2.4 2.4 lineto
  50.     1.9 1.5 lineto  
  51.     leftedge 1.5 lineto
  52.     closepath fill
  53.     % the line away from zak:
  54.     rightedge .2 moveto
  55.     9.5 .2 lineto
  56.     9.5 -.7 lineto
  57.     rightedge -.7 lineto
  58.     closepath fill
  59.  
  60.     % the dot over zik's i:
  61.     3.8 5.3 .5 0 360 arc fill
  62.     % zik, proper, starting from upper left:
  63.     1.1 5.7 moveto
  64.     3.1 5.7 lineto
  65.     2.234 4.2 lineto
  66.     3.3 4.2 lineto        % i-bump
  67.     3.3 4.65 lineto
  68.     4.2 4.65 lineto
  69.     4.2 4.2 lineto
  70.     4.8 4.2 lineto        % k
  71.     4.8 5.7 lineto
  72.     5.7 5.7 lineto
  73.     5.7 4.571 lineto    %downstroke
  74. %    6.35 4.946 lineto    % 1st diagonal
  75.     6.55 5.062 lineto
  76. %    6.8 4.167 lineto
  77.     7.0 4.282 lineto
  78.     6.511 4.0 lineto    % 2nd diagonal
  79.     6.8 3.5 lineto
  80.     7.2 3.5 lineto
  81.     7.2 2.6 lineto
  82.     6.3 2.6 lineto
  83.     5.7 3.639 lineto
  84.     5.7 3.3 lineto
  85.     0.7 3.3 lineto
  86.     1.566 4.8 lineto
  87.     .6 4.8 lineto
  88.     closepath
  89.     fill
  90.  
  91.     % the triangle over zak's A:
  92.     5.091 1.75 moveto
  93.     5.466 2.4 lineto
  94.     5.841 1.75 lineto
  95.     closepath
  96.     fill
  97.     % the triangle inside zak's A:
  98.     5.350 .9 moveto
  99.     5.466 1.1 lineto
  100.     5.581 .9 lineto
  101.     closepath
  102.     % zak, proper:
  103.     2.6 2.4 moveto
  104.     4.6 2.4 lineto
  105.     3.734 .9 lineto
  106.     4.6 .9 lineto
  107.     4.975 1.55 lineto        % 1st diagonal of A
  108.     5.957 1.55 lineto
  109.     6.332 .9 lineto            % A downstroke
  110.     6.9 .9 lineto
  111.     6.9 2.4 lineto            % K upstroke
  112.     7.8 2.4 lineto
  113.     7.8 1.271 lineto    %downstroke
  114. %    8.45 1.646 lineto    % 1st diagonal
  115.     8.65 1.762 lineto
  116. %    8.9 0.867 lineto
  117.     9.1 0.982 lineto
  118.     8.611 0.7 lineto    % 2nd diagonal
  119.     8.9 0.2 lineto
  120.     9.3 0.2 lineto
  121.     9.3 -.7 lineto
  122.     8.4 -.7 lineto
  123.     7.8 0.339 lineto
  124.     7.8 0 lineto        %end of k
  125.     2.2 0 lineto
  126.     3.066 1.5 lineto
  127.     2.1 1.5 lineto
  128.     closepath
  129.     eofill
  130.     grestore
  131. } def
  132.  
  133. /zikzak-info {
  134.     cardmargin  cardmargin zikzak-boxheight add  moveto
  135.     zikzak-namewidth zikzak-boxheight (NAME)
  136.     FirstName: ( ) LastName: strcat strcat diagbox
  137.     cardmargin  cardmargin  moveto
  138.     zikzak-namewidth zikzak-boxheight (SIGNATURE) ()  diagbox
  139.     cardwidth cardmargin sub zikzak-numwidth sub
  140.       cardmargin zikzak-boxheight add  moveto
  141.     zikzak-numwidth zikzak-boxheight (EMPLOYEE NO.)
  142.       6 randdigs  diagbox
  143.     cardwidth cardmargin sub zikzak-numwidth sub cardmargin  moveto
  144.     zikzak-numwidth zikzak-boxheight (CONSUMER CODE)
  145.     randdig
  146.     (ABCDEFGHIJKLMNPQRSTUVWXYZ) dup randchar exch randchar    % no "O"
  147.     2 randdigs
  148.     strcat strcat strcat diagbox
  149. } def
  150.  
  151. /zikzak-card {
  152.     cardstart
  153.     black setgray
  154.     0 setlinewidth
  155.     cardticks
  156.     cardmargin  cardheight cardmargin sub photoheight sub  moveto
  157.     photowidth photoheight photo
  158.     zikzak-logo
  159.     zikzak-info
  160.     cardend
  161. } def
  162.  
  163. zikzak-card
  164.