AmigaExamples/028.bs/fade.c

#include <stdio.h>
#include <getopt.h>

typedef struct {
  unsigned char r, g, b, a;
} rgba_t;

typedef struct {
  int verbose;
  int numColors;
  char** argv;
} config_t;

config_t config = {
  .numColors = 16
};

#define MAX_COLORS 32

rgba_t original[MAX_COLORS];
rgba_t gray[MAX_COLORS];
rgba_t progress[MAX_COLORS];

int 
main(int argc, char** argv)
{
  config.argv = argv;
  
  while (1) {
    static struct option long_options[] = {
      {"verbose", no_argument, &config.verbose, 1},
      {"colors",  required_argument, 0, 'c'},
      {0, 0, 0, 0}
    };
    
    int option_index = 0;
    
    c = getopt_long (argc, argv, "n:", long_options, &option_index);
    
    if (c == -1)
      break;
    
    switch (c) {
    case 0:
      break;
    case 'c':
      if (sscanf(optarg, "%d", &config.numColors) != 1) {
	abort_("invalid width");
      }
      break;	      
    case '?':
      usage();
      break;	
    default:
      usage();
      break;
    }
  }


  FILE* fp = fopen(argv[1], "r");

  rgba_t* p = original;

  while (fscanf(fp, "%d %d %d %d", &p->r, &p->g, &p->b, &p->a) == 4) {
    p++;
  }

  rgba_t* g = gray;
  p = original;

  for (int i = 0; i < config.numColors; i++) {
    g->r =  g->g = g->b = (p->r + p->g + p->b) / 3;
    //   printf("%d %d %d\n", g->r, g->g, g->b);
    g++;
    p++;
  }

  for (int s = 1; s <= 16; s++) {
    printf(".step%d\n", s);
    for (int i = 0; i < config.numColors; i++) {
      int dr = ((((float)original[i].r)-(float)gray[i].r)/16.0)*s;
      int dg = ((((float)original[i].g)-(float)gray[i].g)/16.0)*s;
      int db = ((((float)original[i].b)-(float)gray[i].b)/16.0)*s;

      #if 0
      printf("r:%d %d %d -> %d\n"
	     "g:%d %d %d -> %d\n"
	     "b:%d %d %d -> %d\n",
	     original[i].r,gray[i].r, dr, gray[i].r+dr, 
	     original[i].g,gray[i].g, dg, gray[i].g+dg,
	     original[i].b,gray[i].b, db, gray[i].b+db);
      #endif

      printf("\tdc.w\t$%03x\n", 
	     ((gray[i].r+dr)>>4)<<8|
	     ((gray[i].g+dg)>>4)<<4|
	     ((gray[i].b+db)>>4));
    }
  }

  printf("%sFadeComplete:\n", argv[2]);

  fclose(fp);
}