V10/vol2/pi/a97.ps

%!PS-Adobe-2.0
%%Version: 3.1
%%DocumentFonts: (atend)
%%Pages: (atend)
%%EndComments
%
% Version 3.1 prologue for DMD bitmap files.
%

/#copies 1 store
/aspectratio 1 def
/formsperpage 1 def
/landscape false def
/magnification 1 def
/margin 0 def
/orientation 0 def
/screenres 100 def
/xoffset 0 def
/yoffset 0 def

/useclippath true def
/pagebbox [0 0 612 792] 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

	pagedimensions
	xcenter ycenter translate
	orientation neg rotate
	xoffset inch yoffset inch translate
	magnification dup aspectratio mul scale

	/height height margin sub def
	/width width margin sub def
} def

/pagedimensions {
	useclippath {
		/pagebbox [clippath pathbbox newpath] def
	} 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

/pagesetup {/page exch def} bind def

/bitmap {
	/scanlines exch def
	/scanlength exch def
	/flip exch def
	/v8format exch def

	/bytelength scanlength 8 idiv def
	/picstr bytelength string def
	/lpicstr bytelength string def
	/bytelength bytelength 1 sub def

	gsave

% First the overall scaling.

	height scanlines div width scanlength div min
	72 screenres div min
	dup scale

% Followed by the one for the unit square.

	scanlength neg 2 div scanlines neg 2 div translate
	scanlength scanlines scale
	v8format {getv8bitmap} {getbitmap} ifelse
	grestore
} bind def

/getbitmap {
	scanlength scanlines flip [scanlength 0 0 scanlines neg 0 scanlines] {
		0 {
			currentfile token pop dup
			0 eq {pop pop exit} if
			/charcount exch def
			picstr 1 index charcount getinterval
			/repl exch def
			currentfile repl readhexstring pop pop
			charcount add
			currentfile token pop {
				picstr 1 index repl putinterval
				charcount add
			} repeat
		} loop
		picstr
	} imagemask
} bind def

/getv8bitmap {
	scanlength scanlines flip not [scanlength 0 0 scanlines neg 0 scanlines] {
		0 {
			currentfile token pop dup
			0 eq {pop pop exit} if
			/charcount exch def
			picstr 1 index charcount getinterval
			/repl exch def
			currentfile repl readhexstring pop pop
			charcount add
			currentfile token pop {
				picstr 1 index repl putinterval
				charcount add
			} repeat
		} loop
		0 0 picstr {
			exch lpicstr exch get xor
			lpicstr exch 2 index exch put
			1 add dup
		} forall
		pop pop lpicstr
	} imagemask
} bind def

/done {/lastpage where {pop lastpage} if} def
%%EndProlog
%%BeginSetup
mark
setup
%%EndSetup
%%Page: 1 1
/saveobj save def
false false 352 56 bitmap
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FFFFFFFFFFFF 6
2 FFFF 0
0
6 FE0000000000 0
6 000000000000 5
2 7FFF 0
0
6 FE0000000000 0
6 000000000000 5
2 7FFF 0
0
6 FE0000000000 0
6 000000000000 5
2 7FFF 0
0
6 FE0000000000 0
6 000000000000 5
2 7FFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 1
26 FFC3FFFFFFFFFFFFFFFFF7E1FFFFFFFFFFFFFFFFBFFFFFFFFFFF 0
0
44 FE0003FFFFFDFEFFFFFFFFFFFFFFFA783F3FFF9FFFFFFFFFFFFF7FFFCFCFFFE0FFF03E0F1F83CFFFFFFFFFFF 0
0
44 FE0003FFFFF9FCFFFFFFFFFFFFFFFA739E3FFF9FFFFFFFFFFFFE7FFF9FCFFFCE7FF39CEF1F3BE7FFFFFFFFFF 0
0
44 FE000393E0E0301E1C6647FFE1F3F673FD3FFE03C39CF0F873980F0F9F01FFCE673399FF1E7FE7E7FFFFFFFF 0
0
44 FE000389CE79FCFCCE0623FFCCF3F673FB3FFF9F999EE673339E7E673FCF00CE67B399FECE7FF3E7FFFFFFFF 0
0
44 FE00039CFE79FCF9CE6673FF9CFFEE73FF3FFF9F39CDCE67339E7CE73FCF00CE7373B9FECE7FF3FFFFFFFFFF 0
0
44 FE00039CFE79FCF9CE7E73FF9FFFEE703F3FFF9F39C3CE67F39E7CE73FCFFFCE70F079FECE7FF3FFFFFFFFFF 0
0
44 FE00039CE079FCF80E7E73FF9FFFE0339F3FFF9F01F7C067F39E7C073FCFFFCE7DF3B9FC067FF3FFFFFFFFFF 0
0
44 FE00039CCE79FCF9FE7E73FF9FFFE0339F3FFF9F3FE1CFE7F39E7CFF3FCF00CE787399FDE67FF3FFFFFFFFFF 0
0
44 FE00039CCE79FCF9FE7E73FF9FFFFE739F3FFF9F3FD9CFE7F39E7CFF3FCF00CE767399FDE67FF3FFFFFFFFFF 0
0
44 FE000399CC79FCFCCE7E73CFCCF3FE739F3FFF9F99BCE673311E7E673FCFFFCE6F339CEDE73BF3E7FFFFFFFF 0
0
44 FE000383E27C3E1E1C1E73CFE1F3F8383C0FFE07C39CF0F8789F0F0F9F03FFE0E7303E0DE783E7E7FFFFFFFF 0
0
6 FE00039FFFFF 0
6 FFFFFFFFFFFF 2
20 FFFFFFFF9FFFFFFFFFFFFFFFFFFFE7FFFFFFFFFF 0
0
6 FE00039FFFFF 0
6 FFFFFFFFFFFF 2
20 FFFFFFFFCFFFFFFFFFFFFFFFFFFFCFFFFFFFFFFF 0
0
6 FE00039FFFFF 0
6 FFFFFFFFFFFF 2
20 FFFFFFFFF7FFFFFFFFFFFFFFFFFFBFFFFFFFFFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
12 FE0003FFFFFFFFFFFFFE7FFF 0
6 FFFFFFFFFFFF 4
2 FFFF 0
0
24 FE0003FFFBFFFFFF7FFE7FFFFFFFF9FFFE7FFF0701FFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE0003FFF3FFFFFE7FFE7FFFFFFFF9FFFE7FFE7301FFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE0003C1C07071980F0E47838CFFFDF83F7FFE73FDFFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE00039CF3E7381E7E662339C0807DF39F780673F9FFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE00039FF3FF399E7CE673F9CC807BFF9EF80673F3FFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE00038FF3FF39FE7CFE73F9CFFFFFFF9FFFFF03E7FFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE0003C1F3F039FE7CFE7381CFFFFFF81FFFFFF3CFFFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE0003F8F3E739FE7CFE7339CF807FF39FF807F3CFFFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE0003FCF3E739FE7CFE7339CF807FF39FF807F39FFFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE00039CF3E639FE7E667331CFFFFFF31FFFFE739FFFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
24 FE0003C1F871307F0F0E738983FFFFF89FFFFF079FFFFFFF 0
6 FFFFFFFFFFFF 2
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
6 FE0003FFFFFF 0
6 FFFFFFFFFFFF 5
2 FFFF 0
0
showpage
saveobj restore
%%EndPage: 1 1
%%Trailer
done
%%BoundingBox: 0 0 254 41
%%Pages: 1