%!PS-Adobe-2.0
%%Version: 0.1
%%DocumentFonts: (atend)
%%Pages: (atend)
%%EndComments
%
% Version 3.3.2 prologue for troff files.
%

/#copies 1 store
/aspectratio 1 def
/formsperpage 1 def
/landscape false def
/linewidth .3 def
/magnification 1 def
/margin 0 def
/orientation 0 def
/resolution 720 def
/rotation 1 def
/xoffset 0 def
/yoffset 0 def

/roundpage true def
/useclippath true def
/pagebbox [0 0 612 792] def

/R  /Times-Roman def
/I  /Times-Italic def
/B  /Times-Bold def
/BI /Times-BoldItalic def
/H  /Helvetica def
/HI /Helvetica-Oblique def
/HB /Helvetica-Bold def
/HX /Helvetica-BoldOblique def
/CW /Courier def
/CO /Courier def
/CI /Courier-Oblique def
/CB /Courier-Bold def
/CX /Courier-BoldOblique def
/PA /Palatino-Roman def
/PI /Palatino-Italic def
/PB /Palatino-Bold def
/PX /Palatino-BoldItalic def
/Hr /Helvetica-Narrow def
/Hi /Helvetica-Narrow-Oblique def
/Hb /Helvetica-Narrow-Bold def
/Hx /Helvetica-Narrow-BoldOblique def
/KR /Bookman-Light def
/KI /Bookman-LightItalic def
/KB /Bookman-Demi def
/KX /Bookman-DemiItalic def
/AR /AvantGarde-Book def
/AI /AvantGarde-BookOblique def
/AB /AvantGarde-Demi def
/AX /AvantGarde-DemiOblique def
/NR /NewCenturySchlbk-Roman def
/NI /NewCenturySchlbk-Italic def
/NB /NewCenturySchlbk-Bold def
/NX /NewCenturySchlbk-BoldItalic def
/ZD /ZapfDingbats def
/ZI /ZapfChancery-MediumItalic def
/S  /S def
/S1 /S1 def
/GR /Symbol def

/inch {72 mul} bind def
/min {2 copy gt {exch} if pop} bind def

/setup {
	counttomark 2 idiv {def} repeat pop

	landscape {/orientation 90 orientation add def} if
	/scaling 72 resolution div def
	linewidth setlinewidth
	1 setlinecap

	pagedimensions
	xcenter ycenter translate
	orientation rotation mul rotate
	width 2 div neg height 2 div translate
	xoffset inch yoffset inch neg translate
	margin 2 div dup neg translate
	magnification dup aspectratio mul scale
	scaling scaling scale

	addmetrics
	0 0 moveto
} def

/pagedimensions {
	useclippath userdict /gotpagebbox known not and {
		/pagebbox [clippath pathbbox newpath] def
		roundpage currentdict /roundpagebbox known and {roundpagebbox} if
	} if
	pagebbox aload pop
	4 -1 roll exch 4 1 roll 4 copy
	landscape {4 2 roll} if
	sub /width exch def
	sub /height exch def
	add 2 div /xcenter exch def
	add 2 div /ycenter exch def
	userdict /gotpagebbox true put
} def

/addmetrics {
	/Symbol /S null Sdefs cf
	/Times-Roman /S1 StandardEncoding dup length array copy S1defs cf
} def

/pagesetup {
	/page exch def
	currentdict /pagedict known currentdict page known and {
		page load pagedict exch get cvx exec
	} if
} def

/decodingdefs [
	{counttomark 2 idiv {y moveto show} repeat}
	{neg /y exch def counttomark 2 idiv {y moveto show} repeat}
	{neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
	{neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
	{counttomark 2 idiv {y moveto show} repeat}
	{neg setfunnytext}
] def

/setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def

/w {neg moveto show} bind def
/m {neg dup /y exch def moveto} bind def
/done {/lastpage where {pop lastpage} if} def

/f {
	dup /font exch def findfont exch
	dup /ptsize exch def scaling div dup /size exch def scalefont setfont
	linewidth ptsize mul scaling 10 mul div setlinewidth
	/spacewidth ( ) stringwidth pop def
} bind def

/changefont {
	/fontheight exch def
	/fontslant exch def
	currentfont [
		1 0
		fontheight ptsize div fontslant sin mul fontslant cos div
		fontheight ptsize div
		0 0
	] makefont setfont
} bind def

/sf {f} bind def

/cf {
	dup length 2 idiv
	/entries exch def
	/chtab exch def
	/newencoding exch def
	/newfont exch def

	findfont dup length 1 add dict
	/newdict exch def
	{1 index /FID ne {newdict 3 1 roll put}{pop pop} ifelse} forall

	newencoding type /arraytype eq {newdict /Encoding newencoding put} if

	newdict /Metrics entries dict put
	newdict /Metrics get
	begin
		chtab aload pop
		1 1 entries {pop def} for
		newfont newdict definefont pop
	end
} bind def

%
% A few arrays used to adjust reference points and character widths in some
% of the printer resident fonts. If square roots are too high try changing
% the lines describing /radical and /radicalex to,
%
%	/radical	[0 -75 550 0]
%	/radicalex	[-50 -75 500 0]
%
% Move braceleftbt a bit - default PostScript character is off a bit.
%

/Sdefs [
	/bracketlefttp		[201 500]
	/bracketleftbt		[201 500]
	/bracketrighttp		[-81 380]
	/bracketrightbt		[-83 380]
	/braceleftbt		[203 490]
	/bracketrightex		[220 -125 500 0]
	/radical		[0 0 550 0]
	/radicalex		[-50 0 500 0]
	/parenleftex		[-20 -170 0 0]
	/integral		[100 -50 500 0]
	/infinity		[10 -75 730 0]
] def

/S1defs [
	/underscore		[0 80 500 0]
	/endash			[7 90 650 0]
] def
%
% Tries to round clipping path dimensions, as stored in array pagebbox, so they
% match one of the known sizes in the papersizes array. Lower left coordinates
% are always set to 0.
%

/roundpagebbox {
    7 dict begin
	/papersizes [8.5 inch 11 inch 14 inch 17 inch] def

	/mappapersize {
		/val exch def
		/slop .5 inch def
		/diff slop def
		/j 0 def
		0 1 papersizes length 1 sub {
			/i exch def
			papersizes i get val sub abs
			dup diff le {/diff exch def /j i def} {pop} ifelse
		} for
		diff slop lt {papersizes j get} {val} ifelse
	} def

	pagebbox 0 0 put
	pagebbox 1 0 put
	pagebbox dup 2 get mappapersize 2 exch put
	pagebbox dup 3 get mappapersize 3 exch put
    end
} bind def

%%EndProlog
%%BeginSetup
mark
%
% Encoding vector and redefinition of findfont for the ISO Latin1 standard.
% The 18 characters missing from ROM based fonts on older printers are noted
% below.
%

/ISOLatin1Encoding [
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/space
	/exclam
	/quotedbl
	/numbersign
	/dollar
	/percent
	/ampersand
	/quoteright
	/parenleft
	/parenright
	/asterisk
	/plus
	/comma
	/minus
	/period
	/slash
	/zero
	/one
	/two
	/three
	/four
	/five
	/six
	/seven
	/eight
	/nine
	/colon
	/semicolon
	/less
	/equal
	/greater
	/question
	/at
	/A
	/B
	/C
	/D
	/E
	/F
	/G
	/H
	/I
	/J
	/K
	/L
	/M
	/N
	/O
	/P
	/Q
	/R
	/S
	/T
	/U
	/V
	/W
	/X
	/Y
	/Z
	/bracketleft
	/backslash
	/bracketright
	/asciicircum
	/underscore
	/quoteleft
	/a
	/b
	/c
	/d
	/e
	/f
	/g
	/h
	/i
	/j
	/k
	/l
	/m
	/n
	/o
	/p
	/q
	/r
	/s
	/t
	/u
	/v
	/w
	/x
	/y
	/z
	/braceleft
	/bar
	/braceright
	/asciitilde
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/.notdef
	/dotlessi
	/grave
	/acute
	/circumflex
	/tilde
	/macron
	/breve
	/dotaccent
	/dieresis
	/.notdef
	/ring
	/cedilla
	/.notdef
	/hungarumlaut
	/ogonek
	/caron
	/space
	/exclamdown
	/cent
	/sterling
	/currency
	/yen
	/brokenbar		% missing
	/section
	/dieresis
	/copyright
	/ordfeminine
	/guillemotleft
	/logicalnot
	/hyphen
	/registered
	/macron
	/degree			% missing
	/plusminus		% missing
	/twosuperior		% missing
	/threesuperior		% missing
	/acute
	/mu			% missing
	/paragraph
	/periodcentered
	/cedilla
	/onesuperior		% missing
	/ordmasculine
	/guillemotright
	/onequarter		% missing
	/onehalf		% missing
	/threequarters		% missing
	/questiondown
	/Agrave
	/Aacute
	/Acircumflex
	/Atilde
	/Adieresis
	/Aring
	/AE
	/Ccedilla
	/Egrave
	/Eacute
	/Ecircumflex
	/Edieresis
	/Igrave
	/Iacute
	/Icircumflex
	/Idieresis
	/Eth			% missing
	/Ntilde
	/Ograve
	/Oacute
	/Ocircumflex
	/Otilde
	/Odieresis
	/multiply		% missing
	/Oslash
	/Ugrave
	/Uacute
	/Ucircumflex
	/Udieresis
	/Yacute			% missing
	/Thorn			% missing
	/germandbls
	/agrave
	/aacute
	/acircumflex
	/atilde
	/adieresis
	/aring
	/ae
	/ccedilla
	/egrave
	/eacute
	/ecircumflex
	/edieresis
	/igrave
	/iacute
	/icircumflex
	/idieresis
	/eth			% missing
	/ntilde
	/ograve
	/oacute
	/ocircumflex
	/otilde
	/odieresis
	/divide			% missing
	/oslash
	/ugrave
	/uacute
	/ucircumflex
	/udieresis
	/yacute			% missing
	/thorn			% missing
	/ydieresis
] def

/NewFontDirectory FontDirectory maxlength dict def

%
% Apparently no guarantee findfont is defined in systemdict so the obvious
%
%	systemdict /findfont get exec
%
% can generate an error. So far the only exception is a VT600 (version 48.0).
%

userdict /@RealFindfont known not {
	userdict begin
		/@RealFindfont systemdict begin /findfont load end def
	end
} if

/findfont {
	dup NewFontDirectory exch known not {
		dup
		%dup systemdict /findfont get exec	% not always in systemdict
		dup userdict /@RealFindfont get exec
		dup /Encoding get StandardEncoding eq {
			dup length dict begin
				{1 index /FID ne {def}{pop pop} ifelse} forall
				/Encoding ISOLatin1Encoding def
				currentdict
			end
			/DummyFontName exch definefont
		} if
		NewFontDirectory 3 1 roll put
	} if
	NewFontDirectory exch get
} bind def

setup
%%EndSetup
%%Page: 1 1
/saveobj save def
mark
1 pagesetup
12 /Times-Bold f
(Pgmabel) 2306 1230 w
(User) 2783 1230 w
(Manual) 3052 1230 w
10 /Times-Bold f
(pgmabel) 720 1920 w
10 /Times-Roman f
(Updated: June 2002) 720 2076 w
(Table Of Contents) 720 2196 w
10 /Times-Bold f
(NAME) 720 2436 w
10 /Times-Roman f
(pgmabel \255 create cross section using Abel Integration for Deconvolution) 720 2592 w
10 /Times-Bold f
(SYNOPSIS) 720 2832 w
(pgmabel) 720 2988 w
10 /Times-Roman f
([) 1112 2988 w
10 /Times-Bold f
(\255help) 1145 2988 w
10 /Times-Roman f
(] [) 1362 2988 w
10 /Times-Bold f
(\255axis) 1453 2988 w
10 /Times-Italic f
(axis) 1678 2988 w
10 /Times-Roman f
(] [) 1839 2988 w
10 /Times-Bold f
(\255factor) 1930 2988 w
10 /Times-Italic f
(factor) 2242 2988 w
10 /Times-Roman f
(] [) 2481 2988 w
10 /Times-Bold f
(\255pixsize) 2572 2988 w
10 /Times-Italic f
(pixsize) 2919 2988 w
10 /Times-Roman f
(] [) 3191 2988 w
10 /Times-Bold f
(\255left) 3282 2988 w
10 /Times-Roman f
10 /S f
(\357) 3478 2988 w
10 /Times-Bold f
(\255right) 3552 2988 w
10 /Times-Roman f
(] [) 3796 2988 w
10 /Times-Bold f
(\255verbose) 3887 2988 w
10 /Times-Roman f
(] [) 4247 2988 w
10 /Times-Italic f
(filespec) 4338 2988 w
10 /Times-Roman f
(]) 4643 2988 w
(You can abbreviate any option to its shortest unique prefix.) 720 3144 w
10 /Times-Bold f
(DESCRIPTION) 720 3384 w
10 /Times-Roman f
(This program is part of Netpbm.) 720 3576 w
10 /Times-Bold f
(pgmabel) 720 3732 w
10 /Times-Roman f
(reads) 1114 3732 w
(as) 1351 3732 w
(input) 1461 3732 w
(a) 1694 3732 w
(PGM) 1765 3732 w
(image,) 2009 3732 w
(which) 2305 3732 w
(it) 2576 3732 w
(assumes) 2659 3732 w
(to) 3020 3732 w
(be) 3126 3732 w
(an) 3248 3732 w
(image) 3370 3732 w
(of) 3642 3732 w
(a) 3753 3732 w
(rotational) 3825 3732 w
(symmetric) 4236 3732 w
(transpar\255) 4686 3732 w
(ent) 720 3852 w
(object.) 880 3852 w
(The) 1212 3852 w
(image) 1405 3852 w
(must) 1687 3852 w
(have) 1920 3852 w
(a) 2146 3852 w
(vertical) 2228 3852 w
(symmetry) 2565 3852 w
(axis.) 3002 3852 w
10 /Times-Bold f
(pgmabel) 3250 3852 w
10 /Times-Roman f
(produces) 3654 3852 w
(as) 4051 3852 w
(output) 4171 3852 w
(an) 4464 3852 w
(image) 4595 3852 w
(of) 4876 3852 w
(a) 4996 3852 w
(cross\255section) 720 3972 w
(of) 1268 3972 w
(the) 1378 3972 w
(image.) 1527 3972 w
10 /Times-Bold f
(pgmabel) 1848 3972 w
10 /Times-Roman f
(does) 2242 3972 w
(the) 2452 3972 w
(calculation) 2601 3972 w
(by) 3066 3972 w
(performing) 3193 3972 w
(the) 3669 3972 w
(Abel) 3818 3972 w
(Integration) 4039 3972 w
(for) 4504 3972 w
(Deconvo\255) 4647 3972 w
(lution) 720 4092 w
(of) 981 4092 w
(an) 1091 4092 w
(axial\255symmetrical) 1212 4092 w
(image) 1960 4092 w
(by) 2231 4092 w
(solving) 2358 4092 w
(the) 2680 4092 w
(system) 2828 4092 w
(of) 3132 4092 w
(linear) 3241 4092 w
(equations.) 3494 4092 w
(After) 3953 4092 w
(integration,) 4189 4092 w
10 /Times-Bold f
(pgmabel) 4673 4092 w
10 /Times-Roman f
(weights) 720 4212 w
(all) 1066 4212 w
(gray\255values) 1201 4212 w
(of) 1701 4212 w
(one) 1819 4212 w
(side) 1998 4212 w
(by) 2194 4212 w
(the) 2329 4212 w
(surface) 2486 4212 w
(area) 2808 4212 w
(of) 3008 4212 w
(the) 3126 4212 w
(calculated) 3283 4212 w
(ring) 3722 4212 w
(in) 3919 4212 w
(square) 4033 4212 w
(pixels) 4329 4212 w
(divided) 4604 4212 w
(by) 4940 4212 w
(4*) 720 4332 w
10 /Times-Italic f
(factor) 820 4332 w
10 /Times-Roman f
(multiplied) 1106 4332 w
(by) 1565 4332 w
(the) 1712 4332 w
(size) 1881 4332 w
(of) 2083 4332 w
(one) 2213 4332 w
(pixel) 2404 4332 w
(\() 2650 4332 w
10 /Times-Italic f
(pixsize) 2683 4332 w
10 /Times-Roman f
(\).) 2955 4332 w
(With) 3084 4332 w
(the) 3330 4332 w
10 /Times-Bold f
(\255verbose) 3498 4332 w
10 /Times-Roman f
(option,) 3904 4332 w
10 /Times-Bold f
(pgmabel) 4231 4332 w
10 /Times-Roman f
(prints) 4644 4332 w
(the) 4918 4332 w
(weighting factors.) 720 4452 w
(Where the caculation generates a negative result, the output is black.) 720 4608 w
(The computation is unstable against periodic structures with size 2 in the vertical direction.) 720 4764 w
10 /Times-Bold f
(OPTIONS) 720 5004 w
(\255help) 970 5196 w
10 /Times-Roman f
(Prints a help message.) 1220 5196 w
10 /Times-Bold f
(\255axis) 970 5352 w
10 /Times-Italic f
(axis) 1206 5352 w
10 /Times-Roman f
(Position) 1367 5352 w
(of) 1732 5352 w
(the) 1851 5352 w
(axis) 2009 5352 w
(of) 2206 5352 w
(symmetry) 2325 5352 w
(in) 2761 5352 w
(the) 2876 5352 w
(image) 3035 5352 w
(in) 3316 5352 w
(pixels) 3431 5352 w
(from) 3707 5352 w
(the) 3938 5352 w
(left) 4097 5352 w
(edge) 4267 5352 w
(of) 4492 5352 w
(the) 4612 5352 w
(image.) 4771 5352 w
(Default is the center of the image.) 1220 5472 w
10 /Times-Bold f
(\255factor) 970 5628 w
10 /Times-Italic f
(factor) 1282 5628 w
10 /Times-Roman f
(User) 1521 5628 w
(defined) 1735 5628 w
(factor) 2060 5628 w
(for) 2318 5628 w
(enhancement) 2460 5628 w
(of) 3012 5628 w
(the) 3121 5628 w
(output.) 3269 5628 w
(Use) 3601 5628 w
(a) 3782 5628 w
10 /Times-Italic f
(factor) 3852 5628 w
10 /Times-Roman f
(less) 4117 5628 w
(than) 4293 5628 w
(1) 4491 5628 w
(for) 4567 5628 w
(decreas\255) 4709 5628 w
(ing gary values.) 1220 5748 w
(Default is 1.0.) 1905 5748 w
10 /Times-Bold f
(\255pixsize) 970 5904 w
10 /Times-Italic f
(pixsize) 1317 5904 w
10 /Times-Roman f
(The size of a pixel for getting scale invariant.) 1589 5904 w
(Default is 0.1.) 3449 5904 w
10 /Times-Bold f
(\255left) 970 6060 w
10 /Times-Roman f
(Calculate only the left side of the image.) 1220 6060 w
(You cannot specify both) 2890 6060 w
10 /Times-Bold f
(left) 3894 6060 w
10 /Times-Roman f
(and) 4057 6060 w
10 /Times-Bold f
(right) 4226 6060 w
10 /Times-Roman f
(.) 4437 6060 w
10 /Times-Bold f
(\255right) 970 6216 w
10 /Times-Roman f
(Analogous to) 1220 6216 w
10 /Times-Bold f
(\255left) 1781 6216 w
10 /Times-Roman f
(.) 1952 6216 w
10 /Times-Bold f
(\255verbose) 970 6372 w
10 /Times-Roman f
(print information about the calculation.) 1330 6372 w
10 /Times-Bold f
(EXAMPLE) 720 6612 w
10 /Times-Roman f
(Rotate a PGM image to get an image with a vertical axis of symmetry, then calculate the cross section:) 720 6804 w
(pnmrotate 90 file.pgm ) 820 6984 w
10 /S f
(\357) 1736 6984 w
10 /Times-Roman f
(pgmabel \255axis 140 >cross) 1810 6984 w
10 /S f
(_) 2834 6984 w
10 /Times-Roman f
(section.pgm) 2884 6984 w
cleartomark
showpage
saveobj restore
%%EndPage: 1 1
%%Page: 2 2
/saveobj save def
mark
2 pagesetup
10 /Times-Roman f
(\255 2 \255) 2797 480 w
10 /Times-Bold f
(SEE ALSO) 720 840 w
(pnmrotate) 720 996 w
10 /Times-Roman f
(,) 1169 996 w
10 /Times-Bold f
(pgm) 1219 996 w
10 /Times-Roman f
(,) 1408 996 w
10 /Times-Bold f
(HISTORY) 720 1236 w
10 /Times-Roman f
(This program was added to Netpbm in Release 10.3 \(June 2002\).) 720 1428 w
10 /Times-Bold f
(AUTHOR) 720 1668 w
10 /Times-Roman f
(Volker Schmidt \(lefti@voyager.boerde.de\)) 720 1860 w
(Copyright \(C\) 1997\2552002 German Aerospace research establishment) 720 2016 w
10 /S1 f
(________________________________________________________________________) 720 2136 w
10 /Times-Bold f
(Table Of Contents) 720 2376 w
10 /LucidaSansUnicode22 f
(\031) 720 2568 w
10 /Times-Roman f
(NAME) 970 2568 w
10 /LucidaSansUnicode22 f
(\031) 720 2724 w
10 /Times-Roman f
(SYNOPSIS) 970 2724 w
10 /LucidaSansUnicode22 f
(\031) 720 2880 w
10 /Times-Roman f
(DESCRIPTION) 970 2880 w
10 /LucidaSansUnicode22 f
(\031) 720 3036 w
10 /Times-Roman f
(OPTIONS) 970 3036 w
10 /LucidaSansUnicode22 f
(\031) 720 3192 w
10 /Times-Roman f
(EXAMPLE) 970 3192 w
10 /LucidaSansUnicode22 f
(\031) 720 3348 w
10 /Times-Roman f
(SEE ALSO) 970 3348 w
10 /LucidaSansUnicode22 f
(\031) 720 3504 w
10 /Times-Roman f
(HISTORY) 970 3504 w
10 /LucidaSansUnicode22 f
(\031) 720 3660 w
10 /Times-Roman f
(AUTHOR) 970 3660 w
cleartomark
showpage
saveobj restore
%%EndPage: 2 2
%%Trailer
done
%%DocumentFonts: Times-Roman LucidaSansUnicode22 Times-Italic Times-Bold S1 S
%%Pages: 2