home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / adrg / source / pro4bit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-04  |  1.7 KB  |  42 lines
  1. procedure bit4(rin,gin,bin : byte ; var jmin : byte);
  2. const
  3.   hue : array[0..15,0..2] of byte = ((210,242,160),       {yellow}
  4.                                      (230,229,249),       {l. cyan}
  5.                                      (148,116, 84),       {brown}
  6.                                      (152,120, 95),       {white}
  7.                                      ( 44, 38, 40),       {black}
  8.                                      (184,224,148),       {yellow}
  9.                                      ( 96,144,224),       {l. blue}
  10.                                      (140,184,228),       {l. cyan}
  11.                                      (156,204,240),       {l. cyan}
  12.                                      (100,144,148),       {cyan}
  13.                                      ( 50, 80, 52),       {red}
  14.                                      (120,168,232),       {l. cyan}
  15.                                      (112,116,108),       {l. gray}
  16.                                      ( 84, 84, 72),       {gray}
  17.                                      (104,112, 84),       { gray}
  18.                                      ( 40, 28, 32));      {magenta}
  19. var
  20.   r, g, b, dist, min : longint;
  21.   j : byte;
  22.  
  23. begin            {begining procedure bit4}
  24.  
  25.   min := 300000;   jmin := 0;
  26.   r := rin;        g := gin;        b := bin;
  27.  
  28.   for j := 0 to 15 do
  29.   begin
  30.     dist := 0;
  31.     dist := (r-hue[j,0])*(r-hue[j,0]) +
  32.             (g-hue[j,1])*(g-hue[j,1]) +
  33.             (b-hue[j,2])*(b-hue[j,2]) ;
  34.     if (dist <= min) then
  35.     begin
  36.       min := dist;
  37.       jmin := j;
  38.     end;          {end the if dist}
  39.   end;            {end the for loop}
  40.  
  41. end;               {end the procedure bit4}
  42.