From ab8cc85adde879fb963c94d15675783f2cf4b183 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 14 Aug 2007 05:14:52 +0000 Subject: Initial population. --- src/doc/ps/home.ps | 389 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 389 insertions(+) create mode 100644 src/doc/ps/home.ps (limited to 'src/doc/ps/home.ps') 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 + 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 -- cgit v1.2.3