home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2191 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  6.7 KB
  1. From: les@chinet.chi.il.us (Leslie Mikesell)
  2. Newsgroups: comp.lang.perl,alt.sources
  3. Subject: nametag.pl
  4. Message-ID: <1990Dec04.185336.4946@chinet.chi.il.us>
  5. Date: 4 Dec 90 18:53:36 GMT
  6.  
  7.  
  8. I haven't been able to find a generic mail-merge routine that forces
  9. the merged text to fit into certain spaces, so I wrote this...
  10.  
  11. This program generates postscript code for nametags with the text
  12. centered and scaled to fit into the appropriate spots (for our
  13. nametag stock).  I normally run it as part of a spooler printer
  14. interface program, but it can be run as a stand-alone operation.
  15.  
  16. Bugs:
  17. It should probably read a parameter file to get the positioning info,
  18. but with an interpreted language it is just as easy to edit the
  19. script - at least for the person who wrote it.
  20. The whole operation could doubtlessly be done in postscript
  21. by someone with a stack-oriented brain.  In retrospect it was a bad
  22. idea to try to hit a pre-printed bar exactly (although the color
  23. does give a nice effect).  I've had to adjust the $YSLIDE variable
  24. as much as 12 points to compensate for different printers.
  25. ---
  26. Les Mikesell
  27.   les@chinet.chi.il.us   or  les@fb.com
  28.  
  29. # ---- cut here --------
  30. # nametag.pl
  31. # Perl program to generate postscript program....
  32. # execute with:
  33. # perl nametag.pl file...
  34. #    or pass the input on stdin - output is to stdout
  35. # This is set up for pre-printed nametag stock 2 across, 3 down
  36. # with a logo at the top and a red bar near the bottom on each, 
  37. # but it should work to change the constants for other layouts.
  38. #
  39. # print nametags from files in format:
  40. # line1|line2|line3|line4|line5
  41. # ...  (each line contains the data for one nametag, up to 5 lines
  42. #       using "|" as the delimiter for lines on the tag)
  43. #  
  44. # if line2 is empty, line3 moves up
  45. # line4 prints in 14 pt italic just above red bar
  46. # line5 lands on red bar (red bar refers to a position near the bottom)
  47. #
  48. #  blank lines are ignored
  49. #  a form-feed in the file ejects the current page (for easier
  50. #    grouping for distribution)
  51. #  otherwise pages are filled (6/page) until the end of file is reached
  52. #
  53. #  Procedure tline:
  54. #   Fonts are selected by first attempting ch1 (choice 1 below) in its
  55. #   specified size.  If it is too wide, an attempt is made using ch2.
  56. #   If it still doesn't fit, ch2 is rescaled to make it fit.
  57. #   Iline does the same with fonts ch3 and ch4 for italics.
  58. # starting point size is imbedded in the perl code:
  59. # 24pt for lines 1,2,3, 14 pt for line 4, 20 pt for line 5
  60. # 
  61.  
  62. # ---- positioning info -----
  63. # column layout
  64. $COLS=2 ;
  65. $ROWS=3 ;
  66. # -- these numbers are postscript units --
  67. # -- adjust this number for vertical allignment --
  68. $YSLIDE= 1; # may need to tweak for printer
  69.  
  70. # -- starting points -- 
  71. $X1=25;    # indent to 1st printing posn
  72. $Y1=687 + $YSLIDE ;   # top line vertical posn
  73. $Y4=601 + $YSLIDE ;   # above red bar
  74. $Y5=572 + $YSLIDE ;   # red bar
  75. $DX=286;   # add for 2nd col
  76. $DY=264;   # sub for 2nd, 3rd rows
  77. $LINE=30;  # sub for 2nd,3rd lines
  78. $WIDTH = $DX -10; # max space to fill
  79. # ----
  80. # This is the postscript header with some definitions
  81. # -- ch1 def sets first font choice, ch2 is used if 1st attempt is too wide
  82. # -- likewise ch3 & ch4 for italics
  83. $HD='%!
  84. % 1st, 2nd tries for tline
  85. /ch1 { /Helvetica-Bold findfont exch scalefont setfont} def
  86. /ch2 { /Helvetica-Narrow-Bold findfont exch scalefont setfont} def
  87. % 1st, 2nd tries for iline
  88. /ch3 { /Helvetica-BoldOblique findfont exch scalefont setfont} def
  89. /ch4 { /Helvetica-BoldOblique findfont exch scalefont setfont} def
  90. %  x y width string max-pts
  91. % pick a font that lets string fit in width (ch1, ch2 pair)
  92. % center within the space
  93. /tline
  94.  {
  95.   /pts exch def
  96.   /str exch def
  97.   /wd exch def
  98.   /y1 exch def
  99.   /x1 exch def
  100. % try 1st choice
  101.    pts ch1
  102.    str stringwidth pop wd gt { 
  103.        % did not fit - try 2nd choice font
  104.        pts ch2
  105.        /sw str stringwidth pop def
  106.        sw wd gt  {
  107.        % still did not fit - rescale
  108.            currentfont wd sw div scalefont setfont  
  109.        }if
  110.     }if
  111.     % center within space and print
  112.     wd str stringwidth pop sub 2 div x1 add y1 moveto str show
  113.     }def
  114.  
  115. %  x y width string max-pts
  116. % same w/italic font (ch3, ch4 choices)
  117. % center within the space
  118. /iline
  119.  {
  120.   /pts exch def
  121.   /str exch def
  122.   /wd exch def
  123.   /y1 exch def
  124.   /x1 exch def
  125. % try 1st choice
  126.    pts ch3
  127.    str stringwidth pop wd gt { 
  128.        % did not fit - try 2nd choice font
  129.        pts ch4
  130.        /sw str stringwidth pop def
  131.        sw wd gt  {
  132.        % still did not fit - rescale
  133.            currentfont wd sw div scalefont setfont  
  134.        }if
  135.     }if
  136.     % center within space and print
  137.     wd str stringwidth pop sub 2 div x1 add y1 moveto str show
  138.     }def
  139.  
  140. ';
  141.  
  142. $CCOL=-1;
  143. $CROW=0;
  144.  
  145. printf "%s",$HD;  #postscript program
  146. $NEWPAGE=1;
  147. $NPAGE=0;
  148. while (<>) {      # read input line 
  149.     if (/\f/) {   # go to different page
  150.         $NEWPAGE = 1;  
  151.         s/\f//;   # likely not to be a newline after formfeed
  152.     }
  153.     s/\r//;       # ignore carriage returns
  154.     chop;         # remove linefeed
  155.     if (/^ *$/) { next;}  # skip blank lines
  156.     # "(" in text must be "\(" in postscript output
  157.     s/\\/\\\\/g;    # I hate it when this happens...
  158.     s/\(/\\(/g; 
  159.     s/\)/\\)/g;
  160. #
  161. #    print $CCOL;   #..for debugging only
  162. #    print "\n";
  163. #    print $CROW;
  164. #    print "\n";
  165.     if ($NEWPAGE > 0) {   # starting a page
  166.       $CCOL = $COLS -1;
  167.       $CROW = $ROWS -1;
  168.     }
  169.     if (++$CCOL == $COLS) {
  170.         $CCOL = 0;
  171.         if (++$CROW == $ROWS) {
  172.         $CROW = 0;
  173.         if ($NPAGE++ > 0 ) {
  174.             printf "%s\n","showpage";      # eject previous page
  175.         }
  176.             printf "%% page %d\n",$NPAGE;  # sometimes handy to know
  177.         $NEWPAGE = 0;
  178.         }
  179.     }
  180.     # calc x y coordinates for this one
  181.     $LX = $X1 + $CCOL * $DX;
  182.     $LY1 = $Y1 - $CROW * $DY;
  183.     $LY2 = $LY1 - $LINE;
  184.     $LY3 = $LY2 - $LINE;
  185.     $LY4 = $Y4 - $CROW * $DY;
  186.     $LY5 = $Y5 - $CROW * $DY;
  187.     # break item into lines 
  188.      @LINE=split(/\|/);
  189.     if ($LINE[1] eq "" ) {
  190.         $LY3 = $LY2; # close up if line 2 is blank
  191.     }
  192.     # print the non-blank lines - the number is the initial point size
  193.     # tline uses helvetica, iline is italic
  194.     if ($LINE[0] ne "" ) {
  195.         printf "%d %d %d (%s) 24 tline \n",$LX,$LY1,$WIDTH,$LINE[0] ;
  196.     }
  197.     if ($LINE[1] ne "" ) {
  198.         printf "%d %d %d (%s) 24 tline \n",$LX,$LY2,$WIDTH,$LINE[1] ;
  199.     }
  200.     if ($LINE[2] ne "" ) {
  201.         printf "%d %d %d (%s) 24 tline \n",$LX,$LY3,$WIDTH,$LINE[2] ;
  202.     }
  203.     if ($LINE[3] ne "" ) {
  204.         printf "%d %d %d (%s) 14 iline \n",$LX,$LY4,$WIDTH,$LINE[3] ;
  205.     }
  206.     if ($LINE[4] ne "" ) {
  207.         printf "%d %d %d (%s) 20 tline \n",$LX,$LY5,$WIDTH,$LINE[4] ;
  208.     }
  209. }
  210.  
  211. printf "%s\n%% end of page %d\n","showpage",$NPAGE;
  212. # you may or may not need a control-D here, depending on whether
  213. # or not something else handles postscript EOF
  214. # uncomment the next line if you need it
  215. # print "\004";
  216.