Initial population.

1 files changed, 389 insertions, 0 deletions

diff --git a/src/doc/ps/home.ps b/src/doc/ps/home.ps
new file mode 100644
index 00000000..c3ad0b0e
--- /dev/null
+++ b/src/doc/ps/home.ps
@@ -0,0 +1,389 @@
+%!PS-Adobe-2.0 EPSF-1.2
+%%BoundingBox: 53.000000 284.120003 559.000000 538.120003
+%%Creator: /u/jonms/XtoPS/xwd2ps
+%%CreationDate: Tue Oct  8 20:20:32 1991
+%%Title: standard input
+%%EndComments
+% /u/jonms/XtoPS/xwd2ps -- program written by Robert C. Tatar and Craig A. McGowan.
+% The command used to create this file (missing quotes on strings):
+%   /u/jonms/XtoPS/xwd2ps
+% by pi.watson.ibm.com:jonms ()
+% Information from XWD rasterfile header:
+%   width =  60, height = 30, depth = 8
+%   file_version = 7, pixmap_format = 2, byte_order = 1
+%   bitmap_unit = 32, bitmap_bit_order = 1, bitmap_pad = 32
+%   bits_per_pixel = 8, bytes_per_line = 60, visual_class = 3
+%   bits/rgb = 8, colormap entries = 256, ncolors = 256
+% Portion of raster image in this file:
+%   starting line = 1
+%   ending line = 30
+%   starting column = 1
+%   ending column = 60
+gsave
+/inch {72 mul} def
+/buffer 2 string def
+/rgbmap 768 string def
+/rgb (000) def
+/pixels 768 string def
+%%Title: colorimage.ps
+% Written 11-4-88 by Bob Tatar
+% U.S. Mail: GE-CRD, PO Box 8, KW-C214, Schenectady, NY 12301
+%    E-Mail: tatar@crd.ge.com
+% colorimage procedure to be used on monochrome printers
+% or when the colorimage procedure is not available
+% NOTE: Only 1 color mode is supported: single proc. & RGB
+
+systemdict /colorimage known not {        % only create if not in systemdict
+  % Utility procedure for colorimage operator.  This procedure takes a
+  % string of rgb encoded values and creates a string 1/3 as long with
+  % monochrome values.  This procedure assumes 8 bits/color (i.e. 
+  % 1 character/color)
+  % storage format for input string:  (r1 g1 b1  r2 g2 b2  r3 g3 b3  ... )
+  % storage format for output string: (g1  g2  g3 ... )
+  
+  /colortograyscale { %def                % (string)
+    dup /rgbdata exch store               % (string)
+    length 3 idiv                         % Ns/3 
+    /npixls exch store                    % ; npixls => Ns/3
+    /indx 0 store                         % ; indx => 0
+    /pixls npixls string store            % ; pixls => (....)
+    0 1 npixls -1 add {                   % counter 
+      pixls exch                          % pixls counter
+      rgbdata indx get .3 mul             % pixls counter .3*rgbdata(ind)
+      rgbdata indx 1 add get .59 mul add  % pixls counter .3*rgbdata(ind) + 
+					  %          .59*rgbdata(ind+1)
+      rgbdata indx 2 add get .11 mul add  % pixls counter .3*rgbdata(ind) + .59
+					  %  *rgbdata(ind+1)+.11*rgbdata(ind+2)
+      cvi                                 % pixls counter <grayscale value>
+      put                                 %
+      /indx indx 3 add store              % ; /ind => ind+3
+    } for                                 % repeat for each rgb value
+    pixls                                 % (pixls)
+  } bind def                              % ; /colortograyscale -> dictionary
+  
+  % Utility procedure for colorimage operator.  This procedure takes two
+  % procedures off the stack and merges them into a single procedure.
+  
+  /mergeprocs { %def      % {proc1} {proc2}
+    dup length            % {proc1} {proc2} N2
+    3 -1 roll             % {proc2} N2 {proc1}
+    dup                   % {proc2} N2 {proc1} {proc1}
+    length                % {proc2} N2 {proc1} N1
+    dup                   % {proc2} N2 {proc1} N1 N1
+    5 1 roll              % N1 {proc2} N2 {proc1} N1
+    3 -1 roll             % N1 {proc2} {proc1} N1 N2
+    add                   % N1 {proc2} {proc1} N1+N2
+    array cvx             % N1 {proc2} {proc1} { ... }
+    dup                   % N1 {proc2} {proc1} { ... } { ... }
+    3 -1 roll             % N1 {proc2} { ... } { ... } {proc1}
+    0 exch                % N1 {proc2} { ... } { ... } 0 {proc1}
+    putinterval           % N1 {proc2} { <<{proc1}>> ... }
+    dup                   % N1 {proc2} { <<{proc1}>> ... } { <<{proc1}>> ... }
+    4 2 roll              % { <<{proc1}>> ... } { <<{proc1}>> ... } N1 {proc2}
+    putinterval           % { <<{proc1}>> <<{proc2}>> }
+  } bind def              % ; /mergeprocs => dictionary
+
+  /colorimage { %def               % {imageproc} multiproc ncolors
+     pop                           % {imageproc} multiproc ; assume 3 colors
+     pop                           % {imageproc}           ; assume false
+     {colortograyscale}            % {imageproc} {colortograyscale}
+     mergeprocs                    % {imageproc colortograyscale}
+     image                         % construct monochrome image
+  } bind def                       % ; /colorimage => dictionary
+} if                               % only create if it doesn't already exist
+/drawcolorimage {
+  60 30 8
+  [60 0 0 -30 0 30]
+  {currentfile buffer readhexstring pop pop  % get run length & color info
+    /npixels buffer 0 get 1 add 3 mul store  % number of pixels (run length)
+    /color buffer 1 get 3 mul store          % color of pixels
+    % /pixels npixels string store          % create string to hold colors
+    /rgb rgbmap color 3 getinterval store    % get rgb value
+    0 3 npixels -1 add {
+	  pixels exch rgb putinterval
+    } for
+    pixels 0 npixels getinterval             % Return color values
+  }
+  false 3
+  colorimage
+} bind def
+%0.750000 inch 3.960000 inch translate
+matrix currentmatrix
+.5 inch .16 inch scale
+
+% get rgb color table
+currentfile rgbmap readhexstring pop pop
+000000
+ffffff
+dbdb70
+2f4f4f
+23238e
+d3d3d3
+ff0000
+000000
+004900
+004955
+0049aa
+0049ff
+006d00
+006d55
+006daa
+006dff
+009200
+009255
+0092aa
+0092ff
+00b600
+00b655
+00b6aa
+00b6ff
+00db00
+00db55
+00dbaa
+00dbff
+00ff00
+00ff55
+00ffaa
+00ffff
+240000
+240055
+2400aa
+2400ff
+242400
+242455
+2424aa
+2424ff
+244900
+244955
+2449aa
+2449ff
+246d00
+246d55
+246daa
+246dff
+249200
+249255
+2492aa
+2492ff
+24b600
+24b655
+24b6aa
+24b6ff
+24db00
+24db55
+24dbaa
+24dbff
+24ff00
+24ff55
+24ffaa
+24ffff
+490000
+490055
+4900aa
+4900ff
+492400
+492455
+4924aa
+4924ff
+494900
+494955
+4949aa
+4949ff
+496d00
+496d55
+496daa
+496dff
+499200
+499255
+4992aa
+4992ff
+49b600
+49b655
+49b6aa
+49b6ff
+49db00
+49db55
+49dbaa
+49dbff
+49ff00
+49ff55
+49ffaa
+49ffff
+6d0000
+6d0055
+6d00aa
+6d00ff
+6d2400
+6d2455
+6d24aa
+6d24ff
+6d4900
+6d4955
+6d49aa
+6d49ff
+6d6d00
+6d6d55
+6d6daa
+6d6dff
+6d9200
+6d9255
+6d92aa
+6d92ff
+6db600
+6db655
+6db6aa
+6db6ff
+6ddb00
+6ddb55
+6ddbaa
+6ddbff
+6dff00
+6dff55
+6dffaa
+6dffff
+920000
+920055
+9200aa
+9200ff
+922400
+922455
+9224aa
+9224ff
+924900
+924955
+9249aa
+9249ff
+926d00
+926d55
+926daa
+926dff
+929200
+929255
+9292aa
+9292ff
+92b600
+92b655
+92b6aa
+92b6ff
+92db00
+92db55
+92dbaa
+92dbff
+92ff00
+92ff55
+92ffaa
+92ffff
+b60000
+b60055
+b600aa
+b600ff
+b62400
+b62455
+b624aa
+b624ff
+b64900
+b64955
+b649aa
+b649ff
+b66d00
+b66d55
+b66daa
+b66dff
+b69200
+b69255
+b692aa
+b692ff
+b6b600
+b6b655
+b6b6aa
+b6b6ff
+b6db00
+b6db55
+b6dbaa
+b6dbff
+b6ff00
+b6ff55
+b6ffaa
+b6ffff
+db0000
+db0055
+db00aa
+db00ff
+db2400
+db2455
+db24aa
+db24ff
+db4900
+db4955
+db49aa
+db49ff
+db6d00
+db6d55
+db6daa
+db6dff
+db9200
+db9255
+db92aa
+db92ff
+dbb600
+dbb655
+dbb6aa
+dbb6ff
+dbdb00
+dbdb55
+dbdbaa
+dbdbff
+dbff00
+dbff55
+dbffaa
+dbffff
+ff0000
+ff0055
+ff00aa
+ff00ff
+ff2400
+ff2455
+ff24aa
+ff24ff
+ff4900
+ff4955
+ff49aa
+ff49ff
+ff6d00
+ff6d55
+ff6daa
+ff6dff
+ff9200
+ff9255
+ff92aa
+ff92ff
+ffb600
+ffb655
+ffb6aa
+ffb6ff
+ffdb00
+ffdb55
+ffdbaa
+ffdbff
+ffff00
+ffff55
+ffffaa
+ffffff
+
+
+drawcolorimage
+3b073b073b073b0704070101050701010407060104070101060701010307080103070407020104070201020708010307020105070201020709010207040702010407020102070901
+020703010307030102070901020704070201040702010207020103070201020703010307030102070201090704070201040702010207020103070201020703010307030102070201
+090704070201040702010207020103070201020704010107040102070201090704070201040702010207020103070201020704010107040102070201090704070201040702010207
+02010307020102070b010207020109070407020104070201020702010307020102070201000703010007020102070201090704070a01020702010307020102070201000703010007
+020102070701040704070a01020702010307020102070201010701010107020102070801030704070a01020702010307020102070201010701010107020102070801030704070201
+040702010207020103070201020702010507020102070201090704070201040702010207020103070201020702010507020102070201090704070201040702010207020103070201
+020702010507020102070201090704070201040702010207020103070201020702010507020102070201090704070201040702010207020103070201020702010507020102070201
+090704070201040702010207020103070201020702010507020102070201090704070201040702010207020103070201020702010507020102070201090704070201040702010207
+09010207020105070201020708010307040702010407020103070801020702010507020102070901020705070101050701010407060104070101060701010307080102073b073b07
+3b073b07
+pop pop setmatrix
+
+/#copies 1 def
+grestore
+%%Trailer