---------- CADI_HTV.PS
{[400 200] 0 setdash} bdef /STDFONT { findfont exch scalefont setfont } bdef
exch definefont exch scalefont setfont } bdef /ISOBULLET { gsave /Helvetica
findfont exch scalefont setfont (\267) show currentpoint grestore moveto}
save $IDL_DICT begin 19 751 translate 0.02834646 dup scale 270 rotate
gsave 3399 17157 translate /picstr 2 string def 472 1342 scale
grestore gsave 4045 17014 translate /picstr 4 string def 737 1371 scale
grestore gsave 4962 17585 translate /picstr 1 string def 88 257 scale
grestore gsave 5080 17985 translate /picstr 1 string def 29 57 scale
grestore gsave 5139 18042 translate /picstr 1 string def 59 57 scale
grestore gsave 5464 17757 translate /picstr 1 string def 59 142 scale
grestore gsave 6400 17099 translate /picstr 1 string def 147 1200 scale
grestore gsave 6703 16928 translate /picstr 1 string def 29 600 scale
grestore gsave 6734 16928 translate /picstr 1 string def 29 571 scale
grestore gsave 6762 16957 translate /picstr 3 string def 678 1685 scale
grestore gsave 7592 17357 translate /picstr 1 string def 177 685 scale
grestore gsave 7976 17899 translate /picstr 1 string def 118 199 scale
grestore gsave 9381 17814 translate /picstr 1 string def 29 28 scale
grestore gsave 10593 16814 translate /picstr 2 string def 383 1171 scale
grestore gsave 11130 16871 translate /picstr 1 string def 88 542 scale
grestore gsave 13788 17214 translate /picstr 1 string def 29 142 scale
grestore gsave 13847 16928 translate /picstr 3 string def 649 1457 scale
grestore gsave 14667 16928 translate /picstr 2 string def 354 1028 scale
grestore gsave 15140 17385 translate /picstr 1 string def 59 257 scale
grestore gsave 15228 17585 translate /picstr 1 string def 88 285 scale
grestore gsave 15585 18014 translate /picstr 1 string def 29 714 scale
grestore gsave 15674 18642 translate /picstr 1 string def 29 28 scale
grestore gsave 15762 18357 translate /picstr 1 string def 29 28 scale
grestore gsave 16028 17357 translate /picstr 1 string def 29 28 scale
grestore gsave 16087 16642 translate /picstr 1 string def 206 800 scale
grestore gsave 16446 16671 translate /picstr 3 string def 590 1771 scale
grestore gsave 17066 17385 translate /picstr 1 string def 88 1571 scale
grestore gsave 17798 17385 translate /picstr 1 string def 88 1514 scale
grestore gsave 18241 17157 translate /picstr 1 string def 29 57 scale
grestore gsave 18389 16785 translate /picstr 3 string def 560 1057 scale
grestore gsave 19128 16785 translate /picstr 3 string def 560 1000 scale
grestore gsave 20043 18271 translate /picstr 1 string def 29 28 scale
grestore gsave 20161 17071 translate /picstr 2 string def 324 1057 scale
grestore gsave 20486 17128 translate /picstr 1 string def 29 857 scale
grestore gsave 20515 17157 translate /picstr 1 string def 88 685 scale
grestore gsave 20633 17242 translate /picstr 1 string def 59 228 scale
grestore gsave 20871 17157 translate /picstr 1 string def 29 342 scale
grestore gsave 20903 17099 translate /picstr 1 string def 29 457 scale
grestore gsave 20930 16899 translate /picstr 3 string def 649 1828 scale
grestore gsave 21751 16985 translate /picstr 2 string def 383 1371 scale
grestore gsave 22135 16957 translate /picstr 1 string def 59 800 scale
grestore gsave 22193 16957 translate /picstr 1 string def 177 828 scale
grestore gsave 22400 17357 translate /picstr 1 string def 88 685 scale
grestore gsave 22699 16785 translate /picstr 2 string def 295 914 scale
grestore gsave 23201 16728 translate /picstr 1 string def 177 571 scale

---------- ALPHABET.PS
Name findfont FirstSize scalefont setfont
   Ratio dup scale

---------- BDFTOPS.PS
      /fontscale   72 pointsize div xres div 1000 mul   def
       [ fbbxo fontscale mul
	 fbbyo fontscale mul
	 fbbxo fbbw add fontscale mul
	 fbbyo fbbh add fontscale mul
% because type1imagepath uses this to compute the scale factor,

---------- BENCH.PS

---------- CHEQ.PS

---------- CHESS.PS
 /DF { findfont exch scalefont setfont currentfont def } bdef
%%%%%%   scale up and relocate the image.
-140 -800 translate 2 2 scale

---------- COLORCIR.PS
/Times-Roman findfont 24 scalefont setfont
500 500 scale
1.0 0.7 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale
0.8 0.8 scale

---------- DECRYPT.PS

---------- ESCHER.PS
% just fits our output format - solve for scale factor "a"
	/Scale a z M div def				% z=a/M(|z|)
	x Scale mul x0 add 				% magnify back up
	y Scale mul y0 add 				% [x0+x*s, y0+y*s]
/Helvetica findfont 8 scalefont setfont 
/Smatrix 			% scale so that 1 basis vector = 1.0
  Dm_inv dup matrix scale 
		/Matrix 	% translate, rotate, scale - used by Xform
			.5 dup scale

---------- FONT2C.PS

---------- GOLFER.PS
/z{_z exch get/_a x/_t x/_l x exch findfont exch scalefont setfont}q

---------- GS_DBT_E.PS

---------- GS_DPS1.PS
	/roll /rotate /round /save /scale
	/scalefont /search /selectfont /setbbox /setcachedevice
	  dup type /arraytype eq { makefont } { scalefont } ifelse

---------- GS_FONTS.PS

---------- GS_INIT.PS

---------- GS_LEV2.PS

---------- GS_STATD.PS

---------- GS_SYM_E.PS

---------- GS_TYPE0.PS

---------- GSLP.PS
    { /Courier findfont Landscape { 7 } { 10 } ifelse scalefont } def
    { /Courier-Bold findfont 10 scalefont } def
      OutFile ( scalefont def\n) writestring
   exch arg exch anchorsearch pop pop cvr scalefont

---------- IMPATH.PS
   height dup scale

---------- LANDSCAP.PS

---------- LEVEL1.PS

---------- LINES.PS
8 8 scale
10 10 scale
5 5 scale

---------- MARKPATH.PS

---------- MERGEINI.PS

---------- PCHARSTR.PS

---------- PPATH.PS

---------- PRFONT.PS
/T6 /Times-Roman findfont 6 scalefont def
  /Times-Roman findfont 18 scalefont setfont
  /F24 F 24 scalefont def
  F 10 scalefont setfont
  F 10 scalefont setfont

---------- PS2ASCII.PS
%   0.1 0 2 index dtransform abs exch abs max /.show.scale exch def
%   0.1 dup 3 -1 roll scale
   0.1 0 dtransform abs exch abs max /.show.scale exch def
   0.1 dup scale .show.ident.matrix currentmatrix
     .show.scale div round cvi
     .show.scale div round cvi

---------- PS2EPSI.PS

---------- PS2IMAGE.PS

---------- PSTOPPM.PS
     /ScaleX Horz_dpi 72 div def
     /ScaleY Vert_dpi 72 div def
     [ScaleX 0.0 0.0 ScaleY neg 0.0 Height]

---------- QUIT.PS

---------- SAVE.PS

---------- SCREEN.PS
72 72 scale

---------- SHOWCHAR.PS
/bitselectfont		% <fontname> <scale> bitselectfont -
 { exch findfont exch scalefont setfont
   150000 Rx Ry max P mul div dup scale

---------- SHOWPAGE.PS

---------- SNOWFLAK.PS

---------- TIGER.PS
1.1 dup scale

---------- TRACEOP.PS

---------- TYPE1OPS.PS

---------- UNPROT.PS

---------- WATERFAL.PS
/Courier findfont 20 scalefont setfont
   basefont 20 scalefont setfont eol
    { dup /size exch def basefont exch scalefont setfont eol

---------- WINMAPS.PS

---------- WRFONT.PS