home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / ps / keyboard < prev    next >
Encoding:
Text File  |  1991-04-25  |  4.8 KB  |  144 lines
  1. %%!PS-Adobe-1.0
  2. %
  3. % template.ps
  4. % Print an IBM PC/XT/AT Enhanced Keyboard template.
  5. % 
  6. % This code will print 4 keyboard templates per page
  7. % for keyboards that have 12 function keys in groups of 
  8. % four along the top of the keyboard.
  9. %
  10. % To use: Define the TITLE and fill in each of the 4
  11. % arrays fkey (Function Key Only), skey (Shift Function Key),
  12. % akey (Alt Function Key), and ckey (Ctrl Function Key).
  13. %
  14. % NOTE: be sure to leave all 13 elements of each array defined.
  15. %
  16. % This code may be used freely and without compensation to the
  17. % author for personal and private use. 
  18. % This code may not be included in any program for which a fee is 
  19. % charged without the express written permission of the author.
  20. %
  21. %                       (c) 1991 Data Services
  22. %                          P.O. Box 901906
  23. %                  Palmdale, California  93590-1906
  24. %                         leggedav@cerf.net
  25. %
  26. %-----------------------------------------------------
  27. % Define the variables
  28. %-----------------------------------------------------
  29. /LM .25 def        % Right Margin
  30. /BM .25  def        % Bottom Margin
  31. /b1strt  .6375 def    % Box #1 start
  32. /b2strt 4.0125 def    % Box #2 start
  33. /b3strt 7.3875 def    % Box #3 start
  34. /txtstartln .31736 def  % Starting position of text bottom line
  35. /keysperbox 4 def    % # of keys to each box
  36. /boxlen     3 def         % Lenhgth of each box
  37. /boxdist  b2strt boxlen sub b1strt sub def % Distance from end of box to next
  38. /TITLE (Title:) def
  39. %------------------------------------------------------
  40. % Function Key Only Text F1 -> F12 all must be defined
  41. %------------------------------------------------------
  42. /fkey [(     F1     ) (     F2     ) (     F3     ) (     F4     )
  43.        (     F5     ) (     F6     ) (     F7     ) (     F8     ) 
  44.        (     F9     ) (     F10    ) (     F11    ) (     F12    )
  45.        (Key)] def
  46. %------------------------------------------------------
  47. % Shift Function Key
  48. %------------------------------------------------------
  49. /skey [(     F1     ) (     F2     ) (     F3     ) (     F4     )
  50.        (     F5     ) (     F6     ) (     F7     ) (     F8     ) 
  51.        (     F9     ) (     F10    ) (     F11    ) (     F12    )
  52.        (Shift)] def
  53. %------------------------------------------------------
  54. % Alt Function Key
  55. %------------------------------------------------------
  56. /akey [(     F1     ) (     F2     ) (     F3     ) (     F4     )
  57.        (     F5     ) (     F6     ) (     F7     ) (     F8     ) 
  58.        (     F9     ) (     F10    ) (     F11    ) (     F12    )
  59.        (Alt)] def
  60. %------------------------------------------------------
  61. % Ctrl Function Key
  62. %------------------------------------------------------
  63. /ckey [(     F1     ) (     F2     ) (     F3     ) (     F4     )
  64.        (     F5     ) (     F6     ) (     F7     ) (     F8     ) 
  65.        (     F9     ) (     F10    ) (     F11    ) (     F12    )
  66.        (Ctrl)] def
  67. %------------------------------------------------------
  68. % Define the Procedures
  69. % -----------------------------------------------------
  70. /I {72 mul} def
  71. /B {newpath
  72.      moveto 
  73.      0  .75 I  rlineto
  74.      boxlen I  0    rlineto
  75.      0 -.75  I rlineto
  76.       closepath
  77.     stroke } def
  78. /S {newpath
  79.     moveto
  80.     10.5 I 0 rlineto
  81.     11 setlinewidth
  82.     .995 setgray
  83.     stroke } def    
  84. /TXTPRT {ptr get dup
  85.          curx I cury I moveto show
  86.          /curx curx .75 add def            % Incrament x pointer
  87.          /ptr ptr 1 add def             % Add 1 to array pointer
  88.          ptr keysperbox mod 0 eq                % Check if at the end of a box
  89.          {/curx curx boxdist add def} if        % Skip to next box
  90.          ptr 12 eq                 % Look for key label 
  91.          {/curx curx boxdist sub def} if } def  % do not skip for last item
  92. %--------------------------------------------------------------
  93. % Draw the outside box and outlines for the keys
  94. %--------------------------------------------------------------
  95. /BOX {
  96.   newpath
  97.   LM I BM I moveto
  98.   0 1.688 I rlineto
  99.   10.5 I 0 rlineto
  100.   0 -1.688 I rlineto closepath
  101.   1 setlinewidth
  102.   stroke 
  103.   b1strt I .9375 I B
  104.   b2strt I .9375 I B 
  105.   b3strt I .9375 I B
  106.   LM I .50625 I S
  107.   LM I .81875 I S
  108.   0 setgray } def
  109. %-------------------------------------------------------------
  110. %Print the text
  111. %-------------------------------------------------------------
  112. /TEXT {
  113.   /Courier findfont 7 scalefont setfont
  114.   /curx b1strt def
  115.   /cury txtstartln def
  116.   /ptr  0 def
  117.   13 {ckey TXTPRT} repeat
  118.   /curx b1strt def
  119.   /cury txtstartln .15 add def
  120.   /ptr  0 def
  121.   13 {akey TXTPRT} repeat
  122.   /curx b1strt def
  123.   /cury txtstartln .30 add def
  124.   /ptr  0 def
  125.   13 {skey TXTPRT} repeat
  126.   /curx b1strt def
  127.   /cury txtstartln .45 add def
  128.   /ptr  0 def
  129.   13 {fkey TXTPRT} repeat
  130.   b1strt I 1.8 I moveto
  131.   TITLE show
  132. } def
  133. %--------------------------------------------------------------
  134. % Set-up the page
  135. %--------------------------------------------------------------
  136. 2.5 I 0 translate
  137. 90 rotate
  138. 4 {
  139.   BOX
  140.   TEXT
  141.   0 -2 I translate } repeat
  142. showpage
  143.  
  144.