def genpic(FileName) { Fp = open_file(FileName); if (Fp < 0) error("Open failed."); Fp2 = open_file(getenv("HOME")+"/Desktop/mypic.bmp", "w"); H = newvect(14); for ( I = 0; I<14; I++ ) { C=get_byte(Fp); H[I] = C; put_byte(Fp2,C); } Offset = H[10]+H[11]*0x10+H[12]*0x100+H[13]*0x1000; printf("Offset=%a\n",Offset); for (I=14; I=0; I++) { /* BGR */ if ((I-Offset) == 2) put_byte(Fp2,0xff); else put_byte(Fp2,0); } close_file(Fp2); } genpic(getenv("HOME")+"/Desktop/32x32.bmp"); /* BMP format : http://ja.wikipedia.org/wiki/Windows_bitmap */ end$