/* gen_c6.c - comment6.c generator - Don Yang (uguu.org) 04/10/99: main pmake */ #include #ifdef SEAN #define OUTPUTNAME "sean.c" char image[2 * 8 * 28] = {0,3,3,3,3,3,2, 0,3,3,3,3,3,2, 0,0,3,3,2,0,0, 3,3,3,2,0,3,2, 3,2,0,0,0,0,0, 3,2,0,0,0,0,0, 0,3,2,0,3,2,0, 3,2,0,3,2,3,2, 3,2,0,0,0,0,0, 3,2,0,0,0,0,0, 3,2,0,0,0,3,2, 3,2,0,0,3,3,2, 0,3,3,2,0,0,0, 3,2,0,0,0,0,0, 3,2,0,0,0,3,2, 3,2,0,0,0,3,2, 0,0,0,3,3,2,0, 3,3,3,3,2,0,0, 3,3,3,3,3,3,2, 3,2,0,0,0,3,2, 0,0,0,0,0,3,2, 3,2,0,0,0,0,0, 3,2,0,0,0,3,2, 3,2,0,0,0,3,2, 0,0,0,0,0,3,2, 3,2,0,0,0,0,0, 3,2,0,0,0,3,2, 3,2,0,0,0,3,2, 3,3,3,3,3,2,0, 0,3,3,3,3,3,2, 3,2,0,0,0,3,2, 3,2,0,0,0,3,2, 1,0,0,0,0,1,0, 0,0,1,1,0,0,0, 1,1,1,0,0,1,0, 0,0,1,1,1,1,0, 1,0,0,0,0,1,0, 0,1,0,0,1,0,0, 1,0,0,1,0,1,0, 0,1,0,0,0,0,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,1,1,0, 1,0,0,0,0,0,0, 0,1,1,1,1,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,0,0, 0,0,0,0,0,1,0, 1,1,1,1,1,1,0, 1,0,0,0,0,1,0, 1,0,0,1,1,0,0, 0,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 0,0,0,0,1,0,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 0,1,0,0,0,1,0, 0,1,1,1,0,0,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 0,0,1,1,1,0,0}; int palette[3] = {11, 3, 15}; #else #define OUTPUTNAME "comment6.c" char image[2 * 8 * 28] = {0,2,2,2,2,2,0,0,0, 0,0,0,0,2,2,0,0,0,0, 0,0,2,0,0,0,0,2,0, 2,3,3,3,3,3,2,0,0, 0,0,0,2,3,3,2,0,0,0, 0,2,3,2,0,0,2,3,2, 2,3,2,2,2,2,3,2,0, 0,0,2,3,2,2,3,2,0,0, 0,2,3,3,2,0,2,3,2, 2,3,2,0,0,2,3,2,0, 0,2,3,2,0,0,2,3,2,0, 0,2,3,2,3,2,2,3,2, 2,3,2,0,0,2,3,2,0, 0,2,3,2,0,0,2,3,2,0, 0,2,3,2,2,3,2,3,2, 2,3,2,2,2,2,3,2,0, 0,0,2,3,2,2,3,2,0,0, 0,2,3,2,0,2,3,3,2, 2,3,3,3,3,3,2,0,0, 0,0,0,2,3,3,2,0,0,0, 0,2,3,2,0,0,2,3,2, 0,2,2,2,2,2,0,0,0, 0,0,0,0,2,2,0,0,0,0, 0,0,2,0,0,0,0,2,0, 1,0,0,0,0,1,0, 0,0,1,1,0,0,0, 1,1,1,0,0,1,0, 0,0,1,1,1,1,0, 1,0,0,0,0,1,0, 0,1,0,0,1,0,0, 1,0,0,1,0,1,0, 0,1,0,0,0,0,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,1,1,0, 1,0,0,0,0,0,0, 0,1,1,1,1,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,0,0, 0,0,0,0,0,1,0, 1,1,1,1,1,1,0, 1,0,0,0,0,1,0, 1,0,0,1,1,0,0, 0,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 0,0,0,0,1,0,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 0,1,0,0,0,1,0, 0,1,1,1,0,0,0, 1,0,0,0,0,1,0, 1,0,0,0,0,1,0, 0,0,1,1,1,0,0}; int palette[3] = {10, 2, 15}; #endif char spalette[15][8]; char *source[61] = { " #include", " /*1999*/#include", " double PI=3.141592653589793,c=0,o", " =0,_1[224],_2[224],_3[224],Sin,Cos,Tan", " ;int far*_=(int far*)0xb8000000,s,i,n,_5=1", " ,_4=112,_8,_9,Pi [2000],_7[16]={+0,", " $" ",$" ",0+ $" ",$" ",$" ",", " $" ",$" ", $" ",$" ",0+", " $" ",$" ", $" ",$" ",", " $" ",$" "} ;char _0[2]", " [8][28]={{ {%,%,%,%,%", " ,%,%,%,%,% ,%,%,%,%,%,%,%, %,%,%,%,%,", " %,%,%,%, %,%},{%,%,%,%,%,%,%,% ,%,%,%,%,%", " ,%,%,%,% ,%,%,%,%,%,%,%,%,%,%,%},{ %,%,%,%,%,", " %,%,%,%, %,%,%,%,%,%,%,%,%,%,%,%,%,%,% ,%,%,%,%}", " ,{%,%,%, %,%,%,%,%,%,%,%,%,%,%,%,%,%,%,% ,%,%,%,%,", " %,%,%,% ,%},{%,%,%,%,%, %,%,%,%,%,%,%,%, %,%,%,%,%", " ,%,%,%, %,%,%,%,%,% ,%},{%,%,%,%, %,%,%,%,", " %,%,%,% ,%,%,%,%,% ,%,%,%,%,%, %,%,%,%,", " %,%},{% ,%,%,%,%, %,%,%,%,%,% ,%,%,%,%", " ,%,%,%, %,%,%,%, %,%,%,%,% ,%},{%,%", " ,%,%,%, %,%,%,% ,%, %,%,%,%,% ,%,%,%,", " %,%,%,% ,%,%,%,% ,%,%}},{{%,%, %,%,%,%,% ,%,%,%,%", " ,%,%,%, %,%,%,% ,%,%,%,%,%,%,%,% ,%,%},{% ,%,%,%,%", " ,%,%,%, %,%,%,% ,%,%,%,%,%,%,%,%,% ,%,%,%, %,%,%,%", " },{%,%, %,%,%,% ,%,%,%,%,%,%,%,%,%,%, %,%,%,%, %,%,%,%", " ,%,%,% ,%},{% ,%,%,%,%,%,%,%,%,%,%,%, %,%,%,% ,%,%,%,%", " ,%,%,%, %,%,%,% ,%},{%, %,%,%,%,%, %,%,%,% ,%,%,%,", " %,%,%,% ,%,%,% ,%,%,%, %,%,%,%,% },{%,%, %,%,%,%", " ,%,%,%, %,%,%, %,%,%, %,%,%,% ,%,%,%, %,%,%,%", " ,%,%},{ %,%,%, %,%,%, %,%,%,% ,%,%,%, %,%,%,", " %,%,%,% ,%,%,% ,%,%,% ,%,%},{ %,%,%,% ,%,%,%", " ,%,%,%, %,%,%, %,%,%, %,%,%,% ,%,%,% ,%,%", " ,%,%,%} }},_6, pi[4000 ];void cdecl/*", " */main( void){ ;for(s=~~0;s< +2000; )Pi[s++", " ]=_[s]; while/* */(!!!kbhit()) {for(s =4000;s", " >0;)pi [--s]= 0;n=00;for(;8 >s;s+= 1){Sin=", " sin(Tan =(+s+9 )*PI/50);for (i=0;i <28;i=i", " +1){_1[ n]=Sin* cos(Cos=+(o +i*PI /25))\\", " ;_3[n]= Sin*sin (Cos); _2[n++ ]=cos(", " Tan);}} Sin=sin (c);Cos =cos(c)", " ;for(s= 224;s>0; ){Tan=_2 [--s];;", " _2[s]= Cos*_2[s ]-Sin*_3[ +s];_3[", " s]=Cos* _3[s]+Sin *Tan;}n*=+0 ;for(;s", " <8;s++) {for(i=0;i<28; i++){if((_6=(_4 >(i<<2)", " )?_0[0] [s][i]:(_0[1][s][i]))>0>>0){ _8=(int", " )(1900.0 *_1[n]/(Cos=(100.0*_3[n]+ 115.0))+", " /*DON^_^ sin(Cos)+cos(Sin)+Tan +SY^_^*/", " 40);_9=( int)(1900.0*_2[n] /Cos+25)", " ;if((_9>= 0)&&(_9<50 ))pi[+_9*", " 80+_8]=_6 ;}n++;}}c=", " fmod(+c+PI /91,Tan=2*", " PI);o=fmod( o+PI/79,Tan", " );_4+=_5;if( _5>0){if(315<", " _4)_5=-1;}else{ if(_4<-285)_5=", " 1;}while(inp(986)&8);while(0==(inp(986)&", " 8));for(i=0;i<50;i+=2)for(s=0;s<80;)_", " [40*i+s++]=_7[(pi[i*80+s]<<2)|pi[", " i*80+s+80]];}for(s=0;s<2000;", " )_[s++]=Pi[s];if(getch(", " )==0)getch();}"}; void pmake(int entry, int c1, int c2) { unsigned int i; if( c1 == c2 ) { i = (c1 << 8) | 0xdb; sprintf(spalette[entry], (i < 1000) ? "+%u" : "%u", i); return; } if( c1 == 0 ) { i = (c2 << 8) | 0xdc; sprintf(spalette[entry], (i < 1000) ? "+%u" : "%u", i); return; } if( c2 == 0 ) { i = (c1 << 8) | 0xdf; sprintf(spalette[entry], (i < 1000) ? "+%u" : "%u", i); return; } if( c2 > 7 ) i = ((c1 & 7) << 12) | (c2 << 8) | 0xdc; else i = ((c2 & 7) << 12) | (c1 << 8) | 0xdf; if( i < 1000 ) sprintf(spalette[entry], "%u+0", i); else sprintf(spalette[entry], (i < 10000) ? "+%u" : "%u", i); } void main(void) { FILE *outfile; int i, j, pi = 0, si = 0; if( (outfile = fopen(OUTPUTNAME, "rb")) != NULL ) { fclose(outfile); printf(OUTPUTNAME " already exists! Overwrite? "); scanf("%c", &i); if( i == 'n' || i == 'N' ) return; } if( (outfile = fopen(OUTPUTNAME, "wb+")) == NULL ) { puts("Can not create " OUTPUTNAME "."); return; } printf("Palette = {0, %d, %d, %d}\n", palette[0], palette[1], palette[2]); pmake(0, 0, palette[0]); pmake(1, 0, palette[1]); pmake(2, 0, palette[2]); pmake(3, palette[0], 0); pmake(4, palette[0], palette[0]); pmake(5, palette[0], palette[1]); pmake(6, palette[0], palette[2]); pmake(7, palette[1], 0); pmake(8, palette[1], palette[0]); pmake(9, palette[1], palette[1]); pmake(10, palette[1], palette[2]); pmake(11, palette[2], 0); pmake(12, palette[2], palette[0]); pmake(13, palette[2], palette[1]); pmake(14, palette[2], palette[2]); fprintf(outfile, "\x0d\x0a"); for(i = 0; i < 61; i++) { for(j = 0; source[i][j]; j++) { if( source[i][j] == '$' ) { fprintf(outfile, "%s", spalette[pi++]); } else if( source[i][j] == '%' ) { printf("%d", image[si]); fprintf(outfile, "%d", image[si++]); if( !(si % 28) ) putchar('\n'); if( !(si % 224) ) putchar('\n'); } else { fputc(source[i][j], outfile); } } fprintf(outfile, "\x0d\x0a"); } fclose(outfile); }