summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/epsf/bboxgrid.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/epsf/bboxgrid.ps')
-rw-r--r--Master/texmf-dist/doc/generic/epsf/bboxgrid.ps317
1 files changed, 317 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/epsf/bboxgrid.ps b/Master/texmf-dist/doc/generic/epsf/bboxgrid.ps
new file mode 100644
index 00000000000..7db6828817c
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/epsf/bboxgrid.ps
@@ -0,0 +1,317 @@
+%!PS-Adobe
+%%BoundingBox: 0 0 612 792
+%%% ====================================================================
+%%% @PostScript-file{
+%%% author = "Nelson H. F. Beebe",
+%%% version = "1.01",
+%%% date = "22 January 1994",
+%%% time = "23:33:36 MST",
+%%% filename = "bboxgrid.ps",
+%%% address = "Center for Scientific Computing
+%%% Department of Mathematics
+%%% University of Utah
+%%% Salt Lake City, UT 84112
+%%% USA
+%%% Tel: +1 801 581 5254
+%%% FAX: +1 801 581 4148",
+%%% checksum = "57568 317 1097 8973",
+%%% email = "beebe@solitude.math.utah.edu (Internet)",
+%%% codetable = "ISO/ASCII",
+%%% keywords = "grid, measure, calibration",
+%%% supported = "yes",
+%%% docstring = "This PostScript file produces a numbered grid
+%%% measured in PostScript units of big points
+%%% for the determination of correct bounding
+%%% boxes of other PostScript files.
+%%%
+%%% Accurate bounding box measurements are
+%%% required if the PostScript is to be included
+%%% in other PostScript documents, such as via
+%%% the TeX \special{} command.
+%%%
+%%% While PostScript by default places the (0,0)
+%%% origin at the lower-left page corner,
+%%% variations of several points will be found in
+%%% different printers, even between identical
+%%% models from the same vendor.
+%%%
+%%% To correctly determine the BoundingBox of an
+%%% arbitrary PostScript figure, overlay a
+%%% printed copy of the figure on the grid
+%%% produced by this file on the SAME printer,
+%%% and measure from it the coordinates of the
+%%% lower-left and upper-right corners. These
+%%% four integers should be entered in the
+%%% PostScript file as a comment of the form
+%%%
+%%% %%BoundingBox: llx lly urx ury
+%%%
+%%% This comment should be placed near the
+%%% beginning, preferably right after the initial
+%%% line that should start %! or %!PS-Adobe...
+%%%
+%%% The checksum field above contains a CRC-16
+%%% checksum as the first value, followed by the
+%%% equivalent of the standard UNIX wc (word
+%%% count) utility output of lines, words, and
+%%% characters. This is produced by Robert
+%%% Solovay's checksum utility.",
+%%% }
+%%% ====================================================================
+
+%%% 1.01 [22-Jan-1994] add top label, and bp axis labels
+%%% 1.00 [22-Nov-1991] original version
+
+/TickSize 5 def
+/TickStep 5 def
+/TickFontSize 9 def
+
+/Frame % x y width height Frame
+{
+ /height exch def
+ /width exch def
+ /y exch def
+ /x exch def
+ newpath
+ x y moveto
+ width 0 rlineto
+ 0 height rlineto
+ width neg 0 rlineto
+ closepath
+ stroke
+
+ x y width TickStep TickSize TickX
+ x y width TickStep TickSize NumberX
+ x y height add width TickStep TickSize neg TickX
+ x y height add width TickStep TickSize neg NumberX
+ x y height TickStep TickSize TickY
+ x y height TickStep TickSize NumberY
+ x width add y height TickStep TickSize neg TickY
+ x width add y height TickStep TickSize neg NumberY
+ x y 25 25 width height Grid
+} def
+
+/Grid % x y dx dy width height Grid
+{
+ /Gheight exch def
+ /Gwidth exch def
+ /Gdy exch def
+ /Gdx exch def
+ /Gy exch def
+ /Gx exch def
+
+ Gx
+ Gdx
+ Gx Gwidth add
+ {
+ newpath
+ Gy moveto
+ 0 Gheight rlineto
+ closepath
+ stroke
+ }
+ for
+
+ Gy
+ Gdy
+ Gy Gheight add
+ {
+ newpath
+ Gx exch moveto
+ Gwidth 0 rlineto
+ closepath
+ stroke
+ }
+ for
+} def
+
+
+/NumberX % x y length dx tick NumberX
+{
+ /Helvetica findfont TickFontSize scalefont setfont
+ /Ttick exch def
+ /Tdx exch def
+ /Tlength exch def
+ /Ty exch def
+ /Tx exch def
+
+ /temp 12 string def
+ Tx
+ Tdx 5 mul
+ Tx Tlength add
+ {
+ dup
+ Ty moveto % Tx already on stack
+ Ttick 0 lt
+ { 0 TickFontSize 0.5 mul rmoveto }
+ { 0 TickFontSize -1.5 mul rmoveto }
+ ifelse
+ temp cvs
+ dup stringwidth pop -2 div 0 rmoveto
+ show
+ }
+ for
+} def
+
+/NumberY % x y length dy tick NumberY
+{
+ /Helvetica findfont TickFontSize scalefont setfont
+ /Ttick exch def
+ /Tdy exch def
+ /Tlength exch def
+ /Ty exch def
+ /Tx exch def
+
+ /temp 12 string def
+ Ty
+ Tdy 5 mul
+ Ty Tlength add
+ {
+ dup
+ Tx exch moveto % Ty already on stack
+ Ttick neg TickFontSize -2 div rmoveto
+ temp cvs
+ Ttick 0 gt
+ { dup stringwidth pop neg 0 rmoveto }
+ if
+ show
+ }
+ for
+} def
+
+/TickX % x y length dx tick TickX
+{
+ /Ttick exch def
+ /Tdx exch def
+ /Tlength exch def
+ /Ty exch def
+ /Tx exch def
+
+ Tx
+ Tdx
+ Tx Tlength add
+ {
+ dup
+ newpath
+ Ty moveto % Tx already on stack
+ cvi Tdx 5 mul cvi mod 0 eq% draw tick, double length every 5th
+ { Ttick 2 mul }
+ { Ttick }
+ ifelse
+ 0
+ exch
+ rlineto
+ closepath
+ stroke
+ }
+ for
+} def
+
+/TickY % x y length dy tick TickY
+{
+ /Ttick exch def
+ /Tdy exch def
+ /Tlength exch def
+ /Ty exch def
+ /Tx exch def
+
+ Ty
+ Tdy
+ Ty Tlength add
+ {
+ dup
+ newpath
+ Tx exch moveto % Ty already on stack
+ cvi Tdy 5 mul cvi mod 0 eq% draw tick, double length every 5th
+ { Ttick 2 mul }
+ { Ttick }
+ ifelse
+ 0
+ rlineto
+ closepath
+ stroke
+ }
+ for
+} def
+
+/inch
+{
+ 72 mul
+} def
+
+/mm
+{
+ 72 mul 25.4 div
+} def
+
+% (string) CenterCenterShow -- show centered at currentpoint
+/CenterCenterShow
+{
+ dup stringwidth pop -2 div TickFontSize -2 div rmoveto show
+} def
+
+% (string) RightCenterShow -- show right-centered at currentpoint
+/RightCenterShow
+{
+ dup stringwidth pop neg TickFontSize -2 div rmoveto show
+} def
+
+% (string) LeftCenterShow -- show right-centered at currentpoint
+/LeftCenterShow
+{
+ 0 TickFontSize -2 div rmoveto show
+} def
+
+% Select ONE of these pairs of page dimensions
+
+% ISO A4-format paper
+% /PageWidth 210 mm def
+% /PageHeight 297 mm def
+
+% US A-format paper
+/PageWidth 8.5 inch def
+/PageHeight 11.0 inch def
+
+% Make grid lines half the normal thickness
+currentlinewidth 0.5 mul setlinewidth
+
+% Title the grid
+/Helvetica-Bold findfont TickFontSize scalefont setfont
+PageWidth 2 div 25 moveto
+(bboxgrid.ps [Version 1.01] [22 January 1994]) dup
+CenterCenterShow
+
+PageWidth 2 div 780 moveto
+CenterCenterShow
+
+% You can change this line to make a different grid. The values
+% should all be multiples of 25.
+% The values 50 50 525 700 are appropriate for an Apple LaserWriter II.
+% x y width height Frame
+50 50 525 700 Frame
+
+% label bottom horizontal axis at each end
+50 30 moveto
+(bp) CenterCenterShow
+575 30 moveto
+(bp) CenterCenterShow
+
+% label top horizontal axis at each end
+50 770 moveto
+(bp) CenterCenterShow
+575 770 moveto
+(bp) CenterCenterShow
+
+% label left vertical axis at each end
+25 50 moveto
+(bp) RightCenterShow
+25 750 moveto
+(bp) RightCenterShow
+
+% label right vertical axis at each end
+600 50 moveto
+(bp) LeftCenterShow
+600 750 moveto
+(bp) LeftCenterShow
+
+showpage