🚀 go-pugleaf

These are Laser Printer Labels for 3-1/2" diskettes.  I was just
wondering if anyone had any cool label maker software for NeXTs
that groks these.  Avery, of course, markets their own for
PeeCees and Macintoys.

The attached Encapsulated PostScript file illustrates the page
layout; there are nine 2-3/4" square diskette labels and 12
1/2" x 1-3/8" `bonus' labels on each sheet.

Boolean variables you can change:

	outlines -- shows shape and position of each label
	guides -- draws content area vaguely resembling "blanks"
		included with a popular diskette brand  :-)

[N.B. This example uses a font that's standard on just about all
"real-world" PostScript printers, but isn't part of what NeXT
bundles--you need to have the separately priced optional "Adobe
Plus Pack" installed for "guides" to display properly onscreen,
or print on a NeXT Laser Printer.  Sorry about that.]

Have fun, be creative!

					-=EPS=-
-------
%!PS-Adobe-2.0 EPSF-2.0
%%Title: Avery-5196.eps
%%For: eps
%%DocumentFonts: Courier-Bold Helvetica-Narrow-Bold
%%Pages: 0 1
%%BoundingBox: 0 0 612 792
%%EndComments
%%EndProlog
gsave
2 dict begin
/outlines true def % draw label outlines
/guides false def % draw placement guides
0 setgray
0 setlinecap
[
  [9 558] [207 558] [405 558]
  [9 342] [207 342] [405 342]
  [9 126] [207 126] [405 126]
] {
  aload pop
  0.015 setlinewidth
  outlines {
    2 copy 6 add moveto
    0 186 rlineto
    currentpoint exch 6 add exch 6 180 90 arcn
    186 0 rlineto
    currentpoint 6 sub 6 90 0 arcn
    0 -186 rlineto
    currentpoint exch 6 sub exch 6 0 270 arcn
    -186 0 rlineto
    currentpoint 6 add 6 270 180 arcn
    closepath stroke
  } if
  guides {
    2 copy 51 add moveto 198 0 rlineto stroke
    0.5 setlinewidth
    exch 9 add exch
    2 copy 79 add moveto 180 0 rlineto stroke
    2 copy 101.5 add moveto 180 0 rlineto stroke
    2 copy 124 add moveto 180 0 rlineto stroke
    2 copy 146.5 add moveto 180 0 rlineto stroke
    2 copy 169 add moveto 180 0 rlineto stroke
    /Courier-Bold findfont [15 0 0 10 0 0] makefont setfont
    2 copy 186 add moveto (PHONY) show
    /Helvetica-Narrow-Bold findfont 7 scalefont setfont
    moveto 140 (INDEX) stringwidth pop sub
    187 rmoveto { pop pop 10 0 rmoveto } (INDEX) kshow
  } { pop pop } ifelse
} bind forall
outlines {
  0.015 setlinewidth
  [
    [9 83] [108 83] [207 83] [306 83] [405 83] [504 83]
    [9 40] [108 40] [207 40] [306 40] [405 40] [504 40]
  ] {
    aload pop 4 add moveto
    0 28 rlineto
    currentpoint exch 4 add exch 4 180 90 arcn
    91 0 rlineto
    currentpoint 4 sub 4 90 0 arcn
    0 -28 rlineto
    currentpoint exch 4 sub exch 4 0 270 arcn
    -91 0 rlineto
    currentpoint 4 add 4 270 180 arcn
    closepath stroke
  } bind forall
} if
end
grestore
%%Trailer