#include <stdio.h>
#include <math.h>
#include <unistd.h>

char *texture[] = {
"eeeeeeebeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeg",
"eeeeeeebeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeef",
"eeeeeeebeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeg",
"eeeeeeebeeeeeeeeeeeee~~~~~~eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeef",
"eeeeeeeeeeeeeeeeeeeee~eeee~eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeg",
"eeeeeeeeeeeeeeeeeeee~eeeeee~eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeef",
"eeeeeeeeeeeeeeeeeee~eeeeeee~~eeeeeeeggggggggggggeeeeeeeeeeeeeeeg",
"fffffeeeeeeeeeeeeee~eeeeeeeee~eeeeegddddddddddddgeeeeeeeeeeeeeef",
"feeeeeefeeeeeeeeeee~eeeeeeee~eeeeeeegdddddddddgggeeeeeeeeeeeeeeg",
"feeeeeefeeeeeeeeeee~~~~~~~~~eeeeeeeeeggggggddddggeeeeeeeeeeeeeef",
"fffffeefeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeegddddddggeeeeeeeeeeeeeg",
"eeeefeeffffeefffeeffffeeffffeefffffeeeeeegdddddddgeeeeeeeeeeeeef",
"eeeefeefeefeefeeeefeefeefeefeefefefeeeeeegdddddddgeeeeeeeeeeeeeg",
"fffffeefeefeefeeeeffffeeffffeefefefeeeeeeeggdddddgeeeeeeeeeeeeef",
"eeeeeeeeeeeegeegeeeegggeeeeeeeegeeeeeeeeeegggddddgeegggeeeeeeeeg",
"eeeeeeeeeeeegeegeeeegggeeeeeeeegeeeeeeeeegggggggggeegggeeeeeeeef",
"eeeeeeeeeeeegeegeeeegggeeeeeeeegeeeeeeeeeegggggggeeegggeeeeeeeeg",
"eeeeeeeeeeeegeegeeeegggeeeeeeeegeeeeeeeeeeeegggggeeegggeeeeeeeef",
"eeeeeeeeeeeegeegeeeegggeeeeeeeegeeeeeeeeeeeeggggeeeegggeeeeeeeeg",
"eeeeeeeeeeeegeegeeeegggeeeeeeeegeeeeeeeeeeeeggggeeeegggeeeeeeeef",
};


char *ascolor (int c) {
 static char *current, buff[]={'\e', '[' , '0', 'm', ' ', 0};
 static char *color_strings[] = {"\e[0;30m*", "\e[0;31m*", "\e[0;32m*", "\e[0;33m*", "\e[0;34m*", "\e[0;35m*", "\e[0;36m*", "\e[0;37m*", "\e[1;30m*", "\e[1;31m*", "\e[1;32m*", "\e[1;33m*", "\e[1;34m*", "\e[1;35m*", "\e[1;36m*", "\e[1;37m*", };
	return (c<'a' || c>'z') ? ((*(buff+4)=c), buff) : color_strings[(c-'a')&15];
}

void spaces (int x) { printf ("\e[%dC", x); }

void dump_color_string (double offset, double len, int y) {
 double i=0.8;
 char *last=NULL, *current=NULL;
	spaces (40-len+1);
	while (i<len-0.8) {
		current = ascolor(*(texture[y] + (int)(offset + (int)(15.0 * tan( (i/len - 1/2.0) * 2.40159 ))) % 64));
		printf ("%s", current);
		i+=0.5;
	}
	printf ("\n");
}

int main (void) {
 double i=50.0;
	printf ("\e[2J");
	for (;;) {
		i += 0.5;
		printf ("\e[0;0H");
		dump_color_string(i, 20.0, 0);
		dump_color_string(i, 26.0, 1);
		dump_color_string(i, 30.0, 2);
		dump_color_string(i, 33.0, 3);
		dump_color_string(i, 35.0, 4);
		dump_color_string(i, 36.0, 5);
		dump_color_string(i, 38.0, 6);
		dump_color_string(i, 39.0, 7);
		dump_color_string(i, 39.0, 8);
		dump_color_string(i, 40.0, 9);
		dump_color_string(i, 40.0, 10);
		dump_color_string(i, 39.0, 11);
		dump_color_string(i, 39.0, 12);
		dump_color_string(i, 38.0, 13);
		dump_color_string(i, 36.0, 14);
		dump_color_string(i, 35.0, 15);
		dump_color_string(i, 33.0, 16);
		dump_color_string(i, 30.0, 17);
		dump_color_string(i, 26.0, 18);
		dump_color_string(i, 20.0, 19);
		fflush(stdout);
		usleep(1000);
	}
	return 0;
}