home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / sys / next / programm / 7907 < prev    next >
Encoding:
Internet Message Format  |  1992-12-24  |  3.1 KB
  1. Path: sparky!uunet!olivea!spool.mu.edu!wupost!csus.edu!news
  2. From: eps@futon.SFSU.EDU (Eric P. Scott)
  3. Newsgroups: comp.sys.next.programmer
  4. Subject: Has anyone done anything interesting with Avery 5196 labels?
  5. Message-ID: <1992Dec24.123048.26396@csus.edu>
  6. Date: 24 Dec 92 12:30:48 GMT
  7. Sender: news@csus.edu
  8. Reply-To: eps@cs.sfsu.edu
  9. Distribution: na
  10. Organization: San Francisco State University
  11. Lines: 95
  12.  
  13. These are Laser Printer Labels for 3-1/2" diskettes.  I was just
  14. wondering if anyone had any cool label maker software for NeXTs
  15. that groks these.  Avery, of course, markets their own for
  16. PeeCees and Macintoys.
  17.  
  18. The attached Encapsulated PostScript file illustrates the page
  19. layout; there are nine 2-3/4" square diskette labels and 12
  20. 1/2" x 1-3/8" `bonus' labels on each sheet.
  21.  
  22. Boolean variables you can change:
  23.  
  24.     outlines -- shows shape and position of each label
  25.     guides -- draws content area vaguely resembling "blanks"
  26.         included with a popular diskette brand  :-)
  27.  
  28. [N.B. This example uses a font that's standard on just about all
  29. "real-world" PostScript printers, but isn't part of what NeXT
  30. bundles--you need to have the separately priced optional "Adobe
  31. Plus Pack" installed for "guides" to display properly onscreen,
  32. or print on a NeXT Laser Printer.  Sorry about that.]
  33.  
  34. Have fun, be creative!
  35.  
  36.                     -=EPS=-
  37. -------
  38. %!PS-Adobe-2.0 EPSF-2.0
  39. %%Title: Avery-5196.eps
  40. %%For: eps
  41. %%DocumentFonts: Courier-Bold Helvetica-Narrow-Bold
  42. %%Pages: 0 1
  43. %%BoundingBox: 0 0 612 792
  44. %%EndComments
  45. %%EndProlog
  46. gsave
  47. 2 dict begin
  48. /outlines true def % draw label outlines
  49. /guides false def % draw placement guides
  50. 0 setgray
  51. 0 setlinecap
  52. [
  53.   [9 558] [207 558] [405 558]
  54.   [9 342] [207 342] [405 342]
  55.   [9 126] [207 126] [405 126]
  56. ] {
  57.   aload pop
  58.   0.015 setlinewidth
  59.   outlines {
  60.     2 copy 6 add moveto
  61.     0 186 rlineto
  62.     currentpoint exch 6 add exch 6 180 90 arcn
  63.     186 0 rlineto
  64.     currentpoint 6 sub 6 90 0 arcn
  65.     0 -186 rlineto
  66.     currentpoint exch 6 sub exch 6 0 270 arcn
  67.     -186 0 rlineto
  68.     currentpoint 6 add 6 270 180 arcn
  69.     closepath stroke
  70.   } if
  71.   guides {
  72.     2 copy 51 add moveto 198 0 rlineto stroke
  73.     0.5 setlinewidth
  74.     exch 9 add exch
  75.     2 copy 79 add moveto 180 0 rlineto stroke
  76.     2 copy 101.5 add moveto 180 0 rlineto stroke
  77.     2 copy 124 add moveto 180 0 rlineto stroke
  78.     2 copy 146.5 add moveto 180 0 rlineto stroke
  79.     2 copy 169 add moveto 180 0 rlineto stroke
  80.     /Courier-Bold findfont [15 0 0 10 0 0] makefont setfont
  81.     2 copy 186 add moveto (PHONY) show
  82.     /Helvetica-Narrow-Bold findfont 7 scalefont setfont
  83.     moveto 140 (INDEX) stringwidth pop sub
  84.     187 rmoveto { pop pop 10 0 rmoveto } (INDEX) kshow
  85.   } { pop pop } ifelse
  86. } bind forall
  87. outlines {
  88.   0.015 setlinewidth
  89.   [
  90.     [9 83] [108 83] [207 83] [306 83] [405 83] [504 83]
  91.     [9 40] [108 40] [207 40] [306 40] [405 40] [504 40]
  92.   ] {
  93.     aload pop 4 add moveto
  94.     0 28 rlineto
  95.     currentpoint exch 4 add exch 4 180 90 arcn
  96.     91 0 rlineto
  97.     currentpoint 4 sub 4 90 0 arcn
  98.     0 -28 rlineto
  99.     currentpoint exch 4 sub exch 4 0 270 arcn
  100.     -91 0 rlineto
  101.     currentpoint 4 add 4 270 180 arcn
  102.     closepath stroke
  103.   } bind forall
  104. } if
  105. end
  106. grestore
  107. %%Trailer
  108.