home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / rexx / library2 / gbmrexx / gbm / _gbmtrun.c < prev    next >
C/C++ Source or Header  |  1992-04-06  |  2KB  |  96 lines
  1. /*
  2.  
  3. _GBMTRUN.C  Calculate the quick 'closest-colour' lookup table for GBMTRUNC.C
  4.  
  5. */
  6.  
  7. #include <stdio.h>
  8. #include "standard.h"
  9. #include "gbm.h"
  10.  
  11. /*...sVGA palette:0:*/
  12. static GBMRGB gbmrgb_vga [] =
  13.     {
  14.       0,  0,  0,
  15.     128,  0,  0,
  16.       0,128,  0,
  17.     128,128,  0,
  18.       0,  0,128,
  19.     128,  0,128,
  20.       0,128,128,
  21.     128,128,128,
  22.     204,204,204,
  23.     255,  0,  0,
  24.       0,255,  0,
  25.     255,255,  0,
  26.       0,  0,255,
  27.     255,  0,255,
  28.       0,255,255,
  29.     255,255,255,
  30.     };
  31. /*...e*/
  32. /*...scalc_nearest:0:*/
  33. /*
  34. This function, when given am RGB colour, finds the VGA palette entry closest
  35. to it. We deliberately bias away from the two grey palette entries.
  36. */
  37.  
  38. static byte calc_nearest(byte r, byte g, byte b)
  39.     {
  40.     long min_dist = 3L * 256L * 256L * 10L;
  41.     byte bi, bi_min;
  42.  
  43.     for ( bi = 0; bi < 0x10; bi++ )
  44.         {
  45.         long b_dist = ((long) b - (long) gbmrgb_vga [bi].b);
  46.         long g_dist = ((long) g - (long) gbmrgb_vga [bi].g);
  47.         long r_dist = ((long) r - (long) gbmrgb_vga [bi].r);
  48.         long dist = r_dist * r_dist + g_dist * g_dist + b_dist * b_dist;
  49.  
  50.         if ( dist < min_dist )
  51.             {
  52.             min_dist = dist;
  53.             bi_min = bi;
  54.             }
  55.         }
  56.     return ( bi_min );
  57.     }
  58. /*...e*/
  59.  
  60. static char *dw_casings [] =
  61.     {
  62.     "\t%d,", "%d,", "%d,", "%d,", "%d,", "%d,", "%d,", "%d,",
  63.     "%d,", "%d,", "%d,", "%d,", "%d,", "%d,", "%d,", "%d,\n",
  64.     };
  65.  
  66. void    main(void)
  67.     {
  68.     byte    r, r0, r1, g, g0, g1, b, b0, b1, i = 0;
  69.  
  70.     printf("static byte quick_tab [16][16][16] =\n\t{\n");
  71.  
  72.     for ( r = 0, r0 = 0, r1 = 15; r < 16; r++, r0 += 16, r1 += 16 )
  73.         for ( g = 0, g0 = 0, g1 = 15; g < 16; g++, g0 += 16, g1 += 16 )
  74.             for ( b = 0, b0 = 0, b1 = 15; b < 16; b++, b0 += 16, b1 += 16 )
  75. /*...sanalyse cube:32:*/
  76. {
  77. byte n = calc_nearest(r0, g0, b0);
  78. byte inx;
  79.  
  80. if ( n == calc_nearest(r0, g0, b1) &&
  81.      n == calc_nearest(r0, g1, b0) &&
  82.      n == calc_nearest(r0, g1, b1) &&
  83.      n == calc_nearest(r1, g0, b0) &&
  84.      n == calc_nearest(r1, g0, b1) &&
  85.      n == calc_nearest(r1, g1, b0) &&
  86.      n == calc_nearest(r1, g1, b1) )
  87.     inx = n;
  88. else
  89.     inx = (byte) 0xff;
  90. printf(dw_casings [i++ & 15], (int) inx);
  91. }
  92. /*...e*/
  93.  
  94.     printf("\t};\n");
  95.     }
  96.