;From baraze@yosemite.space.lockheed.com Fri Nov  8 19:22:51 1991
pro bw_tbl

common clrtblstuff, num_colors, rct, gct, bct

num_colors = !d.n_colors

rct = intarr(num_colors)
gct = intarr(num_colors)
bct = intarr(num_colors)
nct = 0

fnc = float(num_colors)
while (nct lt num_colors) do begin
   rct(nct) = fix(fnc * alog10(nct / fnc * 9.0 + 1.0))
   gct(nct) = rct(nct)
   bct(nct) = rct(nct)
   nct = nct + 1
endwhile

tvlct, rct, gct, bct

end